Question

我正在尝试使用Excel文件中的VBA编码来更改Access文件“ Hey.accdb”中的链接表地址。

我已将下面的脚本编码在我的Excel文件中，运行该脚本时会提示错误“需要对象”。有人可以帮我解决这个问题。我盯着它已经太久了。谢谢。

Sub RunMacroinAccesswithPara2()

Set Db = CreateObject("Access.Application")
        Db.OpenCurrentDatabase "D:\Database1\Hey.accdb"
        Db.Visible = True
        Db.AutomationSecurity = msoAutomationSecurityLow

    DoCmd.TransferDatabase TransferType:=acLink, _
        DatabaseType:="Microsoft Access", _
        DatabaseName:="V:\Reporting\Quarterly\2018Q2\JP\Data\04\Database\Valuation_Database.mdb", _
        ObjectType:=acTable, _
        Source:="Valuation_Database_Adjusted", _
        Destination:="Valuation_Database_Adjusted"

End Sub

Answer 1

preload属于Access应用程序对象。

所以使用

DoCmd

修改

要更新链接，您需要Db.DoCmd.TransferDatabase ' etc.对象，设置其TableDef属性并运行.Connect。

请参见Linked table ms access 2010 change connection string

VBA-从Excel更新Access文件的链接表

1 个答案: