Excel VBA質問箱 IV

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

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


64432 / 76732 ←次へ | 前へ→

【16881】Re:複数のファイルをひとつのファイルにまとめる
回答  IROC  - 04/8/14(土) 13:20 -

引用なし
パスワード
   >それをどのようにLoopすれば良いのでしょうか?
Do〜Loop 文で順次ファイル名を取得できるので、
それに併せて、ブックを開いて処理します。

まとめたいブックの Mydataは、このマクロのブックですよね?
ならthisworkbook で指定できます。

以下のような感じで出来ると思います。
画面のちらつきは、screenupdatingで停止できます。

Sub TEST()
Dim myPath As String
Dim ファイル名 As String, i As Long
dim myWb as workbook,Wb as workbook

  myPath = "C:\Documents and Settings\Owner\デスクトップ\MyData\"
  ファイル名 = Dir(myPath & "*.xls")


  Do While ファイル名 <> ""
    i = i + 1
    Worksheets("Sheet1").Cells(i, 1) = ファイル名

    set wb = Workbooks.open myPath & ファイル名
    
    wb.worksheets(1).copy _
    Before:=Thisworkbook.Sheets(1) 

    wb.close false

    ファイル名 = Dir()
  Loop
End Sub

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

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