Excel中具有可变path的macros

我有2个文件我Access数据库AHT_Tenure.accdb和我的Excel文件与macros运行查询.accdb 。 macros是以下内容：

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 

正如你所看到的path是C：\ Users \ gustavo.chi \ Documents \ AHT_tenure \ AHT_Tenure.accdb我总是将这两个文件保存在名为\ AHT_tenure的文件夹中如何编辑macros，以便我可以移动文件夹的pathmacros将仍然工作？ 我想要在USB文件夹中的文件。

Answer 1

我总是将这两个文件保存在名为\ AHT_tenure的文件夹中

尝试这个

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

说明 ： ThisWorkbook.Path将为您提供"C:\Users\gustavo.chi\Documents\AHT_tenure"或Excel文件所在位置的path。