質問編集履歴
2
しつ
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -58,9 +58,11 @@
|
|
|
58
58
|
|
|
59
59
|
```
|
|
60
60
|
|
|
61
|
-
|
|
61
|
+
下記コードの★の箇所で、「アプリケーション定義またはオブジェクト定義のエラーです」となります。
|
|
62
62
|
|
|
63
|
-
その後の処理でもエラーにある可能性はありますが、まだ確認はできておりません。
|
|
63
|
+
その後の処理でもエラーにある可能性はありますが、まだ確認はできておりません。
|
|
64
|
+
|
|
65
|
+
→解決しました
|
|
64
66
|
|
|
65
67
|
|
|
66
68
|
|
1
質問内容の修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -4,7 +4,7 @@
|
|
|
4
4
|
|
|
5
5
|
その後作成したファイルを複製するというマクロを作成したいです。
|
|
6
6
|
|
|
7
|
-
しかし私が作成したコードだとエラーになり、原因がわからずにいます。
|
|
7
|
+
しかし私が作成したコードだとファイルを複製する箇所でエラーになり、原因がわからずにいます。
|
|
8
8
|
|
|
9
9
|
解決のために知恵をお貸しください。
|
|
10
10
|
|
|
@@ -58,9 +58,13 @@
|
|
|
58
58
|
|
|
59
59
|
```
|
|
60
60
|
|
|
61
|
-
下記コードの★の箇所で、「アプリケーション定義またはオブジェクト定義のエラーです」となります。
|
|
61
|
+
~~下記コードの★の箇所で、「アプリケーション定義またはオブジェクト定義のエラーです」となります。
|
|
62
62
|
|
|
63
|
-
その後の処理でもエラーにある可能性はありますが、まだ確認はできておりません。
|
|
63
|
+
その後の処理でもエラーにある可能性はありますが、まだ確認はできておりません。~~
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
|
|
67
|
+
下記コードの★の箇所で「オブジェクトが必要です」となります。
|
|
64
68
|
|
|
65
69
|
|
|
66
70
|
|
|
@@ -84,7 +88,7 @@
|
|
|
84
88
|
|
|
85
89
|
|
|
86
90
|
|
|
87
|
-
Sub シート分割
|
|
91
|
+
Sub シート分割複製()
|
|
88
92
|
|
|
89
93
|
|
|
90
94
|
|
|
@@ -118,7 +122,7 @@
|
|
|
118
122
|
|
|
119
123
|
|
|
120
124
|
|
|
121
|
-
'B'シートのデータ範囲をコピー '/★ここでエラーになります
|
|
125
|
+
'B'シートのデータ範囲をコピー '~~/★ここでエラーになります~~ →解決しました
|
|
122
126
|
|
|
123
127
|
With newBook.Worksheets("Bシート")
|
|
124
128
|
|
|
@@ -154,7 +158,7 @@
|
|
|
154
158
|
|
|
155
159
|
|
|
156
160
|
|
|
157
|
-
'テンプレートファイルを同じフォルダに複製
|
|
161
|
+
'テンプレートファイルを同じフォルダに複製 '/★ここでエラーになります
|
|
158
162
|
|
|
159
163
|
FileCopy newBook, "folderPath" & "AAAファイル" & Format(Now(), "yyyymmdd") & ".xlsx"""
|
|
160
164
|
|