teratail
回答率
85.47%
質問するログイン新規登録
トップに関する質問エクセルVBAでシートの複製時にオートメーションエラーが発生する

編集履歴

質問編集履歴

3

コード記載ミスの修正

2020/09/11 14:08

投稿

bktclvy
bktclvy

スコア63

test CHANGED
File without changes
test CHANGED
@@ -68,7 +68,7 @@
68
68
 
69
69
  invoiceBookPath = ThisWorkbook.path & "\請求書.xlsm"
70
70
 
71
- Workbooks.Open invoiceFilePath
71
+ Workbooks.Open invoiceBookPath
72
72
 
73
73
 
74
74
 

2

不要なコード削除

2020/09/11 14:08

投稿

bktclvy
bktclvy

スコア63

test CHANGED
File without changes
test CHANGED
@@ -110,42 +110,6 @@
110
110
 
111
111
 
112
112
 
113
- 以下コード
114
-
115
- Sub duplicateEstimateToInvoice()
116
-
117
- '見積書シート名を取得'
118
-
119
- Dim estimateSheetName As String
120
-
121
- estimateSheetName = ThisWorkbook.ActiveSheet.Name
122
-
123
-
124
-
125
- ' 請求書ファイルを開く'
126
-
127
- Dim invoiceBookPath As String
128
-
129
- invoiceBookPath = ThisWorkbook.path & "\請求書.xlsm"
130
-
131
- Workbooks.Open invoiceBookPath
132
-
133
-
134
-
135
- '請求書ファイルの先頭に複製を作成'
136
-
137
- ThisWorkbook.Worksheets(estimateSheetName).copy Before:=Workbooks("請求書.xlsm").Worksheets(1)
138
-
139
-
140
-
141
- '以下タイトルやシート名を変更する処理'
142
-
143
-
144
-
145
- End Sub
146
-
147
-
148
-
149
113
 
150
114
 
151
115
  ### 補足情報（FW/ツールのバージョンなど）

1

書式の改善、コードの記載ミス修正

2020/09/11 13:57

投稿

bktclvy
bktclvy

スコア63

test CHANGED
File without changes
test CHANGED
@@ -1,52 +1,8 @@
1
- ### ヘディングのテキスト### 前提・実現したいこと
1
+ ### エクセルVBAでどうしても解決できないオートメーションエラーがあるので相談させてください。
2
2
 
3
-
4
-
5
- ここに質問の内容を詳しく書いてください。
6
-
7
- （例）PHP(CakePHP)で●●なシステムを作っています。
8
-
9
- ■■な機能を実装中に以下のエラーメッセージが発生しました。
10
-
11
-
12
-
13
- ### 発生している問題・エラーメッセージ
14
-
15
-
16
-
17
- ```
18
-
19
- エラーメッセージ
20
-
21
- ```
22
-
23
-
24
-
25
- ### 該当のソースコード
26
-
27
-
28
-
29
- ```ここに言語名を入力
30
-
31
- ソースコード
32
-
33
- ```
34
-
35
-
36
-
37
- ### 試したこと
38
-
39
-
40
-
41
- ここに問題に対して試したことを記載してください。エクセルVBAでどうしても解決できないオートメーションエラーがあるので相談させてください。
42
-
43
-
44
-
45
- 見積書を請求書に変換するというマクロを作っており、
3
+ 見積書を請求書に変換するというマクロを作っております
46
4
 
47
5
  具体的にはこのような処理の流れになっています。
48
-
49
- （コードは質問最下部に掲載しています。）
50
6
 
51
7
 
52
8
 
@@ -78,7 +34,63 @@
78
34
 
79
35
 
80
36
 
37
+ ### 発生している問題・エラーメッセージ
38
+
39
+
40
+
41
+ ```
42
+
43
+ オートメーション エラーです。起動されたオブジェクトはクライアントから切断されました
44
+
45
+ ```
46
+
47
+
48
+
49
+ ### 該当のソースコード
50
+
51
+
52
+
53
+ ```ここに言語名を入力
54
+
55
+ Sub duplicateEstimateToInvoice()
56
+
57
+ '見積書シート名を取得'
58
+
59
+ Dim estimateSheetName As String
60
+
61
+ estimateSheetName = ThisWorkbook.ActiveSheet.Name
62
+
63
+
64
+
65
+ ' 請求書ファイルを開く'
66
+
67
+ Dim invoiceBookPath As String
68
+
69
+ invoiceBookPath = ThisWorkbook.path & "\請求書.xlsm"
70
+
71
+ Workbooks.Open invoiceFilePath
72
+
73
+
74
+
75
+ '請求書ファイルの先頭に複製を作成'
76
+
77
+ ThisWorkbook.Worksheets(estimateSheetName).copy Before:=Workbooks("請求書.xlsm").Worksheets(1)
78
+
79
+
80
+
81
+ '以下タイトルやシート名を変更する処理'
82
+
83
+
84
+
85
+ End Sub
86
+
87
+ ```
88
+
89
+
90
+
81
- 試してみた事
91
+ ### 試したこと
92
+
93
+
82
94
 
83
95
  ・onedriveの共有対象から外す
84
96
 
@@ -116,7 +128,7 @@
116
128
 
117
129
  invoiceBookPath = ThisWorkbook.path & "\請求書.xlsm"
118
130
 
119
- Workbooks.Open invoiceFilePath
131
+ Workbooks.Open invoiceBookPath
120
132
 
121
133
 
122
134
 
@@ -134,16 +146,16 @@
134
146
 
135
147
 
136
148
 
137
- 環境
138
-
139
- windows10
140
-
141
- Excel for microsoft 365
142
-
143
149
 
144
150
 
145
151
  ### 補足情報（FW/ツールのバージョンなど）
146
152
 
147
153
 
148
154
 
155
+ windows10
156
+
149
- ここにより詳細な情報を記載してください。
157
+ Excel for microsoft 365
158
+
159
+ CPU intel10世代i5
160
+
161
+ メモリ16GB