Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

64437 / 76732

←次へ　｜　前へ→


	【16876】Re:複数のファイルをひとつのファイルにまとめる

初心者

- 04/8/14(土) 1:49 -


	引用なし

	パスワード

Sub TEST()
　　Dim ファイル名 As String, i As Long
　　ファイル名 = Dir("C:\Documents and Settings\Owner\デスクトップ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　\MyData\*.*")
　　Do While ファイル名 <> ""
　　　　i = i + 1
　　　　Worksheets("Sheet1").Cells(i, 1) = ファイル名
　　　　ファイル名 = Dir()
　　Loop
End Sub

たとえば上のようにシートに取得したファイル名を書き出すまで処理を書きました。それをどのようにLoopすれば良いのでしょうか？
よろしくお願いします。

▼IROC さん：
>どこが分からないのでしょうか？
>
>どのようにまとめるのか分かりませんが、
>ファイルが開けたなら、
>コピー→ファイルを閉じる（←マクロの記録で出来ると思います。）
>をループ文（Dir関数でファイルを取得）で繰り返せばよいだけだと思います。

2 hits

▼

【16874】複数のファイルをひとつのファイルにまとめる 初心者 04/8/14(土) 0:06