VBAのIE制御

OLEDBErrorsコレクションについての解説になります。

• Applicationオブジェクト
  • OLEDBErrorsコレクション
    • ODBCErrorオブジェクト

目次

• OLEDBErrorsコレクションとは
• シート見出しの色を設定するサンプルコード
  • 実行結果
  • 解説
• OLEDBErrorsオブジェクトの親オブジェクト一覧
• OLEDBErrorsオブジェクトのプロパティ一覧

OLEDBErrorsコレクションとは

OLEDBErrorsコレクションは、OLEDBError オブジェクトのコレクションです。各 OLEDBError オブジェクトは、最新の OLE DB クエリによって返されるエラーを表します。指定された OLE DB クエリでエラーが発生しない場合、OLEDBErrors コレクションは空です。コレクション内のエラーは、OLE DB プロバイダによって生成される順番で索引付けられます。コレクションにメンバーを追加することはできません。

OLEDBErrors コレクションを取得するには、OLEDBErrors プロパティを使用します。次の使用例は、各 OLE DB エラーの説明と SqlState プロパティの値を表示します。

For Each objEr in Application.OLEDBErrors
    MsgBox "発生したエラー : " & _
        objEr.ErrorString & " : " & objEr.SqlState
Next objEr

※ドラッグ(スワイプ)すると全体を確認できます。

単体の OLEDBError オブジェクトを取得するには、OLEDBErrors(index) プロパティを使用します。引数 index には、OLE DB エラーのインデックス番号を指定します。次の使用例は、最新の OLE DB クエリによって返された最初のエラーの説明と SqlState プロパティの値を表示します。

Set objEr = Application.OLEDBErrors(1)
MsgBox "発生したエラー : " & _
    objEr.ErrorString & " : " & objEr.SqlState

※ドラッグ(スワイプ)すると全体を確認できます。

• OLEDBErrorsプロパティ

シート見出しの色を設定するサンプルコード

こちらでは、シート見出しの色を設定するマクロになります。

Sub sample()

    Sheets("Sheet1").OLEDBErrors.ColorIndex = 3

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

解説

こちらのマクロは、OLEDBErrorsオブジェクトのColorIndexプロパティを利用しています。

OLEDBErrorsオブジェクトの親オブジェクト一覧

OLEDBErrorsオブジェクトのプロパティ一覧

• OLEDBErrorsオブジェクト(ColorIndexプロパティ)のプロパティ