已存在具有该名称的查询答案

【问题标题】：a query with the name already exists已存在具有该名称的查询
【发布时间】：2020-05-13 05:42:35
【问题描述】：

所以我想使用 Excel VBA 为 Yahoo Finance 历史数据（csv 下载）创建一个自动查询。我设置了一个函数，以便 Excel 会自动查询股票代码及其开始和结束日期（分别为 K1、K2、K3）。

代码如下：

Sub YFIN_get()
'
' YFIN_get Macro
'
Dim ticker As String, sday, eday As Long
Columns("A:G").ClearContents
ticker = Range("K1")
sday = Range("K2")
eday = Range("K3")
'
    ActiveWorkbook.Queries.Add Name:="Table 4", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Csv.Document(Web.Contents(""https://query1.finance.yahoo.com/v7/finance/download/" & ticker & "?period1=" & sday & "&period2=" & eday & "&interval=1d&events=history""),[Delimiter="","", Columns=7, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & "    #""Use First Row as Headers"" = Table.PromoteHeaders(Source, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & "    #""Change Type"" = Table" & _
        ".TransformColumnTypes(#""Use First Row as Headers"",{{""Date"", type date}, {""Open"", type number}, {""High"", type number}, {""Low"", type number}, {""Close"", type number}, {""Adj Close"", type number}, {""Volume"", Int64.Type}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Change Type"""
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Table 4"";Extended Properties="""""), Destination:=Range("$A$1")). _
        QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Table 4]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Table_4"
        .Refresh BackgroundQuery:=False
    End With
    Application.CommandBars("Queries and Connections").Visible = False
End Sub

但是，每当我第二次运行代码时，VBA 总是会检索运行时错误“名称为‘表 4’的查询已经存在”。当我调试错误时，它会突出显示 ActiveWorkbook.Queries.Add Name..... 部分。

谁能帮我解决这个问题？也许删除查询？如果是这样，我应该如何删除查询？（我是 VBA 的新手，非常感谢您的帮助）

【问题讨论】：

听起来您已经有一个名为 table4 - Name:="Table 4" 的查询 - 看来您需要使用不同的名称，或者删除原来的名称。
@braX 是的，但我希望自动删除查询，以便我可以多次运行代码以刷新。
所以...在.Add 方法之前使用.Delete 方法？还是我错过了什么？ stackoverflow.com/questions/44827417/…

标签： excel vba yahoo-finance

【解决方案1】：

您可以在尝试添加之前使用它：

On Error Resume Next
ActiveWorkbook.Queries("Table 4").Delete
On Error GoTo 0

【讨论】：

嘿，谢谢。你能告诉我把这3行放在哪里吗？还是从我发布的代码+您的建议中编写整个代码？我是 VBA 的新手，试图在我的代码中加入这 3 行，但它仍然返回错误。
在尝试添加它之前把它放好，就像我在回答中所说的那样。