Question

Set wb = xl.Workbooks.Open(fileName)
Set ws = wb.Sheets("Sheet1")
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fileName & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=1;"";"
Set rs = db.OpenRecordset("Tracking", dbOpenTable)
ws.Cells.ClearFormats

根据访问权限的错误触发是

Set rs = db.OpenRecordset("Tracking", dbOpenTable)

为“类型不匹配”。我已经在访问应用程序中建立了一个名为“ Tracking”的表名，所以我很困惑为什么不对其进行处理。

PS。我正在尝试通过记录集将Excel中的新记录添加到Access表中。

谢谢！

Answer 1

问题似乎与Excel没有任何关系。为了提供某种帮助，应该有一种制作MVCE的方法，实际上每个人都足以复制，粘贴和复制错误。

在Access中这样的事情就足够了：

Sub TestMe()

    Dim rs As Recordset
    Dim db As Database: Set db = CurrentDb
    Set rs = db.OpenRecordset("Tracking", dbOpenTable)

End Sub

如果您甚至对这段代码仍然有疑问，那么这是一个很好的开始。

访问VBA：运行时错误'13'类型不匹配

1 个答案: