Excel中的宏与可变路径

Question

我有2个文件，我的Access数据库 AHT_Tenure.accdb ，我的Excel文件带有宏，可以在 .accdb 上运行查询。宏如下：

Sub AHT_Tenure()
Dim A As Object
Application.DisplayAlerts = False
Set A = CreateObject("Access.Application")
A.Visible = False
A.OpenCurrentDatabase ("C:\Users\gustavo.chi\Documents\AHT_tenure\AHT_Tenure.accdb")
With A.CurrentDB.QueryDefs("Q_AHT_Tenure_combine")
   .Execute
   MsgBox .RecordsAffected
End With
Application.DisplayAlerts = True
End Sub

正如您所看到的路径 C：\ Users \ gustavo.chi \ Documents \ AHT_tenure \ AHT_Tenure.accdb 我始终将这两个文件保存在名为 \ AHT_tenure 如何编辑宏以便我可以移动文件夹的路径，宏仍然可以工作？我想把文件夹放在USB中。

Answer 1

  

我始终将这两个文件保存在名为\ AHT_tenure

的文件夹中

试试这个

A.OpenCurrentDatabase ThisWorkbook.Path & "\AHT_Tenure.accdb"

解释：ThisWorkbook.Path会为您提供"C:\Users\gustavo.chi\Documents\AHT_tenure"或excel文件所在位置的路径。