从互联网导入表失败(Mac)

时间:2014-04-11 18:30:13

标签: excel macos vba excel-vba

基本上我有以下代码,我使用Excel 2010在PC桌面上制作。它工作得很好。但是,当我将文件传输到Mac并使用Excel 2011执行getStockDataTest()子例程时,它失败了。

我不断收到此错误消息

enter image description here

Option Explicit
Sub getStockDataTest()
    getGoogleStockHistory 700

End Sub


Sub getGoogleStockHistory(gInt As Long)
'
' Macro1 Macro
'load google stock hisotry

'
    '.add -> create object
    'With ActiveSheet.QueryTables.Add(Connection:= _
        '"URL;https://www.google.com.hk/finance/historical?q=HKG%3A000&ei=V5k-U4CjHtDakQWfQw#" _
        , Destination:=Range("$A$1"))

    With ThisWorkbook.Sheets("Query").QueryTables(1)
       .Connection = "URL;https://www.google.com.hk/finance/historical?q=HKG%3A" & Format(gInt, "0000") & "&num=200" '&num 200 = 200 days of data
        .Name = "WebQuery"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables   'xlEntirePage      will get entire webpage
        .WebTables = "4"
        .WebFormatting = xlWebFormattingNone
        .WebDisableDateRecognition = False
        .Refresh BackgroundQuery:=False
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableRedirections = False
    End With
    Range("A1").Select
End Sub

此外,我想问一下如何在Mac Excel 2011中执行Import from web,因为我找不到这样的图标。请帮帮我,因为我在这里很丢失。

2 个答案:

答案 0 :(得分:2)

This site说(请参阅列表中的第9位)Mac上不存在PreserveFormattingRefreshPeriod可能不同......

删除这两个语句可以解决您的问题。

答案 1 :(得分:0)

我唯一的建议是删除内联注释,因为可能成为问题的一部分。以下是关于如何在Mac上创建Web查询的类似问题的link

从我从几个Google查询中收集到的信息,Excel 2011 Mac中的VBA几乎与PC上的VBA相同,因此不应该成为问题。我经常推荐几个论坛this site来理解仍然存在的差异。