エクセルデータを抽出する方法は何ですか？

Excelデータを抽出するためによく使われる方法の一つは、ADO（ActiveX Data Objects）を使用してExcelワークブックに接続し、SQLクエリを実行する方法です。次に示すのは、Excelワークブックからデータを抽出する方法を示すサンプルコードです：

Sub ExtractDataFromExcel()

    Dim conn As Object
    Dim rs As Object
    Dim strConn As String
    Dim strSQL As String
    Dim i As Integer

    '创建ADO连接
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")

    '连接到Excel工作簿
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\excel\file.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1;"";"
    conn.Open strConn

    '执行SQL查询
    strSQL = "SELECT * FROM [Sheet1$]"
    rs.Open strSQL, conn

    '提取数据并输出到Immediate窗口
    Do While Not rs.EOF
        For i = 0 To rs.Fields.Count - 1
            Debug.Print rs.Fields(i).Value
        Next i
        rs.MoveNext
    Loop

    '关闭连接
    rs.Close
    conn.Close

    '释放对象
    Set rs = Nothing
    Set conn = Nothing

End Sub

上記のコードでは、まずADO接続オブジェクトとレコードセットオブジェクトを作成しました。その後、CreateObjectメソッドを使用してADO接続オブジェクトを作成し、Excelワークブックに接続しました。次に、ワークブック内のすべてのデータを選択するためにSQLクエリを実行しました。最後に、Do Whileループを使用してレコードセット内のデータを繰り返し、Immediateウィンドウに出力しました。

ご注意ください、C:\path\to\your\excel\file.xlsxを実際のExcelファイルのパスに置き換える必要があります。また、特定のデータを抽出するためにSQLクエリ文を実際の状況に応じて変更する必要があります。