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"