Copying website data on XL 2003
I am trying to copy site data on XL 2003 I was told to use "send keys" but it didnโt work. Please help me.
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
0
excel
source
to share
1 answer
If that works for your data source, you can try using "web queries" instead. Basically, you just configured the QueryTable with a URL parameter; See http://msdn.microsoft.com/en-us/library/aa203721.aspx for details .
0
source to share