我正在尝试刷新一个Power查询&然后是一个数据透视表(根据该数据运行)&我可以在使用F8单步执行代码时让它工作,但在运行宏时它不能工作谢谢!!Dim pt As PivotTableSet pt = ActiveSheet.PivotTables("PivotTable1")
'Refresh Power
我在处理我的报表时遇到了一些困难,我希望能够使用VBA来刷新我的透视表选项卡上的所有透视表,但也要添加新的日期,这些日期将在我刷新查询时填充。评论:我在这里得到了一段代码,但它只是更新表(我需要将其与获取每天刷新查询时填充的新日期结合起来):Sub RefreshAllPivots()
Dim PC As PivotCache
为了防止查询被滥用,我使用了Workbook保护,这样用户就不能修改查询和下载不在其权限范围内的数据。但是,为了允许用户从SQL下载工作表的更新,用户可以单击一个按钮,Power Query会刷新表。ThisWorkbook.Protect Password:="Password"
End Sub 我遇到的问题是Power Query在刷新工作表中的末尾表之前等待此宏完成,因此即
我的宏在运行和保存工作簿时没有正确刷新连接表和/或透视表,这是一个问题。我一直在读它,尝试设置backgroundquery = false (尽管我已经将Microsoft Scripting Runtime添加到引用中,但我也没能成功)和不同类型的刷新,但是问题仍然存在该连接只是一个链接到不同工作簿中工作表的表。下面是我的刷新代码,之后是一个工作簿保存(这两个都是一个更大的例程的一部分,因此是私有subs):
Private Sub Re
我有一个电子表格,它有一个带有ODBC数据查询的数据透视表,它将两个日期参数传递给查询,以给出一个日期范围。
如果我保留它,这样每次刷新数据时,系统都会提示用户提供一个值或单元格引用。但是,如果用户随后选择使用"Use This value/reference for future error“选项将参数值存储为单元格引用,则查询将抛出以下错误。这似乎只会直接影响到透视表中的查询,对表格输出中的