excel - Web サイトのデータを XL 2003 にコピーする

Question

Web サイトのデータを 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

データ ソースに適している場合は、代わりに「Web クエリ」を使用してみてください。基本的に、URL パラメーターを使用して QueryTable を設定するだけです。詳細については、 http://msdn.microsoft.com/en-us/library/aa203721.aspxを参照してください。