Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14280 / 76738

←次へ　｜　前へ→


	【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

2 hits

▼

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

≪