|
▼かずぴち さん:
>済みません。教えてください。
>実行時エラー '1004':
多分Workbooks.Openの行で出ていると思います。
「b」というブックが見出だせないのです。
Pathを明示すると良いでしょう。試してみてください。
Sub test2()
Workbooks("a.xls").Activate
Cells.Select
Selection.Copy
Workbooks.Open Filename:=(ThisWorkbook.Path & "\b.xls")
Sheets(1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
または
Sub test3()
Dim a As Workbook
Dim b As Workbook
Set a = ThisWorkbook
Set b = Workbooks.Open(ThisWorkbook.Path & "\b.xls")
With a.Sheets(1).UsedRange
.Copy b.Sheets(1).Range("A1")
End With
End Sub
|
|