ms-access - 将 xls 导入 Access 表时使用路径变量

Question

我有一段代码，它在打开数据库时导入电子表格。最初我已经编码了电子表格的路径，但是当电子表格版本发生变化时，路径可能会发生变化。最新路径现在存储在全局参数表中。我无法让代码与变量一起使用，也许我在做一些愚蠢的事情，我不知道，我对 VB/VBA 还很陌生。

Function Import_Menu()
Dim db As DAO.Database
Set db = CurrentDb
Dim mpath As String

mpath = DLookup("MenuPath", "Global", "ID = 1")
On Error Resume Next:   db.TableDefs.Delete "Activity_Menu":   On Error GoTo 0
db.TableDefs.Refresh
DoCmd.TransferSpreadsheet _
    TransferType:=acImport, _
    SpreadsheetType:=acSpreadsheetTypeExcel9, _
    TableName:="Activity_Menu", _
    FileName:=" & mpath & ", _
    HasFieldNames:=False, _
    Range:="Task Menu!A3:AF120"
db.TableDefs.Refresh
db.Close:   Set db = Nothing
End Function

Answer 1

这个;

 FileName:=" & mpath & ", _

导致字符串& mpath &不正确。

如果mpath是完整路径和文件名：

FileName:= mpath, _

如果它只是一条路径：

FileName:= mpath & "\BLA.BLOOP", _

（确保您在\需要时添加）