Excel VBA質問箱 IV

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

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


64443 / 76738 ←次へ | 前へ→

【16876】Re:複数のファイルをひとつのファイルにまとめる
質問  初心者 E-MAIL  - 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関数でファイルを取得)で繰り返せばよいだけだと思います。
0 hits

【16874】複数のファイルをひとつのファイルにまとめる 初心者 04/8/14(土) 0:06 質問
【16875】Re:複数のファイルをひとつのファイルにま... IROC 04/8/14(土) 1:18 回答
【16876】Re:複数のファイルをひとつのファイルにま... 初心者 04/8/14(土) 1:49 質問
【16881】Re:複数のファイルをひとつのファイルにま... IROC 04/8/14(土) 13:20 回答
【16890】Re:複数のファイルをひとつのファイルにま... 初心者 04/8/14(土) 18:18 質問
【16892】Re:複数のファイルをひとつのファイルにま... IROC 04/8/14(土) 20:58 回答
【16894】Re:複数のファイルをひとつのファイルにま... 初心者 04/8/14(土) 21:54 質問
【16895】Re:複数のファイルをひとつのファイルにま... 初心者 04/8/14(土) 22:00 お礼
【16896】Re:複数のファイルをひとつのファイルにま... IROC 04/8/14(土) 23:25 回答
【16898】Re:複数のファイルをひとつのファイルにま... 初心者 04/8/15(日) 1:01 お礼

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