Excel VBA QueryTableを使用してテキストファイルを読み込む

QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】を使用してテキストファイルを読み込む方法

テキストファイルをワークシートに読み込む方法は、Workbooks【ﾜｰｸﾌﾞｯｸｽ】コレクションのOpenText【ｵｰﾌﾟﾝﾃｷｽﾄ】メソッドなどを使用する方法もありますが、ここでは「外部データの取り込み」を表すQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを利用してワークシートにテキストファイルを読み込む方法について解説します。

QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】を使用してテキストファイルを読み込む手順

1．QueryTabls【ｸｴﾘｰﾃﾌﾞﾙｽﾞ】コレクションのAdd【ｱﾄﾞ】メソッドを使用して、新しいデータベースクエリ（QueryTableオブジェクト）を作成します。Query【ｸｴﾘ】は「問い合わせ」という意味がありTable【ﾃｰﾌﾞﾙ】は「表」という意味があります。

2．作成されたQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトに対してテキストを設定するプロパティを使用して読み込みの設定をします。

3．QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのRefresh【ﾘﾌﾚｯｼｭ】メソッドを使用してQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを更新してワークシートに内容を表示します。

4.　QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのDelete【ﾃﾞﾘｲﾄ】メソッドを使用してQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを削除します。

QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトでCSVファイルをワークシートに読み込み例

※CSVとは「Comma Separated Value」【ｶﾝﾏｾﾊﾟﾚｰﾃｯﾄﾞﾊﾞﾘｭｰ】の略で「,」カンマ区切りの値という意味で、さまざまなアプリケーション間でのデータの受け渡しに利用されるファイル形式です。

「各店売上.csv」テキストファイルをワークシートに読み込むコードと解説

Sub テキスト読み込み()
With ActiveSheet.QueryTables.Add _
(Connection:="TEXT;" & ThisWorkbook.Path & "¥各店売上.csv", _
Destination:=Range("A1"))
.TextFileCommaDelimiter = True
.TextFileColumnDataTypes = Array(5, 2, 1)
.Refresh
.Delete
End With
End Sub

2行目～4行目【With ActiveSheet.QueryTables.Add _
(Connection:=”TEXT;” & ThisWorkbook.Path & “¥各店売上.csv”, _
Destination:=Range(“A1”))】
QueryTables【ｸｴﾘﾃｰﾌﾞﾙｽﾞ】コレクションのAdd【ｱﾄﾞ】メソッドを使用して、新しいQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを追加し、With【ｳｨｽﾞ】ステートメントで指定します。引数のConnection【ｺﾈｸｼｮﾝ】には接続するデータの種類とデータの場所を接続文字列として指定します。接続するデータの種類はCSVファイルはテキストデータなので「”TEXT;”」と指定します。データの場所（パス）はWorkbook【ﾜｰｸﾌﾞｯｸ】オブジェクトのPath【ﾊﾟｽ】プロパティを使用して「ThisWorkbook」つまり、このコードが記述されているブックと同じ場所（パス）にある「各店売上.csv」を指定します。引数Destination【ﾃﾞｨｽﾃｨﾈｰｼｮﾝ】にはQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクト内のデータを返すセルをRange【ﾚﾝｼﾞ】オブジェクトで指定します。ここではA1セルに指定します。

5行目【.TextFileCommaDelimiter = True】
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのTextFileCommaDelimiter【ﾃｷｽﾁﾌｧｲﾙｶﾝﾏﾃﾞﾘﾐﾀ】プロパティにTrueを設定することでデータの区切り位置をカンマに指定します。

6行目【.TextFileColumnDataTypes = Array(5, 2, 1)】
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのTextFileColumnDataTypes【ﾃｷｽﾄﾌｧｲﾙｶﾗﾑﾃﾞｰﾀﾀｲﾌﾟｽ】プロパティにデータの各列に適用するデータ型をArray【ｱﾚｲ】関数を使用して1列目から順に配列に格納して設定します。設定値はXlColumnDataType 列挙型の値または定数を使用します。

7行目【.Refresh】
QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのRefresh【ﾘﾌﾚｯｼｭ】メソッドを使用して各プロパティで設定した内容を反映してQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを更新し、ワークシートに内容を書き込みます。

8行目【.Delete】
Refresh【ﾘﾌﾚｯｼｭ】メソッドでワークシートにQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのデータの書き込みが終了したので、QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトのDelete【ﾃﾞﾘｲﾄ】メソッドでQueryTable【ｸｴﾘﾃｰﾌﾞﾙ】オブジェクトを削除します。

実行結果

以上で、QueryTable【ｸｴﾘﾃｰﾌﾞﾙ】を使用してテキストファイルを読み込む方法についての解説を終了します。ありがとうございました。