如何通过vba在excel 2007工作表里获取php网页内容？

如何通过vba在excel 2007工作表里获取php网页内容？

Excel界面操作：数据——导入外部数据——新建Web查询：在出现的界面地址栏输入网址，然后选择需要更新的数据范围——导入——选择数据放的单元格（必要时修改属性，如刷新频率等）——确定。这样当网页数据变化时，Excel表格的数据就会同样改变。如果不想数据同步，复制粘贴值到其他地方，然后删除工作表。

如果非要用VBA，用录制宏稍作修改即可。代码如下，详见附件。

Sub Macro2()

    Sheet1.Activate

    With ActiveSheet.QueryTables.Add(Connection:= _

        "URL;http://stockq.cn/market/return.php", Destination:=Range("A1"))

        .Name = "return_1"

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .WebSelectionType = xlSpecifiedTables

        .WebFormatting = xlWebFormattingNone

        .WebTables = "7"

        .WebPreFormattedTextToColumns = True

        .WebConsecutiveDelimitersAsOne = True

        .WebSingleBlockTextImport = False

        .WebDisableDateRecognition = False

        .WebDisableRedirections = False

        .Refresh BackgroundQuery:=False

    End With

End Sub