Dim cnn As New ADODB.Connection

Dim rst As New ADODB.Recordset

Dim objHTTP As Object

Dim objFSO As Object, objFile As Object

Dim strConn As String, strURL As String, strFile As String, tblName
strURL = "http://www.cnb.cz/miranda2/m2/cs/financni_trhy/devizovy_trh/kurzy_devizoveho_trhu/vybrane.html?mena=USD&od=01.01.2008&do=31.12.2008"

strFile = "C:\Rates.html"

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" _

& "Data Source=" & strFile & ";" _

& "Extended Properties=""HTML Import;HDR=YES;IMEX=1"""

tblName = "Vybran devizov kurzy - Cesk nrodn banka"



Set objHTTP = CreateObject("MSXML2.XMLHTTP")

objHTTP.Open "GET", strURL, False

objHTTP.send



Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.CreateTextFile(strFile)

objFile.Write objHTTP.responseText

objFile.Close



cnn.Open strConn

rst.Open "SELECT * FROM [" & tblName & "];", cnn



Debug.Print rst.Fields(0).Name & vbTab & rst.Fields(1).Name



Do Until rst.EOF

    Debug.Print rst.Fields(0) & vbTab & rst.Fields(1)

    rst.MoveNext

Loop



rst.Close

cnn.Close