質問編集履歴

3

コード編集

2018/06/29 06:50

投稿

napoleon
napoleon

スコア18

test CHANGED
File without changes
test CHANGED
@@ -102,11 +102,9 @@
102
102
 
103
103
  End If
104
104
 
105
- Next wb
105
+ Next wb
106
106
 
107
-
108
-
109
- ThisWorkbook.Close SaveChanges:=True
107
+ ThisWorkbook.Close SaveChanges:=True
110
108
 
111
109
  ```
112
110
 

2

コード追加

2018/06/29 06:50

投稿

napoleon
napoleon

スコア18

test CHANGED
File without changes
test CHANGED
@@ -88,6 +88,30 @@
88
88
 
89
89
  ネットなどで調べてみると、そのあとのCloseとQuitがないとExcelファイルが占有状態になると記載があったのですが。。。
90
90
 
91
+ ちなみにExcelのコードで最後に下記の処理を実施してACCESSに戻ろうとしています。
92
+
93
+
94
+
95
+ ```
96
+
97
+ For Each wb In Workbooks
98
+
99
+ If Not wb Is ThisWorkbook Then
100
+
101
+ wb.Close SaveChanges:=True
102
+
103
+ End If
104
+
105
+ Next wb
106
+
107
+
108
+
109
+ ThisWorkbook.Close SaveChanges:=True
110
+
111
+ ```
112
+
113
+
114
+
91
115
 
92
116
 
93
117
  宜しくお願い致します。

1

誤字修正

2018/06/29 06:49

投稿

napoleon
napoleon

スコア18

test CHANGED
@@ -1 +1 @@
1
- ACCESSとExcel連携操作について
1
+ ACCESSとExcel連携操作について
test CHANGED
File without changes