小编Tue*_*sen的帖子

我正在处理一个 VBA 项目，该项目需要通过电源查询更新特定表作为代码的一部分。代码电源查询刷新需要在查询继续之前完成，但是，我还没有设法找到解决方案来做到这一点。

Option Explicit
Option Base 1


Public Sub LoadProductsForecast()

我插入了几个步骤来优化性能

'Deactivate global application parameters to optimise code performance
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayStatusBar = False


'Dimensions used in code for sheets etc.
Dim lastrow As Integer
Dim NoRowsInitial As Integer


''''''''''''''''''''''
''Get product data, and copy index match formula to look up the forecast

' find number of rows to use for clearing
NoRowsInitial = WorksheetFunction.CountA(Worksheets("Monthly Forecast").Range("D4:D15000"))

'Selecting Worksheet w. product master data …