Excel 下载特定股票代码MDB的历史股价时VBA宏出错

我创建了一个电子表格，从雅虎财经下载历史财务数据。它适用于除MDB以外的任何股票。在空白纸张上，在单元格B8中输入以下公式：

=”https://query1.finance.yahoo.com/v7/finance/download/“&B7&？周期1=11750400&period2=158941440&interval=1d&events=history”

在B7单元格中，我输入股票雅虎金融股票代码（例如，英特尔公司是INTC。）

宏非常简单：

Sub Download_Stock_Price_History()
    Dim Ticker As String
    Let Ticker = Range("B8").Value
    Workbooks.OpenText Filename:=Ticker, Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True

    Range("F1").Select

End Sub

最有趣的是，它似乎下载了MDB数据，但Excel崩溃了。然后，它将在启动文件（包含宏的文件）中单独重新打开，并隐藏公式栏，否则将正常工作

有人能用Excel在他们的PC上测试一下，看看他们是否仅仅用MDB就得到了一个错误吗？（我在很多股票上都试过，没有问题，但在MDB上遇到了问题。）

谢谢你，最好的，

---

巴勃罗

问题可能就在他们这边。他们有一个错误，导致MDB（可能还有其他股票——你真的测试了所有其他股票吗？）的信息格式错误。如果是这种情况，你可以看看他们在这种情况下提供给你的任何信息，找到如何提取信息，或者使用错误处理，这样至少你的代码在遇到异常数据时不会崩溃。谢谢John。我尝试了以下股票：SHOP ZM DOCU COUP OKTA TEAM XRO.AX VEEV AYX ADBE NOW MDB BL APPF SREV ZS DDOG CRM QTWO ZEN TWLO FSCT BOX WORK PVS.AX CLDR ECOM ESTC WDAY SCWX PD WK YEXT CSOD TLND MSFT NVDA AMZN AAPL NFLX INTC GOOG FB%5EIXIC%5EGSPC他们都在工作，但MDB除外问题可能已经结束了。他们有一个错误，导致MDB（可能还有其他股票——你真的测试了所有其他股票吗？）的信息格式错误。如果是这种情况，你可以看看他们在这种情况下提供给你的任何信息，找到如何提取信息，或者使用错误处理，这样至少你的代码在遇到异常数据时不会崩溃。谢谢John。我尝试了以下股票：SHOP ZM DOCU COUP OKTA TEAM XRO.AX VEEV AYX ADBE NOW MDB BL APPF SREV ZS DDOG CRM QTWO ZEN TWLO FSCT BOX WORK PVS.AX CLDR ECOM ESTC WDAY SCWX PD WK YEXT CSOD TLND MSFT NVDA AMZN AAPL NFLX INTC GOOG FB%5EIXIC%5EGSPC他们都在MDB之外工作