我正在遵循在另一个网站上找到的代码。这是我的代码基础：
Dim SQL As String
Dim connString As String
connString = "ODBC;DSN=DB01;UID=;PWD=;Database=MyDatabase"
SQL = "Select * from SomeTable"
With Worksheets("Received").QueryTables.Add(Connection:=connString, Destination:=Worksheets("Received").Range("A5"), SQL:=SQL)
.Refresh
End With
End Sub
Sheet1.QueryTables(1).CommandText = "Select * FROM ...."
Sheet1.QueryTables(1).Refresh
您可以通过更改CommandText选择不同的列甚至不同的表格。如果是不同的数据库，您将需要一个新的连接，但这是非常罕见的。
我知道这并没有直接回答您的问题，但我认为确定您是否真的需要每次添加QueryTable是第一步。
有关参数的更多信息，请参见http://dailydoseofexcel.com/archives/2004/12/13/parameters-in-excel-external-data-queries/。它适用于2003年，因此与后来的版本存在一些不一致之处。基础知识是相同的，只是如果您使用的是2007或更高版本，则可能需要了解ListObject对象。
.MaintainConnection = False
工作非常顺利。在数据刷新后，不再出现Access数据库锁定文件。
不需要使用add方法添加另一个查询表，您可以直接更新连接的CommandText属性。但是，您必须知道，在更新ODBC连接的CommandText属性时存在一个错误。如果您暂时切换到OLEDB连接，并更新CommandText属性，然后再切换回ODBC，它不会创建新的连接。别问我为什么...这对我有效。
创建一个新模块并插入以下代码：
Option Explicit
Sub UpdateWorkbookConnection(WorkbookConnectionObject As WorkbookConnection, Optional ByVal CommandText As String = "", Optional ByVal ConnectionString As String = "")
With WorkbookConnectionObject
If .Type = xlConnectionTypeODBC Then
If CommandText = "" Then CommandText = .ODBCConnection.CommandText
If ConnectionString = "" Then ConnectionString = .ODBCConnection.Connection
.ODBCConnection.Connection = Replace(.ODBCConnection.Connection, "ODBC;", "OLEDB;", 1, 1, vbTextCompare)
ElseIf .Type = xlConnectionTypeOLEDB Then
If CommandText = "" Then CommandText = .OLEDBConnection.CommandText
If ConnectionString = "" Then ConnectionString = .OLEDBConnection.Connection
Else
MsgBox "Invalid connection object sent to UpdateWorkbookConnection function!", vbCritical, "Update Error"
Exit Sub
End If
If StrComp(.OLEDBConnection.CommandText, CommandText, vbTextCompare) <> 0 Then
.OLEDBConnection.CommandText = CommandText
End If
If StrComp(.OLEDBConnection.Connection, ConnectionString, vbTextCompare) <> 0 Then
.OLEDBConnection.Connection = ConnectionString
End If
.Refresh
End With
End Sub
这个UpdateWorkbookConnection子程序只能用于更新OLEDB或ODBC连接。该连接不一定需要链接到数据透视表。它还可以解决另一个问题，并允许您在基于相同连接的多个数据透视表存在时更新连接。
要启动更新，只需使用连接对象和命令文本参数调用函数，如下所示：
UpdateWorkbookConnection ActiveWorkbook.Connections("Connection"), "exec sp_MyAwesomeProcedure"
您还可以选择更新连接字符串。
Application.DisplayAlerts = False
ActiveWorkbook.Connections("Connection").Delete
Application.DisplayAlerts = True
它可以很容易地进行修改，以删除最新添加的连接（或者如果您通过它们的索引跟踪连接）。
Application.DisplayAlerts = False
ActiveWorkbook.Connections(ActiveWorkbook.Connections.Count).Delete
Application.DisplayAlerts = True
您应该将连接声明为单独的对象，然后在数据库查询完成后再关闭它。
我没有VBA IDE在身边，所以如果有任何不准确之处，请见谅，但这应该可以指引您朝正确的方向发展。
例如：
Dim SQL As String
Dim con As connection
Set con = New connection
con.ConnectionString = "ODBC;DSN=DB01;UID=;PWD=;Database=MyDatabase"
Worksheets("Received").QueryTables.Add(Connection:=con, Destination:=Worksheets("Received").Range("A5"), SQL:=SQL).Refresh
con.close
set con = nothing
如果您想在刷新后立即删除，请不要在后台进行刷新（使用第一个参数 -> 刷新为false），以便您有正确的操作顺序
多年后仍然有参考价值……与同样的问题斗争，这是目前最有帮助的线程。我的情况是上述情况的变体，当我找到解决方案时，我将添加它。
我正在使用Access数据库作为我的数据源，并在新工作表上建立查询表。然后我再添加两个新工作表，并尝试在每个工作表上使用相同的连接来建立查询表，但是针对不同的Access表格。第一个查询表完全正常工作，并且我使用.QueryTables（1）。Delete并将查询表对象设置为无来断开连接。
然而，在没有关闭连接的情况下，下一个表格在建立新的查询表时失败了。我怀疑（并将在下面添加解决方案）在删除查询表之前需要断开连接。 Rasmus的代码似乎是可能的解决方案。