Excel VBA質問箱 IV

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

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


55475 / 76738 ←次へ | 前へ→

【26037】Re:Input #ステートメントについて
質問  よち  - 05/6/22(水) 12:58 -

引用なし
パスワード
   りんさん ありがとうございます。

もう少しで解決できそうです。

あと、問題点があります。
この処理には、前段階で、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
>
>こんな感じです。

0 hits

【26034】Input #ステートメントについて よち 05/6/22(水) 12:15 質問
【26035】Re:Input #ステートメントについて りん 05/6/22(水) 12:38 回答
【26037】Re:Input #ステートメントについて よち 05/6/22(水) 12:58 質問
【26040】Re:Input #ステートメントについて りん 05/6/22(水) 14:30 回答
【26048】Re:Input #ステートメントについて よち 05/6/22(水) 16:09 お礼
【26036】Re:Input #ステートメントについて(その2... りん 05/6/22(水) 12:42 回答
【26045】Re:Input #ステートメントについて だるま 05/6/22(水) 14:57 回答
【26049】Re:Input #ステートメントについて よち 05/6/22(水) 16:12 お礼

55475 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free