为什么弹出此错误 - >运行时错误 1004？

Question

我不确定为什么会出现此错误。VBA代码如下。任何帮助将不胜感激。

代码正在尝试更新表，然后将单元格值复制到另一个工作表。我录制了宏，所以它应该可以工作。

Private Sub CommandButton4_Click()
'Initialize data
'refresh Tbill table
Application.ScreenUpdating = False
Sheets("CurrentTBillYields").Select
Range("Table_0[[#Headers],[Date]]").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Sheets("Choices").Select
Application.ScreenUpdating = True
'Copy over the risk free rate
Worksheets("Choices").Range("r_f") = Worksheets("CurrentTBillYields").Range("p4")
End sub

Answer 1

我假设：

1. 错误在第 6 行
2. 表名名为"Table_0">
3. 宏中的所有范围都存在

然后替换：

Range("Table_0[[#Headers],[Date]]").Select

跟：

Range("Table_0").Select

Answer 2

如果您的连接在您录制时有效，那么它可能永久存在于您的工作簿中。

如果是这种情况，请导航到Data-->Existing Connections并记下查询的名称。

然后(假设您的按钮位于您希望结束的同一工作表上(，您可以将所有代码替换为以下内容：

ThisWorkbook.Connections("Query - Table 0").Refresh