First Link>right click>export to msexcel
after imported use text to columns>comma
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
(E-Mail Removed)
"JPalmer" <(E-Mail Removed)> wrote in message
news:ECBE06CE-ACDA-4256-8DF1-(E-Mail Removed)...
> 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!
>
>