エクセルVBAで高速にCSVを取り込むQueryTableオブジェクトの最終処理

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

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

前回の記事はこちら

エクセルVBAのQueryTableオブジェクトであらゆる種類のCSVを取り込む方法

エクセルVBAでCSVを爆速で取り込むQueryTableオブジェクトには様々なプロパティが存在します。このプロパティを使いこなすことであらゆる種類のCSVをシンプルなソースコードで取り込むことができます。

QueryTableオブジェクトはただ速いだけでなく、UTF-8などのあらゆる種類のCSVを取り込むことができること、それらをシンプルなソースコードで実現できることを紹介しました。

今回は、QueryTableオブジェクトを使用したCSV取り込みの最終処理であるQueryTable.Deleteメソッドを紹介します。

最終処理･･･地味な内容に聞こえるかもしれませんが、忘れると大変。非常に重要です！

最終処理としてクエリテーブルを削除する
1. なぜクエリテーブルの削除が必要か？
2. クエリテーブルを削除する方法
まとめ
連載目次：エクセルVBAのQueryTableで高速にCSVを取り込む

最終処理としてクエリテーブルを削除する

QueryTables.Addメソッドを使用するとWorksheet上にはクエリテーブルが作成されます。

以前に以下の記事で解説した内容です。

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

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

QueryTableオブジェクトを使用したCSVの取り込みは以下の流れで実現しています。

新しいクエリテーブルを作成
クエリテーブルにCSVを取り込む
クエリテーブル上のCSVをWorksheetに出力する

Worksheet上にCSVを出力した後も、クエリテーブルは残ってしまっている状態です。

なぜクエリテーブルの削除が必要か？

クエリテーブルは外部ファイルとリンクされているテーブルです。

リンクされていますので、設定によっては取り込み元のCSVを更新したら、エクセルに取り込んだCSVまで更新されてしまう場合があります。

リンクは、エクセルを開く際に自動的に取り込み元のCSVの内容に合わせてWorksheet上のデータを更新したり、一定時間ごとに自動更新する設定がエクセルの機能としてあります。

以下の画面です。

今回QueryTableオブジェクトで実現したいのは、リンクすることではなく、CSVをエクセルに高速に取り込むことです。

クエリテーブルの削除を忘れてしまうとリンクが残ったままになるだけでなく、複数のCSVを連続して取り込んだ場合に、クエリテーブルがWorksheet上に大量に生成されて様々な不具合の原因となってしまいます。

不具合を招くので、CSVを取り込むだけであれば、基本的にクエリテーブルは不要です。削除してしまいましょう。

クエリテーブルを削除することで、リンクは解除され、取り込んだCSVはただのデータとなります。

ちなみに、クエリテーブルの削除を忘れて、Worksheet上のデータを削除しようとすると、以下のような確認画面がでます。これが出たらクエリテーブルが残っている状態です。

クエリテーブルを削除する方法

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

Private Sub csvImport()
 
    Dim strPath As String
    Dim qtCsv   As QueryTable
    
    strPath = "C:\Users\hirom\Desktop\test.csv"
    Set qtCsv = Sheet1.QueryTables.Add(Connection:="TEXT;" & strPath, _
        Destination:=Sheet1.Range("A1")) '取り込むCSVファイルパスと、取り込み先のシート、セルを指定
    
    With qtCsv
        .TextFileCommaDelimiter = True 'カンマ区切りの指定
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) '項目（列）の型指定
        .Refresh 'QueryTableオブジェクトを更新し、シート上に出力
        .Delete 'QueryTableオブジェクトを削除
    End With
End Sub

以下のメソッドを使用します。

QueryTableオブジェクト.Deleteメソッド

QueryTables.Addメソッドで追加したクエリテーブルを削除します。

CSV取り込みのQueryTableプロパティを設定し、Worksheet上に出力した後に実行する最終処理です。

実行を忘れても、一見うまくいったように見えますが、上述したとおり不具合の原因となりますので必ず忘れずに記述してください。