Sub Macro1()
'
' Macro1 Macro
' Macro recorded 3/21/2008 by jwarburg
'

'
With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://www.douanes.ci/Services/Grpproduit.asp?DateMaJ=29/02/2008", _
Destination:=Range("A1"))
.Name = "2008"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

End Sub


"mohan" wrote:

Hi,

I'm trying to get data imported from website to excel.

The link.
http://www.douanes.ci/Services/Grppr...MaJ=29/02/2008

This is code 01 to 97 is called chapter wise data.
Click 01 data will come.
How can i extract hole data in one shot. (01 to 97)

Does anyone know a way
arround it? Anything would help.

Thanks!
Yours loving friend