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：\用戶\ gustavo.chi \文檔\ 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文件是。