ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   retrieve data from web (https://www.excelbanter.com/excel-programming/405045-retrieve-data-web.html)

[email protected]

retrieve data from web
 
Hi,
I have problem to write macro
I want to retrieve data from web. can anyone help me with this?
please........

Don Guillett

retrieve data from web
 

dataimport external datanew put your url in the address linepick tables
(or whole page)import
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

wrote in message
...
Hi,
I have problem to write macro
I want to retrieve data from web. can anyone help me with this?
please........



minimaster

retrieve data from web
 
VBA demo for importing a webpage into Excel
(This will import this discussion into Excel. Not very pretty, but
good enough to extract any desired data out of the imported web page)

Private Sub Webpageimportexample()
Dim uri As String
Dim ws As Worksheet
uri = "URL;" & "http://groups.google.com/group/
microsoft.public.excel.programming/browse_thread/thread/
f39346eab6de8d55?hl=en"
Err.Clear
Set ws = Worksheets.Add
With ws.QueryTables.Add(Connection:=uri,
Destination:=ws.Range("A1"))
.Refresh (False)
End With
err_num = Err.Number
If err_num < 0 Then
If err_num = 1004 Then
x = MsgBox("no connection", vbCritical, "web page
retrieval")
Else
x = MsgBox("Error while updating: " + CStr(err_num),
vbCritical, "web page retrieval")
End If
End If
End Sub


All times are GMT +1. The time now is 12:03 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com