软件: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