エクセルVBAのQueryTables.Addメソッドでクエリテーブルを追加する方法

みなさん、こんにちは！
フジタニ(@libartweb)です。

エクセルVBAでQueryTableオブジェクトを使って高速にCSVを取り込む方法をシリーズでお伝えしていきます。

前回の記事はこちら

エクセルVBAでQueryTableオブジェクトを使って高速にCSVを取り込む方法

エクセルVBAを使用したCSVの取り込みは、ループを使用した方法が一般的です。今回紹介するQuertyTableオブジェクトはループを一切使用せずしかも爆速でCSVの取り込みが可能です。概要を説明します。

一般的に使われている、ループを使用したCSVの取り込みの他に、QueryTableオブジェクトを使用して、高速にCSVを取り込む方法があることをお伝えしました。

QueryTableオブジェクトの概要と、その速さを少しはご理解いただけたと思います。

QueryTableオブジェクトにはたくさんのメソッドやプロパティが存在しますので、CSV取り込みでよく使うもののみを取り上げて行きます。

今回はまず最初にエクセルVBAにクエリテーブルを作成する方法を解説します！

QueryTableオブジェクトでCSVを取り込む方法
まとめ・次回予告
連載目次：エクセルVBAのQueryTableで高速にCSVを取り込む

QueryTableオブジェクトでCSVを取り込む方法

QueryTableオブジェクトでCSVを取り込む場合は、クエリテーブルの作成が必要です。

クエリテーブルとは

Microsoftの公式ページでは下記の通り解説されています。

Excel では、新しいデータベースクエリを作成し、データをそのワークシートに返した際、ワークシート内にクエリテーブルが作成されます。

Excel のクエリテーブルで動的レポートを作成する

「クエリテーブルの作成」とは、エクセルと外部ファイル（今回はCSV）をリンクさせることです。

リンクすることでWorksheet上のクエリテーブルにCSVが取り込まれます。このクエリテーブルは、仮想のテーブルで、実際にセルなどには表示されない見えないテーブルです。

それでは、クエリテーブルを作成する方法を解説していきます。

QueryTables.Addメソッドとは

最初にサンプルコードを。

Private Sub csvSelect()
    Dim strPath As String
    Dim qtCsv   As QueryTable
    
    strPath = "C:\Users\hirom\Desktop\test.csv"
    
    'QueryTableオブジェクトをQueryTables.Addメソッドで追加する
    Set qtCsv = Sheet1.QueryTables.Add(Connection:="TEXT;" & strPath, _
        Destination:=Sheet1.Range("B1")) '取り込むCSVファイルパスと、出力先のシート、セルを指定
    
    Debug.Print "取り込むCSVのパス：" & qtCsv.Connection
    Debug.Print "出力先セルの行番号：" & qtCsv.Destination.Row
    Debug.Print "出力先セルの列番号：" & qtCsv.Destination.Column

End Sub

Worksheetオブジェクト.QueryTables

クエリテーブルを作成するには、WorksheetオブジェクトのQueryTablesプロパティを使って、QueryTableオブジェクトの集まりであるQueryTablesコレクションを参照し、これをオブジェクトとして扱います。

QueryTablesコレクション.Add(Connection,Destination,Sql)

QueryTablesコレクションのAddメソッドを使用して、WorksheetにQueryTableオブジェクトを追加します。

Addメソッドにより、QueryTableオブジェクトが返ります。追加されたQueryTableオブジェクトに対して、CSVの型など様々なプロパティを指定します。（プロパティは次回以降の記事で紹介します）