Excel VBA質問箱 IV

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

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


55477 / 76738 ←次へ | 前へ→

【26035】Re:Input #ステートメントについて
回答  りん E-MAIL  - 05/6/22(水) 12:38 -

引用なし
パスワード
   よち さん、こんにちわ。

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

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