|
りんさん ありがとうございます。
もう少しで解決できそうです。
あと、問題点があります。
この処理には、前段階で、2項目目の日時をIFで判別しています。
期間的に何日〜何日の間のデータの抽出なので、
出来れば、セルに入力させてからの処理ではなく、変数内での処理は出来ないでしょうか。
宜しくお願いします。
▼りん さん:
>よち さん、こんにちわ。
>
>>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
>
>こんな感じです。
|
|