Question

我正在尝试更新一些似乎无法正常使用Access / Excel版本2016的代码。代码将数据结果导出到excel文件并自动生成数据透视表。该文件似乎生成，但是当它打开时，收到错误---（MODULE NAME：UpdateExcel（Scrubber As ScrubberInfo，Queue As String）ScrubberInfo，错误号码：9错误描述：脚本超出范围，行号10）---在UpdateExcel函数的第10行 - 自动化错误2147697259.我已将enter image description here DoCmd.TransferSpreadsheet acImport，acSpreadsheetTypeExcel12，在此之前的代码更新为版本12，用于Excel 2016。

Private Sub UpdateExcel(Scrubber As ScrubberInfo, Queue As String)
    Dim oBook As Excel.Workbook
    Dim oSheet As Excel.Worksheet
    Dim lstcol As String
    Dim UserSite As String
    Dim PvtItem As PivotItem

    On Error GoTo ErrorHandler
10
    Set oBook = GetObject(Scrubber.Doc)
    UserSite = DbFetch("Site", "b_users", "LanID = '" &   Environ$("USERNAME") & "'")
    Set oSheet = oBook.Worksheets(Scrubber.Table)
    oSheet.Application.Visible = True
    oSheet.Parent.Windows(1).Visible = True

访问VBA Automation导出到excel 2016

0 个答案: