Excel VBA質問箱 IV

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

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


41675 / 76732 ←次へ | 前へ→

【40136】フォルダ内のファイル読み込み
質問  みぽりん  - 06/7/7(金) 13:47 -

引用なし
パスワード
   こんにちは。ヘルプを見ても意味があまりよくわからないほどの
レベルです。宜しくお願いいたします。

フォルダ内にBNDファイルというファイルが120くらいあって、(CSVファイルって言うんでしょうか?テキストファイルとして読み込めます。)1つのファイルを読み込むと、A1からE16までデータが入っています。このデータを

ファイル1 C7 C9 C8 C13 C15 C14 
ファイル2 C7 C9 C8 C13 C15 C14 
ファイル3 C7 C9 C8 C13 C15 C14
・・・・
ファイル120

という風に表にしたいと思っています。
質問箱の過去のものを検索して私でもなんとか内容が理解できるものが、以下の
記事でした。1行だけ読み込むマクロなので、私がやりたいこととは
違うのですが、ここまでは実際に試してできました。

[#25953]
Option Explicit
Sub Macro1()
 Dim MyPath As String
 Dim MyName As String
 Dim OpenFileName As String
 Dim n As Long
 Dim buf As Variant
 Dim tmp As String
 Dim RowNo As Long

 MyPath = ThisWorkbook.Path ' CSVのフォルダ名の指定
 MyName = Dir(MyPath & "\*.csv") 'CSVファイルすべて
 RowNo = 1
 Do While MyName <> ""  ' ループを開始します。
  '元のCSVファイル名のフルパス
  OpenFileName = MyPath & "\" & MyName
  
  '変更したファイルをテキストモードで開く
  n = FreeFile
  Open OpenFileName For Input As #n
  '最初の1行を読み込む
  Line Input #n, tmp
  Close #n
  'カンマごとに区切る
  buf = Split(tmp, ",")
  'Ax:Dx(xは行番号)セルに書き込む
  Range("A" & RowNo & ":D" & RowNo) = buf
  '行番号をカウントアップ
  RowNo = RowNo + 1
  '次のファイルを探す
  MyName = Dir
 Loop
 MsgBox "終了"
End Sub

 この後、どう変更すればよいのかよくわかりません。
1行ではなくて16行ある場合はどうしたらよいのか。
そのうち必要なデータのみ抽出するにはどうしたらよいのか。
初歩的な質問で大変申し訳ありませんが、教えていただけないでしょうか?
宜しくお願いいたします。

0 hits

【40136】フォルダ内のファイル読み込み みぽりん 06/7/7(金) 13:47 質問
【40140】Re:フォルダ内のファイル読み込み ちくたく 06/7/7(金) 14:09 回答
【40147】Re:フォルダ内のファイル読み込み みぽりん 06/7/7(金) 15:22 質問
【40141】Re:フォルダ内のファイル読み込み ひげくま 06/7/7(金) 14:12 発言
【40143】Re:フォルダ内のファイル読み込み ハチ 06/7/7(金) 14:57 回答
【40152】Re:フォルダ内のファイル読み込み みぽりん 06/7/7(金) 15:59 質問
【40157】Re:フォルダ内のファイル読み込み ハチ 06/7/7(金) 16:39 発言
【40263】Re:フォルダ内のファイル読み込み みぽりん 06/7/10(月) 11:45 質問
【40162】Re:フォルダ内のファイル読み込み Kein 06/7/7(金) 17:34 回答
【40238】Re:フォルダ内のファイル読み込み みぽりん 06/7/10(月) 9:54 質問
【40242】Re:フォルダ内のファイル読み込み Blue 06/7/10(月) 10:01 回答
【40243】Re:フォルダ内のファイル読み込み かみちゃん 06/7/10(月) 10:04 発言
【40250】Re:フォルダ内のファイル読み込み みぽりん 06/7/10(月) 10:34 お礼
【40255】Re:フォルダ内のファイル読み込み みぽりん 06/7/10(月) 10:55 質問
【40258】Re:フォルダ内のファイル読み込み みぽりん 06/7/10(月) 11:14 お礼
【40260】度々すみませんが、教えてください。 みぽりん 06/7/10(月) 11:37 質問
【40262】Re:度々すみませんが、教えてください。 Blue 06/7/10(月) 11:43 回答
【40276】Re:度々すみませんが、教えてください。 みぽりん 06/7/10(月) 15:17 お礼

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