excel - 将网站数据复制到 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 。