|
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
|
|