VBAのIE制御

ODBCErrorオブジェクトについての解説になります。

• Applicationオブジェクト
  • ODBCErrorオブジェクト
    • ODBCErrorオブジェクト

目次

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

ODBCErrorオブジェクトとは

ODBCErrorオブジェクトは最新の ODBC クエリによって発生した ODBC エラーを表します。ODBCError オブジェクトは ODBCErrors コレクションのメンバーです。指定された ODBC クエリでエラーが発生しない場合、ODBCErrors コレクションに ODBCError オブジェクトは含まれません。コレクションに含まれるエラーは、ODBC データ ソースにより発生した順序で索引付けられます。

ODBCError オブジェクトを取得するには、ODBCErrors(index) プロパティを使用します。引数 index にはエラーのインデックス番号を指定します。次の使用例は、クエリ テーブル 1 を更新し、発生した最初の ODBC エラーを表示します。

With Worksheets(1).QueryTables(1)
    .Refresh
    If Application.ODBCErrors.Count > 0 Then
        Set er = Application.ODBCErrors(1)
        MsgBox "エラー発生: " &
            er.ErrorString & " : " & er.SqlState
    Else
        MsgBox "クエリ完了: すべてのレコードが返されました。"
    End If
End With

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

• ODBCErrorプロパティ

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

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

Sub sample()

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

End Sub

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

実行結果

解説

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

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

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

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