使用 VBA 刷新表

Question

我有两张表，一张是城市列表（我们称之为城市列表），另一张是与这些城市对应的数据点（称之为数据表）。数据表连接到我在 MS SQL Server 中构建的 Select 查询。此 Select 查询/数据表有一个 Where 子句，我在其中替换了 SQL 条件并替换了 ?，以便在连接到 Excel 时使其成为参数。

现在我已经解决了这个问题，我将解释我要完成的工作。我想遍历城市列表，对于列表中的每个城市，更新数据表以反映城市的数据点。最终，我想循环遍历，每次刷新数据表时，它都会使用该特定表保存工作簿的副本。

我在下面发布了我当前的代码，但我的问题是表格永远不会刷新与当前通过循环选择的城市相对应的当前数据。话虽如此，如果我按下escape 键以跳出VBA 宏，那么表格将刷新为在我停止宏之前的最后一个城市。

代码：

Sub Macro1()
Dim WS As Worksheet
Dim WS2 As Worksheet
Dim CT As Variant
Dim MSG As String

Set WS = Sheets("Sheet1")
Set WS2 = Sheets("Sheet2")
CT = Range("A1").CurrentRegion
For i = 2 To UBound(CT, 1)
    MSG = ""
    For J = 1 To UBound(CT, 2)
        WS.Range("$D$2").Value = CT(i, J) //Places the city into Cell $D$2 which is where The Data Table looks to for the parameter.

    Exit For


    Next J

        ActiveWorkbook.Connections("Query from Database").Refresh

          WS2.ListObjects(1).Refresh

Next i
End Sub

就好像宏运行得太快，表格无法跟上并刷新。我尝试在代码中添加一些等待时间，希望它能给它足够的时间来让表刷新，但这没有影响。我还关闭了Background Refresh，这似乎也没有任何作用。现在它只是循环遍历城市表，并且每个城市都显示查询正在刷新，但是在查询完成刷新后，它会进入下一个城市而无需更新数据表。帮助！

Answer 1

我认为你需要做几件事——也许你已经做了。

1. 当您设置参数/绑定变量（您已经完成）时，将其指向特定单元格。然后，在您的 SQL Server 查询中，确保参数每次都绑定到该范围：

如果我夸大了显而易见的事实，请原谅我，但对于那些不知道的人，您可以通过右键单击表格并选择表格->参数来进入此对话框。

1. 从那里，当您遍历主表（其中包含城市的表）时，您可以从该表中的每一行获取值并使用绑定参数更新单元格。

这样的事情应该可以工作：

Sub RefreshAllCities()

  Dim ws1, ws2 As Worksheet
  Dim loCities, loDataTable As ListObject
  Dim lr As ListRow

  Set ws1 = ActiveWorkbook.Worksheets("Sheet1")
  Set ws2 = ActiveWorkbook.Worksheets("Sheet2")

  Set loCities = ws1.ListObjects("CityList")
  Set loDataTable = ws2.ListObjects("DataTable")

  ' get rid of those pesky warnings to overwrite files
  Application.DisplayAlerts = False

  For Each lr In loCities.ListRows
    ws2.Cells(1, 2).Value = lr.Range(1, 1).Value
    loDataTable.QueryTable.Refresh BackgroundQuery:=False

    ActiveWorkbook.SaveAs Filename:="C:\temp\" & lr.Range(1, 1).Value & ".xlsx", _
        FileFormat:= xlOpenXMLWorkbook
  Next lr

  Application.DisplayAlerts = True
End Sub

我假设您在此示例中需要 .xlsx 文件。这将破坏任何嵌入式 VBA，这实际上是一个不错的好处，因为过滤数据集的接收者不必接触它。如果你想要xlsm 或xlsb，这很容易改变。

Answer 2

默认情况下，Excel 将“启用后台刷新”，这将允许 Excel 在查询刷新实际完成之前继续执行并继续执行。有些人可以通过两次调用.Refresh 来使其工作，但这几乎是随机/任意时间。

应该有一个 Excel 选项可以取消选中“数据表”属性，或者您可以通过对 VBA 的引用来更新 BackgroundQuery = False 属性

如果您禁用后台刷新，那么您的代码将等待刷新完成，然后再继续。