質問編集履歴

2021/09/18 09:49

投稿

スコア7

title CHANGED Viewed

File without changes

body CHANGED Viewed

@@ -8,7 +8,7 @@
 Sub Aecees集計()
     Dim objACCESS As Object
     Set objACCESS = CreateObject("Access.Application")
-    objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\仕入差益物流フィ計算用.accdb"
+    objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\仕入用.accdb"
     With objACCESS
         .Visible = false
         .Run "Execute_Manager", Format(Cells(2, "c").Value, "yyyymm")