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 |
| ``` |
