将网站数据复制到XL 2003

Question

我正在尝试将网站数据复制到XL 2003 我被告知使用“发送密钥”，但它不起作用。 请有人帮助我。

Sub CopyInternetDoc()

Dim IntApp As Object
Set IntApp = CreateObject("InternetExplorer.Application")
With IntApp
'       Change file name to suit
.Visible = True
.Navigate "http://test/"

CODE TO COPY data from "http://test/" to Excel   

End With
ActiveSheet.Cells.Select
Selection.ClearContents
ActiveSheet.range("A1").Select
ActiveSheet.Paste
IntApp.Quit
Set IntApp = Nothing

End Sub

Answer 1

如果它适合您的数据源，您可以尝试使用“网络查询”。基本上，您只需使用URL参数设置QueryTable;有关详细信息，请参阅http://msdn.microsoft.com/en-us/library/aa203721.aspx。