|
Jakaさん
まず二つのファイルでやってみましたが、実行時にエラー421がでました、
その内容はオブジェクト・・・。
問題の所在はどこにあるのかは分からなくて、ご指導下さい。
Sub TEST00001()
Dim Fnm(1 To 2) As String ・・・・>二つのファイルのため、2にした
Dim PPBk As Workbook
Dim SSBk As Workbook
Fnm(1) = "C:\ABC\000001.XLS"
Fnm(2) = "C:\ABC\000002.XLS"
Set PPBk = Workbook.Open("C:\ABC\結果.XLS") ・・・・>二つのファイルを
結果に収めるための
ファイル結果.XLS
For i = 1 To 2
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
End Sub
|
|