First Linkright clickexport to msexcel
after imported use text to columnscomma
or just use this macro to do it all for you
Sub GetExternalDataSAS()
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://204.65.203.5/public/441280noadd.pdp", _
Destination:=Range("A1"))
.WebSelectionType = xlEntirePage
.Refresh BackgroundQuery:=False
End With
Columns(1).TextToColumns Destination:=Range("A1"), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:=","
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"JPalmer" wrote in message
...
Is there a way to take the information in this link:
http://204.65.203.5/public/441280noadd.pdp
and convert it into an excel spreadsheet that separates the information
according to name, zip code, etc?
This is the main website with numerous listings. The file is in PDF too.
http://www.ethics.state.tx.us/php/fi...t=00054943jcoh
Thank you!