Access 中的重复股票行情工具 Table

Question

我正在尝试合并两个脚本来完成以下任务。

运行获取股票数据的 http 地址，基于我 dB 中 table 上的股票代码列表，并保存为名为股票代码的文本文件.
让流程循环直到列表被完全处理。

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

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

决定运行 Yahoo API csv 格式。更简单，需要处理的数据更少。使用以下代码完成：

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

Access 中的重复股票行情工具 Table

Repeating Stock Ticker Tool From Access Table

ms-access

vba

stocks