Access2013 VBA 链接 Excel2013 表的问题
我在Access2013的菜单,外部数据里面可以通过操作实现对Excel2013表的链接,但通过代码,如通过ADOX.Catalog 怎么能实现呢,弄了好久都不行。(我现在链接外部的 Access2013 没问题)
在菜单里能实现,代码肯定能实现的呀,能不能帮帮我呀。以下是我用过的代码:
Dim catDB As ADOX.Catalog
Dim tblLinkTable As ADOX.Table
Set tblLinkTable = New ADOX.Table
Set tblLinkTable.ParentCatalog = catDB
With tblLinkTable
.name = "NewTableName"
.Properties("Jet OLEDB:Create Link") = True
.Properties("Jet OLEDB:Link Datasource") = "C:\pzzk.xlsx"
.Properties("Jet OLEDB:Remote Table Name") = "LinkTableName"
End With
.Tables.Append tblLinkTable
提示不可识别的数据库格式!(分少点,实在没分了,大家见谅)
[解决办法]
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, "tablename", "excelname.xlsx", True