Question

我尝试合并两个脚本来完成以下操作。

运行http地址以获取库存数据，根据我的dB中的表格中的代码列表，并保存为名为股票代码的文本文件。
让流程循环直到列表完全正常工作。

以下是我正在使用的代码（提前道歉，它可能很糟糕）：

Private Sub GrabQuotes() 
  Dim oXMLHTTP
  Dim oStream
  Dim Symbol As String
  Dim i As Integer

  Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")

  With Table("Ticker")
    For i = 1 To 55
        Symbol = .Fields(i, 4).Value
        oXMLHTTP.Open "GET", "http://finance.google.com/finance/info?client=ig&q=" & Symbol, False
        oXMLHTTP.Send

        If oXMLHTTP.Status = 200 Then
          Set oStream = CreateObject("ADODB.Stream")
          oStream.Open
          oStream.Type = 1
          oStream.Write oXMLHTTP.responseBody
          oStream.SaveToFile "\\HBFSBOS\APPS\TDID\StockQuotes\" & Symbol & ".txt"
          oStream.Close
        End If
    Next i
  End With
End Sub

无论我尝试做什么改变，我都会遇到错误。谁能发现我做错了什么？

Answer 1

决定以csv格式运行Yahoo API。更简单，更少的数据必须拧紧。使用以下代码完成：

Option Compare Database

Public Function RunYahooAPI()

Dim chromePath As String

  chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""

 Shell (chromePath & " -url http://download.finance.yahoo.com/d/quotes.csv?s=CVX%2CXOM%2CHP%2CSLB%2CPBA&f=nsl1op&e=.csv")

End Function

从访问表重复股票行情工具

1 个答案: