копирование данных сайта в 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

Если это подходит для вашего источника данных, вы можете попробовать использовать «веб-запросы». По сути, вы просто настраиваете QueryTable с параметром URL; см. http://msdn.microsoft.com/en-us/library/aa203721.aspx для более подробной информации.