【ExcelVBA入門】QueryTablesメソッドで高速にファイルを読み込む方法

皆さんは、VBAのQueryTablesメソッドを使って高速にファイルを読み込む方法を知っていますか？

QueryTablesメソッドを使えば簡単にファイルを読み込むことができるのでおすすめです！

そこで今回は、

QueryTablesメソッドの基礎的な使い方
QueryTablesメソッドを使ったサンプルコード
エラーが出たときの対処方法について
マクロの記録を使って速くコードを書く方法

といった基礎的なことから、応用的な方法まで、徹底的に解説します！

この記事の目次

1 VBAでファイルを読み込む方法
2 QueryTablesメソッドの使い方
3 サンプルコード
4 補足：その他の処理高速化方法とは
5 まとめ

VBAでファイルを読み込む方法

VBAでは、ファイルを読み込む方法が大きく分けて2つあります。

Openメソッドを使って1行ずつデータを読み込む
QueryTablesメソッドを使ってファイルを読み込む

それぞれ、次のようなメリットがあります。

Openメソッド：シンプルな使い方でわかりやすい
QueryTablesメソッド：処理速度が圧倒的に速い

ファイル読み込みで検索すると、最初にOpenメソッドの使い方が出てくるケースが多いため、Openメソッドを使っている方も多いです。

ただ、処理が速いのはQueryTablesメソッドなので、CSV読み込みなど大規模データを取り込む場合は、QueryTablesメソッドを使うのがおすすめです！

今回は、QueryTablesメソッドの使い方に特化して解説するので、Openメソッドについて気になる方は以下を見てみてくださいね！

【VBA入門】OpenメソッドでテキストファイルやCSVの読み込み

更新日 : 2019年5月26日

QueryTablesメソッドの使い方

次に、QueryTablesメソッドの使い方について解説します。

QueryTablesメソッドは読み込むファイル指定したあと、プロパティ・メソッドで詳細な設定を追加して使います。

Dim queryTb As QueryTable
Set queryTb = Worksheets(1).QueryTables.Add(Connection,Destination)

With queryTb
	.プロパティ1
	.プロパティ2
	.プロパティ3
	.メソッド1
	.メソッド2
End With

AddメソッドはConnectionで読み込むファイル形式・ファイルパスを設定し、Destinationで値の貼り付け開始位置を指定します。

プロパティ・メソッドは数が多いので、よく使うものだけ抜粋して一覧化しました。

No	プロパティ・メソッド	概要
1	TextFilePlatform	文字コードの指定・932：Shift_JIS ・65001：UTF-8
2	TextFileParseType	区切り文字の方式・xlDelimited：区切り文字によってファイルが区切る・xlFixedWidth：ファイルのデータを固定幅の列として認識
3	TextFileCommaDelimiter	カンマ区切りに設定。True/Falseで指定。
4	TextFileTabDelimiter	タブ区切りに設定。True/Falseで指定。
5	TextFileSemicolonDelimiter	セミコロン区切りに設定。True/Falseで指定。
6	TextFileSpaceDelimiter	スペース区切りに設定。True/Falseで指定。
7	TextFileOtherDelimiter	区切り文字を指定できるに設定。True/Falseで指定。
8	TextFileStartRow	読み込み開始行の指定に設定。True/Falseで指定。
9	RefreshStyle	セルを上書きするか追加するかを設定する・xlOverwriteCells ：セルは追加せず上書きする・xlInsertDeleteCells ：レコードに合わせ行を追加削除する・xlInsertEntireRows ：セル又は行を削除せず、行を挿入する
10	FieldNames	フィールド名を列名に設定。True/Falseで指定。
11	Refresh	実行するとデータを表示する
12	Delete	読み込むファイルとの接続を解除

サンプルコード

次に、サンプルコードをもとに、具体的な使い方を解説します！

読み込むCSVファイルデータ：

No,Name
1,侍エンジニア1
2,侍エンジニア2
3,侍エンジニア3
4,侍エンジニア4

サンプルコード：

Sub Test()
  Dim wsImport As Worksheet
  Set wsImport = Worksheets("CSV読み込み") 'CSVデータを取り込み用シート

  '読み込むファイル
  Dim strFilePath As String
  strFilePath = "C:UsersSamuraiDesktopVBAQueryTablesサンプルtest.csv"

  Dim queryTb As QueryTable
  Set queryTb = wsImport.QueryTables.Add(Connection:="TEXT;" & strFilePath, _
                                         Destination:=wsImport.Range("A1")) ' CSV を開く
  With queryTb
      .TextFilePlatform = 932          ' 文字コードを指定
      .TextFileParseType = xlDelimited ' 区切り文字の形式
      .TextFileCommaDelimiter = True   ' カンマ区切り
      .RefreshStyle = xlOverwriteCells ' セルに書き込む方式
      .Refresh                         ' データを表示
      .Delete                          ' CSVファイルとの接続を解除
  End With
End Sub

実行結果：