Question

我正在尝试调试一个宏（从同一个excel文件中的工作表数据创建一个数据透视表），该宏从旧文件复制到一个新文件中。

我在调试模式下检查了代码，以下是令人讨厌的代码：

ActiveSheet.PivotTables("PivotTable1").ChangePivotCache 
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase,
SourceData:=Resultaat, Version:=xlPivotTableVersion10)

如果我尝试通过按Excel文件中的“更新”宏按钮来运行宏，则会出现系统错误，其中包含一串数字：

系统错误＆amp; H80070057（-2147024809）

但是如果我在VB中逐行执行代码，我会得到一个运行时错误＆＃39; 5＆＃39;：无效的过程调用或参数。

奇怪的是，同一行代码在我们一直在使用的其他宏中运行良好。

我用Google搜索并找到了这个MS帮助链接： https://support.microsoft.com/en-us/kb/940166

我尝试了那里给出的代码，但仍然遇到了相同的系统错误或运行时错误。

完整代码：

Sub Update()
File = ActiveWorkbook.FullName
Plaats = InStrRev(File, "\")
Pad = Left(File, Plaats)
Bestand = ActiveWorkbook.Name
Blad = Sheets(1).Name

'********************************************************************************************************************
Sheets(Blad).Select
Lastrow = Sheets(Blad).UsedRange.Rows.Count - 1

Sheets(Blad).Range("A4").Select

Resultaat = Pad & "[" & Bestand & "]" & Blad & "!R3C1:R" & Lastrow & "C15"
WB_Test = ActiveWorkbook.Name
ActiveSheet.PivotTables("PivotTable1").ChangePivotCache _ ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _ SourceData:=Resultaat, Version:=xlPivotTableVersion10)

Sheets("draaitabel").Shapes("Button 1").Visible = False
MsgBox ("Klaar!!")
End Sub

创建和更新数据透视表的宏的运行时错误/系统错误

0 个答案: