MS Access VBA无法在Excel中创build新的表格obj

我遇到问题,从Excel中的VBA模块的Excel电子表格中创build一个新表。

这是我的代码:

Option Compare Database Option Explicit Sub QueryExportMod() Dim db As DAO.Database Set db = CurrentDb Dim xlApp As Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Set xlApp = New Excel.Application Set wb = xlApp.Workbooks.Open(CurrentProject.Path & "\ExportExcelTest.xlsm") Set ws = wb.Worksheets("Sheet1") ws.ListObjects.Add(xlSrcRange, Range("$A$20:$B$21"), , xlYes).Name = "tb2" xlApp.Visible = True xlApp.Run "callAG" Set xlApp = Nothing Set wb = Nothing Set ws = Nothing End Sub 

给我的问题是ws.ListObjects.Add(xlSrcRange, Range("$A$20:$B$21"), , xlYes).Name = "tb2"

我得到运行时错误5:“无效的过程调用或参数”。 我根据实际的VBA文档编写了这一行。 我还logging了一个在Excel中创build表的macros,并得到了完全相同的行。

我怎样才能解决这个问题?

解决了问题 – 范围不合格。

 Dim rng As Range Set rng = ws.Range(A20:B21) ws.ListObjects.Add(xlSrcRange, rng, , xlYes).Name = "tb2"