質問編集履歴
3
コード記載ミスの修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -68,7 +68,7 @@
|
|
68
68
|
|
69
69
|
invoiceBookPath = ThisWorkbook.path & "\請求書.xlsm"
|
70
70
|
|
71
|
-
Workbooks.Open invoice
|
71
|
+
Workbooks.Open invoiceBookPath
|
72
72
|
|
73
73
|
|
74
74
|
|
2
不要なコード削除
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
書式の改善、コードの記載ミス修正
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 invoice
|
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
|