Excel VBA質問箱 IV

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

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


55755 / 76738 ←次へ | 前へ→

【25750】Re:複数のブックのデータをひとつにまとめた...
回答  だるま WEB  - 05/6/13(月) 17:02 -

引用なし
パスワード
   こんにちは

こんな感じでしょうか。^d^

Sub Books2Sheet()
  Dim rngDest As Range
  Dim myPath As String
  Dim myBookName As String
  Dim myBook As Workbook
  Dim mySheet As Worksheet
  
  myPath = ThisWorkbook.Path & "\"
  
  myBookName = Dir(myPath & "*.xls")
  If myBookName = "" Then Exit Sub
  
  Set rngDest = Workbooks("BOOKA.xls").Range("A2")
  
  Do While Not myBookName = ""
    If myBookName = ThisWorkbook.Name Then
      'nop
    Else
      Set myBook = Workbooks.Open(myPath & myBookName)
      For Each mySheet In myBook.Worksheets
        With mySheet.UsedRange
          .Copy rngDest
          Set rngDest = rngDest.Offset(.Rows.Count, 0)
        End With
      Next
      myBook.Close False
    End If
    myBookName = Dir()
  Loop
        
End Sub

0 hits

【25749】複数のブックのデータをひとつにまとめた... KOTARO 05/6/13(月) 15:51 質問
【25750】Re:複数のブックのデータをひとつにまとめ... だるま 05/6/13(月) 17:02 回答
【25756】Re:複数のブックのデータをひとつにまとめ... KOTARO 05/6/13(月) 19:21 発言
【25757】Re:複数のブックのデータをひとつにまとめ... だるま 05/6/13(月) 19:48 回答
【25758】Re:複数のブックのデータをひとつにまとめ... KOTARO 05/6/13(月) 20:24 発言
【25760】Re:複数のブックのデータをひとつにまとめ... だるま 05/6/13(月) 20:40 回答
【25761】Re:複数のブックのデータをひとつにまとめ... KOTARO 05/6/13(月) 21:11 発言
【25762】Re:複数のブックのデータをひとつにまとめ... だるま 05/6/13(月) 21:26 回答
【25765】Re:複数のブックのデータをひとつにまとめ... KOTARO 05/6/13(月) 22:16 発言
【25777】Re:複数のブックのデータをひとつにまとめ... だるま 05/6/14(火) 11:17 回答
【25783】Re:複数のブックのデータをひとつにまと... KOTARO 05/6/14(火) 17:35 発言
【25788】Re:複数のブックのデータをひとつにまと... だるま 05/6/14(火) 19:47 回答
【25805】Re:複数のブックのデータをひとつにまと... KOTARO 05/6/15(水) 9:19 発言
【25807】Re:複数のブックのデータをひとつにまと... だるま 05/6/15(水) 11:23 回答
【25822】Re:複数のブックのデータをひとつにまと... KOTARO 05/6/15(水) 17:10 お礼

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