首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

Access2013 VBA 链接 Excel2013 表的有关问题

2014-01-03 
Access2013 VBA 链接 Excel2013 表的问题我在Access2013的菜单,外部数据里面可以通过操作实现对Excel2013

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

热点排行