エクセルVBAのQueryTableオブジェクトのプロパティの基本とCSVをカンマ区切りする方法

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

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

今回はいよいよQueryTableオブジェクトのプロパティを紹介します。

前回の記事はこちら

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

エクセルVBAのQueryTable.Refreshメソッドを使用して、クエリテーブルに取り込んだCSVをWorksheetに出力する方法を紹介します。高速にCSVを取り込む方法をシリーズでお伝えしています。

QueryTables.Addメソッドで作成したクエリテーブルをQueryTable.RefreshメソッドでWorksheetに出力するところまで紹介しました。

しかし以前までの記事だとプロパティ指定をしていなかったので、Worksheetに出力されたCSVはデータとして使える形式ではありませんでした。

今回はQueryTableオブジェクトのプロパティの基本をお伝えし、CSVをカンマで区切る方法を解説します。

様々なプロパティを操ることができれば、CSVを様々な形式で取り込むことが可能です！

CSV取り込みで使うQueryTableプロパティ一覧
QueryTableオブジェクトの各プロパティをエクセルの画面上で理解する
QueryTableプロパティの指定方法
1. CSVをカンマ区切りで取り込む
まとめ
連載目次：エクセルVBAのQueryTableで高速にCSVを取り込む

CSV取り込みで使うQueryTableプロパティ一覧

今回のサンプルコードはこちら

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 'カンマ区切りの指定
        .TextFileParseType = xlDelimited   ' 区切り文字の形式
        .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) '項目（列）の型指定
        .TextFileStartRow = 1 '開始行の指定
        .TextFileTextQualifier = xlTextQualifierDoubleQuote '引用符の指定
        .TextFilePlatform = 932 '文字コードの指定
        .Refresh 'QueryTableオブジェクトを更新し、シート上に出力
        .Delete 'QueryTableオブジェクトを削除
    End With
End Sub

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 'カンマ区切りの指定

.TextFileParseType = xlDelimited ' 区切り文字の形式

.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) '項目（列）の型指定

.TextFileStartRow = 1 '開始行の指定

.TextFileTextQualifier = xlTextQualifierDoubleQuote '引用符の指定

.TextFilePlatform = 932 '文字コードの指定

.Refresh 'QueryTableオブジェクトを更新し、シート上に出力

.Delete 'QueryTableオブジェクトを削除

End With

End Sub

QueryTableオブジェクトにはたくさんのプロパティが存在します。CSV取り込みで主に使うプロパティは下記の通りです。

プロパティ名	内容	設定値の型
TextFileCommaDelimiter	カンマ区切り	Boolean(真偽値)
TextFileColumnDataTypes	項目の型	Variant（配列）
TextFileParseType	区切り文字の形式	XlTextParsingTypeクラスの定数
TextFileStartRow	取り込み開始行	long(数値)
TextFileTextQualifier	引用符	XlTextQualifierクラスの定数
TextFilePlatform	文字コード	XlPlatformクラスの定数

では説明していきます！

QueryTableオブジェクトの各プロパティをエクセルの画面上で理解する

プロパティの取っつきにくさで理解が難しい！という方は、実際にエクセルの画面上から操作して、理解を深めましょう。

今回紹介するプロパティはエクセルの画面上からすべて設定可能です。

「テキストファイルウィザード」を開いてみましょう。

データタブ→テキストファイル

から開くことが可能です。

まとめると以下の通りです。

プロパティ名	エクセルの画面上の表記
TextFileCommaDelimiter	区切り文字
TextFileColumnDataTypes	列のデータ形式
TextFileParseType	元のデータ形式
TextFileStartRow	取り込み開始行
TextFileTextQualifier	文字列の引用符
TextFilePlatform	元のファイル