質問編集履歴
2
しつ
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -28,8 +28,9 @@
|
|
|
28
28
|
### 発生している問題・エラーメッセージ
|
|
29
29
|
|
|
30
30
|
```
|
|
31
|
-
|
|
31
|
+
下記コードの★の箇所で、「アプリケーション定義またはオブジェクト定義のエラーです」となります。
|
|
32
|
-
その後の処理でもエラーにある可能性はありますが、まだ確認はできておりません。
|
|
32
|
+
その後の処理でもエラーにある可能性はありますが、まだ確認はできておりません。
|
|
33
|
+
→解決しました
|
|
33
34
|
|
|
34
35
|
下記コードの★の箇所で「オブジェクトが必要です」となります。
|
|
35
36
|
|
1
質問内容の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
2
|
ファイル内の2シートをコピーして新しいブックとして保存し、
|
|
3
3
|
その後作成したファイルを複製するというマクロを作成したいです。
|
|
4
|
-
しかし私が作成したコードだとエラーになり、原因がわからずにいます。
|
|
4
|
+
しかし私が作成したコードだとファイルを複製する箇所でエラーになり、原因がわからずにいます。
|
|
5
5
|
解決のために知恵をお貸しください。
|
|
6
6
|
|
|
7
7
|
【作成したマクロの概要】
|
|
@@ -28,9 +28,11 @@
|
|
|
28
28
|
### 発生している問題・エラーメッセージ
|
|
29
29
|
|
|
30
30
|
```
|
|
31
|
-
下記コードの★の箇所で、「アプリケーション定義またはオブジェクト定義のエラーです」となります。
|
|
31
|
+
~~下記コードの★の箇所で、「アプリケーション定義またはオブジェクト定義のエラーです」となります。
|
|
32
|
-
その後の処理でもエラーにある可能性はありますが、まだ確認はできておりません。
|
|
32
|
+
その後の処理でもエラーにある可能性はありますが、まだ確認はできておりません。~~
|
|
33
33
|
|
|
34
|
+
下記コードの★の箇所で「オブジェクトが必要です」となります。
|
|
35
|
+
|
|
34
36
|
```
|
|
35
37
|
|
|
36
38
|
### 該当のソースコード
|
|
@@ -41,7 +43,7 @@
|
|
|
41
43
|
|
|
42
44
|
Dim mFSO As FileSystemObject
|
|
43
45
|
|
|
44
|
-
Sub シート分割
|
|
46
|
+
Sub シート分割複製()
|
|
45
47
|
|
|
46
48
|
Dim myPath, folderPath As String
|
|
47
49
|
Dim newBook As Workbook
|
|
@@ -58,7 +60,7 @@
|
|
|
58
60
|
FileFormat:=xlOpenXMLWorkbook
|
|
59
61
|
Set newBook = ActiveWorkbook
|
|
60
62
|
|
|
61
|
-
'B'シートのデータ範囲をコピー '/★ここでエラーになります
|
|
63
|
+
'B'シートのデータ範囲をコピー '~~/★ここでエラーになります~~ →解決しました
|
|
62
64
|
With newBook.Worksheets("Bシート")
|
|
63
65
|
Set rng = .Range(.Cells(1, 1), _
|
|
64
66
|
Cells(.Cells(Rows.Count, 2).End(xlUp).Row, _
|
|
@@ -76,7 +78,7 @@
|
|
|
76
78
|
newBook.Save
|
|
77
79
|
newBook.Close
|
|
78
80
|
|
|
79
|
-
'テンプレートファイルを同じフォルダに複製
|
|
81
|
+
'テンプレートファイルを同じフォルダに複製 '/★ここでエラーになります
|
|
80
82
|
FileCopy newBook, "folderPath" & "AAAファイル" & Format(Now(), "yyyymmdd") & ".xlsx"""
|
|
81
83
|
FileCopy newBook, "folderPath" & "BBBファイル" & Format(Now(), "yyyymmdd") & ".xlsx"""
|
|
82
84
|
FileCopy newBook, "folderPath" & "CCCファイル" & Format(Now(), "yyyymmdd") & ".xlsx"""
|