回答編集履歴
1
補足
answer
CHANGED
|
@@ -8,4 +8,18 @@
|
|
|
8
8
|
Workbooks(copyBook).Activate
|
|
9
9
|
Sheets(1).Copy _
|
|
10
10
|
Before:=Workbooks(stTestFile).Sheets(1)
|
|
11
|
+
```
|
|
12
|
+
|
|
13
|
+
また、現在使用中のデータ範囲のみ(例えば、Range("C2:F30"))を別ブックのRange("A1")から貼り付ける場合は下記でもできます。
|
|
14
|
+
```VBA
|
|
15
|
+
copyBook = ThisWorkbooks.Name
|
|
16
|
+
stTestFile = "test.xlsx"
|
|
17
|
+
|
|
18
|
+
Workbooks.Open Filename:=stTestFile
|
|
19
|
+
|
|
20
|
+
copyBook.Activate
|
|
21
|
+
copyBook.UsedRange.Copy
|
|
22
|
+
|
|
23
|
+
Workbooks(stTestFile).Activate
|
|
24
|
+
Range("A1").PasteSpecial
|
|
11
25
|
```
|