|
よち さん、こんにちわ。
>Input # ステートメントは、データを囲むダブルクォーテンション(")、データを区切るカンマ(,)、また、行の終わりのキャリッジリターンや改行コードで区切ると思うのですが、下記のテキストを以下のように読み込むにはどのようにすればよいのか、わかる方がいましたら教えてください。
>"プリント",2005/02/26 17:00:00,"JNB01177","た,め,し.pdf",0,0,1,0,0,0,0,0
>"プリント",2005/02/26 18:00:00,"JNB01178","て,すと.pdf",0,0,1,0,0,0,0,0
>"プリント",2005/02/26 19:00:00,"JNB01179","ためし.xls",0,0,1,0,0,0,0,0
>"プリント",2005/02/26 20:00:00,"JNB01180","てす,と.doc",0,0,1,0,0,0,0,0
Sub test()
Dim NN&, A$
'Dドライブのルートにtest.csvという名前で保存してあるとして
Open "d:\test.csv" For Input As #1
Do Until EOF(1)
NN& = NN& + 1
Line Input #1, A$ 'とりあえず区切らずに読み込む
Cells(NN&, 1).Value = A$
Loop
Close #1
'データ→区切り位置→タブやカンマ(略)
Range(Cells(1, 1), Cells(NN&, 1)).TextToColumns Destination:=Range("A1"), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Comma:=True
End Sub
こんな感じです。
|
|