VBA CSV データの取り込み（QueryTables.Add)

Question

標記の件、以下を参考に検討しています。
VBA CSV ファイルの読み込み (QueryTables.Add 関数を使う)

Excelに指定のCSVファイルを読み込み、所定フォーマットに整理するマクロを作成していますが、読み込み段階で失敗しています。
末尾コードで、このCSVファイル（dropbox link)を読み込もうとしていますが、Excelには途中までしか読み込まれません。
一方 vbaを使わず、Excelの[データ] タブから、[データの取得 & 変換] 、[ Text/CSV] をクリックして読み込むと、最後まで読み込みできます。
csvファイルではなく、コードに問題があると思いますが、特定できておりません。アドバイス頂きたく、よろしくお願いいたします。

Sub import_CSV_QueryTables_Add()

 

Dim ws As Worksheet

Set ws = ActiveSheet ' CSV のデータを取り込むシート

 

Dim ip As String

ip = "C:\パス省略\https___www.sej.co.jp_i_item_0.csv"  'Input file's Path、取り込むファイルのパス

 

Dim qt As QueryTable

Set qt = ws.QueryTables.Add("text;" & ip, ActiveSheet.Range("A1")) ' CSV を開く

 

With qt

    .TextFilePlatform = 65001          ' 文字コードを指定

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

    .TextFileCommaDelimiter = True   ' カンマ区切り

    .RefreshStyle = xlInsertEntireRows ' 表示されるセルにデータがあるときは、上書きされないように必要な分の列を挿入します

    .Refresh                         ' データを表示

    .Delete                          ' CSV との接続を解除

 

End With

End Sub

Comments

[9999moda]

追記します。
・途中まで:「三陸産早採りわかめの冷たいおそば」の行まで読み込れる。
・最後まで:「北海道産小豆使用 冷やし白玉ぜんざい」の行まで読み込れる。

Answer 1

CSVのデータを見てみました。

「三陸産早採りわかめの冷たいおそば」の行に、セル内改行が含まれているようです。
具体的には、【「カラダへの想いこの手から」対象商品】の直前です。

セル内改行とは、、、
aaaa, "bbxbb", cccc
上記の「x」の位置に改行記号がきているパターンです。
これを何とかする必要があると思います。

今回のデータでは、改行が含まれるセルは「"」で囲まれてるようです。

見たところ、セル内改行はこの一か所だけのようですので、
手動で改行記号と「"」記号を削除するか「改行記号＋【「カラダへの想いこの手から」対象商品】」
の部分を削除すれば、読み取れるのではないでしょうか？

Comments

[9999moda]

回答ありがとうございます。たしかに今回のCSVファイルの中では、「三陸産早採りわかめの冷たいおそば」だけが【「カラダへの想いこの手から」対象商品】であり、セル内改行が含まれていますね。気付いておりませんでした、、
Excelの読み込み機能では処理できるので、先に記載のコードに手を加えて、VBAで処理できないか検討してみます。

[9999moda]

セル内改行への対応については次リンク先が参考になると考えました。元の質問については問題特定できましたので、解決済にします。
VBA - Excel QueryTable上のデータの特定文字列をVBAで置換してから出力したい｜teratail
https://teratail.com/questions/171311