3

Mac 版 Excel 2011 的“参考”中没有 WinHttopRequest。我尝试了以下在其他帖子中看到的方法：

Set HTTP = CreateObject("MSXML2.ServerXMLHTTP")

这给了我一个“429”运行时错误：ActiveX 控制器无法创建对象。

有没有办法在 Mac Excel 上使用 WinHttpRequest 或类似的东西？我对查询表也没有运气，并且想避免这种解决方案。我认为应该有一个简单的 http GET 解决方案来解决这个问题。只是无法为 Mac Excel 找到它。

我正在尝试从 Yahoo Finance api url 获取数据：

Dim URL As String: URL = "http://finance.yahoo.com/d/quotes.csv?s=" & Symbols & "&f=snl1hg"
Dim HTTP As New WinHttpRequest
HTTP.Open "GET", URL, False
HTTP.Send

我知道这适用于 Windows，但我使用的是 Mac。请指教。谢谢！

4

2 回答 2

3

您可以使用 QueryTables 代替 HTTP Get 调用 (WinHttopRequest)，这显然不受 Mac Excel 2011 支持。下面的代码对我有用 - 在列中输入代码，从 A2 开始，输入 yahoo Finance 标签（即 a, b, r, n) 在从 B1 开始的行中。

您可以组装 URL 以调用 csv 的 YF，然后使用 QueryTable 进行调用并将结果粘贴到工作表中。

在 Mac Excel 2011 上工作的代码：

Sub Yahoo_Finance_API_Call_MacExcel2011()
    Dim head As Range
    Set head = Range("A1")

    Dim wb As Workbook 'In the event that you'll use different workbooks
    Dim src As Worksheet 'In the event that you'll use different a source worksheet
    Dim tgt As Worksheet 'In the event that you'll use different a target worksheet

    Set wb = ThisWorkbook
    Set src = wb.Sheets("Sheet1")
    Set tgt = wb.Sheets("Sheet1")

    'Assemble Symbols for API Call
    Set rng = Range(head.Offset(1, 0), head.Offset(1, 0).End(xlDown))
    For Each cell In rng ' Starting from a cell below the head cell till the last filled cell
        Symbols = Symbols & cell.Value & "+"
    Next cell
    Symbols = Left(Symbols, Len(Symbols) - 1) ' Remove the last '+'

    'Assemble Tags or API Call
    Set rng = Range(head.Offset(0, 1), head.Offset(0, 1).End(xlToRight))
    For Each cell In rng ' Starting from a cell to the right of the head cell till the last filled cell
        tags = tags & cell.Value
    Next cell

    'Build URL
    URL = "TEXT;http://finance.yahoo.com/d/quotes.csv?s=" 'Use TEXT to collect API data below
    URL = URL & Symbols & "&f=" & tags

        'Range("A1").Value = URL 'This will output the assembled URL in a1 for QA if need be

    'Call API
    With tgt.QueryTables.Add(Connection:= _
            URL, _
            Destination:=Range(head.Offset(1, 1), head.Offset(1, 1).End(xlDown)))

        .RefreshStyle = xlOverwriteCells
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = True
        .BackgroundQuery = True
        .TextFileCommaDelimiter = True
        .TablesOnlyFromHTML = True
        .Refresh BackgroundQuery:=False
        .TextFilePromptOnRefresh = False
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .SaveData = False
    End With
End Sub
于 2014-08-29T01:35:24.127 回答
0

我不相信 Mac 有任何等同于 MSXML.ServerXMLHTTP 的东西。另一个 stackoverflow 线程的建议是使用 QueryTables。总之，该线程建议：

With ActiveSheet.QueryTables.Add(Connection:="URL;http://carbon.brighterplanet.com/flights.txt", Destination:=Range("A2"))
    .PostText = "origin_airport=MSN&destination_airport=ORD"
    .RefreshStyle = xlOverwriteCells
    .SaveData = True
    .Refresh
End With
于 2013-08-16T21:51:17.547 回答