VBA CSVデータの取り込み

Question

ご覧下さり有難う御座います。

現在、Excelのvbaにて指定のCSVファイルの内容を読み込み、それをExcel側で作成したフォーマットの指定のセルに表示するマクロを作成しております。

今のところQueryTable.Addを使用した下記のようなものを作成しておりますが、指定のセルに表示するどころか内容を取り込む事すら出来ておりません。

こういった場合、どの様なマクロを作成するのがよろしいでしょうか？

私は現在こういった分野において初心者であり、右も左も分からない状況ですので、何かアドバイス頂けると幸いです。

何卒宜しくお願い致します。

Dim ws As Worksheet
Set ws = Activesheet

Dim qt As QueryTable
Set qt = ws.QueryTables.Add(Connection:=“TEXT;対象のCSVファイルのアドレス”,Destnation:=ws.Range(“A1”))

With qt
.TextFilePlatform = 932
.TextFileParseType = clDelimited
.TextFileCommaDelimiter = True
.RefreshStyle = xlOverwriteCells
.Refresh
.Delete

End With

End Sub

Answer 1

以下を参考にされたのでしょうか？
VBA CSV ファイルの読み込み (QueryTables.Add 関数を使う)

clDelimited はxlDelimitedのタイプミスですか？
タイプミスが無いなら、CSVの形式ですね。
CSVの形式に合っていないのではないでしょうか。

Comments

[t.k.o]

ご回答いただき有難うございます。

おっしゃる通り、そちらのサイトを参考にし、ほとんど丸写しで作成しました。

clDelimitedについてはタイプミスです。
分かりづらくて申し訳ありません

[sazi]

CSVの形式(項目区切り文字、文字区切り文字）を質問に追記して下さい。
一般的な（(項目区切り文字=`,`(カンマ)、文字区切り文字=`"`(ダブルクオート)）であれば質問のコードで問題ない気がします。

Answer 2

Destnation:=ws.Range(“A1”))
についても、
Destination:=ws.Range(“A1”))
で、
「Destination」の最初の「i」が抜けている、ということはないでしょうか？

当方で、他の回答者様のご提示されたWebページのコードをExcelにコピペし、カンマ区切りのcsvを作って試してみましたところ、一応正常にcsvの内容をシートに取り込めました。

Answer 3

QueryTableは使ったことがないのでアドバイスできませんが、私がやるとしたら次のどちらかになるかと思います。

１．自力で１行ずつ読み込む

ファイルを自力でオープン。
1行ずつ読み込み、読み込んだ文字列をカンマで分解、それをシートに貼り付ける。
これをEOFまで繰り返す。

２．CSVファイルをブックとして扱う

ブックとして開く。
開いたブック内のシートをコピペする。

Comments

[t.k.o]

ご回答頂き有難うございます。
調べたところファイルのを自力で一行ずつ読み込む方法が良さそうでしたので、そちらを試してみようと思います。

[ttyp03]

書き忘れましたが、１の方法の場合、値に改行した文字列があったり、ダブルクォーテーションで括ってあったりすると、少々面倒なことになりますのでご注意ください。