エクセルVBAのQueryTable.RefreshメソッドでCSVをシートに出力する方法

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

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

前回の記事はこちら

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

エクセルVBAのQueryTables.AddメソッドでエクセルのWorksheet上にクエリテーブルを追加してそこにCSVを取り込む方法と、出力先セル位置を取得する方法を紹介します。

QueryTables.AddメソッドでWorksheet上にクエリテーブルを作成して、そこにCSVを取り込む方法をお伝えしました。

QueryTableオブジェクトを使用したCSV取り込みを理解する上で、第一歩である「クエリテーブルの作成」は非常に重要な内容でした。

今回は、クエリテーブルに取り込んだCSVをWorksheetに出力する方法をお伝えいたします！

QueryTable.RefreshメソッドでWorksheetにCSVを出力する
1. QueryTable.Addメソッドで作成したクエリテーブルの状態
QueryTable.Refreshとは
1. QueryTable.Refreshの引数
実行結果
まとめ・次回予告
連載目次：エクセルVBAのQueryTableで高速にCSVを取り込む

QueryTable.RefreshメソッドでWorksheetにCSVを出力する

QueryTable.Addメソッドで作成したクエリテーブルの状態

QueryTables.Addメソッドでクエリテーブルを作成しただけではWorksheetを見ても、空の状態です。

なにも反映されていませんね。

クエリテーブルという見えないテーブル上にCSVが取り込まれた状態ですが、まだそれをWorksheetに出力するための命令をしていないからです。

この後、Worksheetに出力する命令が必要となってきます。では、その方法を見ていきましょう！

QueryTable.Refreshとは

今回のサンプルコードは以下の通りです！

Private Sub csvImport()
    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("A1")) '取り込むCSVファイルパスと、出力先のシート、セルを指定
    
    qtCsv.Refresh BackgroundQuery:=False 'CSVをWorksheetに出力する
End Sub

WorksheetにCSVを出力するには以下のメソッドを使用します。

QueryTableオブジェクト.Refreshメソッド(BackgroundQuery)

Refreshメソッドは非常に単純で、QueryTableオブジェクト内のCSVの内容をWorksheetに出力します。もしここでプロパティを設定していれば、設定した内容で出力されます。

このメソッドを実行しないと、取り込んだCSV、設定したプロパティなどはすべて反映されず、Worksheetは空の状態のままになってしまいます。

必ず記述しましょう。