| |
実際のファイル構成がどうなっているのかわからないので、
大体で。
１つのフォルダに集めてDir関数でフルパスファイル名を取得してやっても
良いのだろうけど、基本操作っぽく。
Dir関数やその他のフォルダ単位で処理したい場合は、ヘルプやここを
検索すれば見つかると思います。
Dim Fnm(1 To 15) As String
Dim PPBk As Workbook
Dim SSBk As Workbook
Fnm(1) = "ファイル１のフルパス"
Fnm(2) = "ファイル２のフルパス"
Fnm(3) = "ファイル３のフルパス"
Fnm(4) = "ファイル４のフルパス"
Fnm(5) = "ファイル５のフルパス"
Fnm(6) = "ファイル６のフルパス"
Fnm(7) = "ファイル７のフルパス"
Fnm(8) = "ファイル８のフルパス"
Fnm(9) = "ファイル９のフルパス"
Fnm(10) = "ファイル１０のフルパス"
Fnm(11) = "ファイル１１のフルパス"
Fnm(12) = "ファイル１２のフルパス"
Fnm(13) = "ファイル１３のフルパス"
Fnm(14) = "ファイル１４のフルパス"
Fnm(15) = "ファイル１５のフルパス"
Set PPBk = Workbook.Open ("コピー先ブックのフルパス")
For i = 1 To 15
Set SSBk = Workbook.Open(Fnm(i))
DoEvents
SSBk.Sheets("Sheet1").UsedRange.Copy
PPBk.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial
DoEvents
SSBk.Close (False)
Next
Set PPBk = Nothing
Set SSBk = Nothing
Erase Fnm
|
|
Jaka
- 08/11/28(金) 10:28 -
