質問編集履歴
1
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -18,7 +18,7 @@
|
|
|
18
18
|
|
|
19
19
|
Set objACCESS = CreateObject("Access.Application")
|
|
20
20
|
|
|
21
|
-
objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\仕入
|
|
21
|
+
objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\仕入用.accdb"
|
|
22
22
|
|
|
23
23
|
With objACCESS
|
|
24
24
|
|