回答編集履歴

1 補足

ELBE

ELBE score 253

2019/04/02 01:34  投稿

これでできます。
```VBA
copyBook = ThisWorkbooks.Name
stTestFile = "test.xlsx"
Workbooks.Open Filename:=stTestFile
Workbooks(copyBook).Activate
Sheets(1).Copy _
Before:=Workbooks(stTestFile).Sheets(1)
```  
 
また、現在使用中のデータ範囲のみ(例えば、Range("C2:F30"))を別ブックのRange("A1")から貼り付ける場合は下記でもできます。  
```VBA  
copyBook = ThisWorkbooks.Name  
stTestFile = "test.xlsx"  
 
Workbooks.Open Filename:=stTestFile  
 
copyBook.Activate  
copyBook.UsedRange.Copy  
 
Workbooks(stTestFile).Activate  
Range("A1").PasteSpecial  
```

思考するエンジニアのためのQ&Aサイト「teratail」について詳しく知る