回答編集履歴

1

追記

2018/06/29 07:02

投稿

sazi
sazi

スコア25138

test CHANGED
@@ -3,3 +3,47 @@
3
3
 
4
4
 
5
5
  但し、マクロの実行については、ファイルのパスから指定する必要があると思います。
6
+
7
+ ```VBA
8
+
9
+ '''マクロ実行処理'''''''''''
10
+
11
+ Set EE = CreateObject("Excel.Application")
12
+
13
+ '~ 略 ~
14
+
15
+ Set ws = wb.Sheets("Sheet1")
16
+
17
+ ws.Range("A1").CopyFromRecordset RS1
18
+
19
+ wb.Close
20
+
21
+ EE.Quit
22
+
23
+ Set wb = Nothing
24
+
25
+ Set EE = Nothing
26
+
27
+
28
+
29
+ Set EE = CreateObject("Excel.Application")
30
+
31
+ EE.Run エクセルファイル名 + "!シミュ_Macro"
32
+
33
+ EE.Quit
34
+
35
+ Set EE = Nothing
36
+
37
+
38
+
39
+ DoCmd.SetWarnings False
40
+
41
+ DoCmd.OpenQuery ("Q_CHK_Clear")
42
+
43
+ DoCmd.SetWarnings True
44
+
45
+ MsgBox "END"
46
+
47
+ End Sub
48
+
49
+ ```