Web Query

[kelas]

Hi,

I'm using the Web Query to get data content.

The problem is, that data I get are in unusable format and just haven't found the way out from this.

For examle I need data from this URL:
http://vyhledavac.cak.cz/Units/_Sear...b-26a20b72f121

The code is simple:

Sub test

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://vyhledavac.cak.cz/Units/_Search/Details/detailFirma.aspx?id=cbddb76e-a1ab-4a3c-936b-26a20b72f121" _
, Destination:=Range("$A$6"))

.Name = "detailFirma.aspx?id=cbddb76e-a1ab-4a3c-936b-26a20b72f121"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False

End With

But the result? See the attachment...


Can anyone help? I've been looking for the solution for hours...

Cheers

Ales