[算表] EXCEL VBA 匯入MDB檔問題

[cartner (不問世事)]

軟體:Excel

版本:2007

板上各位高手好：
想請問有關EXCEL VBA匯入MDB檔案問題
使用錄製巨集後，最終想讓巨集自動抓取與Excel同資料夾內的MDB檔，
但是錄製的巨集寫出的路徑似乎已經固定了(如下綠色文字處)，請問應如何修改呢？
謝謝。


    Sheets("Sheet2").Select '設定自sheet2 A1儲存格開始匯入MDB資料
    Range("A1").Select

    Dim DS As String
    DS = ThisWorkbook.Path & "\" & "*.mdb"

    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User
ID=Admin;Data Source=F:\VBA測試\Offline.mdb;Mode=Share Deny
Write" _

中段恕刪

    End With


--

「評斷一個國家的品格，並不僅只要看她培養了什麼樣的人民，

　還要看它的人民選擇對什麼樣的人致敬、對什麼樣的人追懷。」

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ----約翰‧甘迺迪----

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 210.69.191.1
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1542087250.A.8D8.html
→ soyoso: 以"OLEDB;...Data Source=" & DS & ";Mode..."的方式試試
→ cartner: 謝謝S大