|
▼夜勤担当 さん:
>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") ・・・・>二つのファイルを
' ↑ Workbooks.Openにしたら?
> 結果に収めるための
> ファイル結果.XLS
>
>For i = 1 To 2
> Set SSBk = Workbook.Open(Fnm(i))
' ↑ Workbooks.Openにしたら?
> 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
|
|