运行时错误' 5'运行录制的宏

时间:2016-03-10 16:39:24

标签: excel vba

我使用Excel中的向导使用与数据库的现有连接从SQL Server导入表(数据>现有连接>表)。

我在执行此操作时录制了一个宏,因为我的目标是重复此过程并将数据库中的多个表导入工作簿中的多个选项卡。

当我尝试运行刚录制的宏时,我收到错误消息:

运行时错误' 5':无效的过程调用或参数

Sub Macro1()

With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
    Connections("MyServer MyDatabase Multiple Tables"), _
    Destination:=Range("$A$1")).TableObject
    .RowNumbers = False
    .PreserveFormatting = True
    .RefreshStyle = 1
    .AdjustColumnWidth = True
    .ListObject.DisplayName = "MyTable"
    .Refresh
End With

End Sub

0 个答案:

没有答案