質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.06%

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

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 790

score 8

標記の件、以下を参考に検討しています。
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
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • 9999moda

    2020/05/09 08:17

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

    キャンセル

回答 1

checkベストアンサー

+1

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

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

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

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2020/05/09 09:59

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

    キャンセル

  • 2020/05/09 10:15 編集

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

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.06%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る