質問編集履歴
3
コード編集
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -50,9 +50,8 @@
|
|
|
50
50
|
If Not wb Is ThisWorkbook Then
|
|
51
51
|
wb.Close SaveChanges:=True
|
|
52
52
|
End If
|
|
53
|
-
|
|
53
|
+
Next wb
|
|
54
|
-
|
|
55
|
-
|
|
54
|
+
ThisWorkbook.Close SaveChanges:=True
|
|
56
55
|
```
|
|
57
56
|
|
|
58
57
|
|
2
コード追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -43,5 +43,17 @@
|
|
|
43
43
|
『EE.Run "シミュ_Macro"』の部分です。
|
|
44
44
|
エラー内容はオートメーションエラー（実行時エラー440）です。
|
|
45
45
|
ネットなどで調べてみると、そのあとのCloseとQuitがないとExcelファイルが占有状態になると記載があったのですが。。。
|
|
46
|
+
ちなみにExcelのコードで最後に下記の処理を実施してACCESSに戻ろうとしています。
|
|
46
47
|
|
|
48
|
+
```
|
|
49
|
+
For Each wb In Workbooks
|
|
50
|
+
If Not wb Is ThisWorkbook Then
|
|
51
|
+
wb.Close SaveChanges:=True
|
|
52
|
+
End If
|
|
53
|
+
Next wb
|
|
54
|
+
|
|
55
|
+
ThisWorkbook.Close SaveChanges:=True
|
|
56
|
+
```
|
|
57
|
+
|
|
58
|
+
|
|
47
59
|
宜しくお願い致します。
|
1
誤字修正
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
ACCESSとExcel
|
|
1
|
+
ACCESSとExcelの連携操作について
|
body
CHANGED
|
File without changes
|