Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


14276 / 76734 ←次へ | 前へ→

【67957】CSVの取込について
質問  なな  - 11/1/19(水) 11:59 -

引用なし
パスワード
   CSVを読取モードで開いて、データをシート1に読込むようマクロを組んでいますが、どうしても、問題が解決できず困っています

CSV内のデータ
"111","222","333","444","555"
"666","7,77","888","999","10000"
上記のようなcsvデータがあって、
Splitでカンマの位置で分割して配列にしているのですが、
そうすると

下記の行の場合
"666","7,77","888","999","10000"

MySalesData(0)="666"
MySalesData(1)="7"
MySalesData(2)="77"
MySalesData(3)="888"
MySalesData(4)="999"
MySalesData(5)="10000"

となってしまいます
本当は

MySalesData(0)="666"
MySalesData(1)="7,77"
MySalesData(2)="888"
MySalesData(3)="999"
MySalesData(4)="10000"

というようにしたいのですが、
どのようにしたらよいのでしょうか?

どうかアドバイスをお願いします

現在のコード↓

Dim MyFSO As New filesystemobject
Dim MyTextFile As TextStream
Dim vntFileName As Variant
Dim vntGetFileName As Variant

Set MyTextFile = MyFSO.OpenTextFile(vntGetFileName, ForReading)
   Worksheets("シート1").Activate

   With MyTextFile
      .SkipLine
      Do Until .AtEndOfStream = True

       MySalesData = Split(Replace(.ReadLine, """", ""), ",")
        Cells(i,1).Value=MySalesData(0)
        Cells(i,2).Value=MySalesData(1)
        Cells(i,3).Value=MySalesData(2)
        Cells(i,4).Value=MySalesData(3)
        Cells(i,5).Value=MySalesData(4)
       
        i=i+1
     Loop
     .Close
   End With

4 hits

【67957】CSVの取込について なな 11/1/19(水) 11:59 質問
【67958】Re:CSVの取込について Jaka 11/1/19(水) 13:08 発言
【67961】Re:CSVの取込について なな 11/1/19(水) 13:27 発言
【67973】Re:CSVの取込について SS 11/1/20(木) 9:12 発言
【67982】Re:CSVの取込について なな 11/1/21(金) 9:46 お礼
【67974】Re:CSVの取込について Yuki 11/1/20(木) 10:30 発言
【67983】Re:CSVの取込について なな 11/1/21(金) 9:51 お礼
【67975】Re:CSVの取込について kanabun 11/1/20(木) 10:50 発言
【67984】Re:CSVの取込について なな 11/1/21(金) 10:18 お礼
【67976】Re:CSVの取込について Hirofumi 11/1/20(木) 11:28 回答
【67985】Re:CSVの取込について なな 11/1/21(金) 10:22 お礼

14276 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free