|
セブン さん、みなさん、こんばんは。
>
>
>タイトル1,タイトル2,タイトル3,タイトル4DATE1,DATE2,DATE3,DATE4,
実はこれ↑タイトル4とDATE1の間には、表示されないコードがあるのでは
ありませんか?例えば、VbcrコードとかVblfコードとか
そうだと仮定すると・・・、
Sub testread()
Dim dat1 As Variant
Dim rw As Long
Dim myarray As Variant
Dim partarray As Variant
Open "d:\csvtest.csv" For Input As #1
' ↑これは、実際のファイルを指定して下さい
rw = 1
Do Until EOF(1)
Line Input #1, dat1
myarray = Split(dat1, vbLf)
For idx = LBound(myarray) To UBound(myarray)
partarray = Split(myarray(idx), ",")
Range(Cells(rw, 1), Cells(rw, UBound(partarray) - LBound(partarray) + 1)).Value = partarray
rw = rw + 1
Next idx
Loop
Close #1
End Sub
|
|