回答編集履歴
1
ついき
test
CHANGED
|
@@ -14,7 +14,7 @@
|
|
|
14
14
|
|
|
15
15
|
1つ目は、`Workbooks("\AA\BB\エクセルA")worksheets("sheet1")～`の部分ですが、ブックの指定の後、`Worksheets`との間に`.`が抜けていると思います。
|
|
16
16
|
|
|
17
|
-
これは投稿する際の転記ミスかもしれないとも思いましたが、`worksheets`が予約語
|
|
17
|
+
これは投稿する際の転記ミスかもしれないとも思いましたが、`worksheets`が予約語として名称解決されていない小文字表記でしたので、実際のコードがこの通りであれば`.`が必要です。
|
|
18
18
|
|
|
19
19
|
|
|
20
20
|
|
|
@@ -41,6 +41,14 @@
|
|
|
41
41
|
今回のコピー文ですが、記載いただいた通り１文で処理できますが、細かく分けると以下のような処理が組み合わさっています。
|
|
42
42
|
|
|
43
43
|
```
|
|
44
|
+
|
|
45
|
+
Dim wbCopy As Workbook
|
|
46
|
+
|
|
47
|
+
Dim wsCopy As Worksheet
|
|
48
|
+
|
|
49
|
+
Dim rCopy As Range
|
|
50
|
+
|
|
51
|
+
|
|
44
52
|
|
|
45
53
|
Dim wbPaste As Workbook
|
|
46
54
|
|