Данные с HTML-страницы записать в таблицу Access

Sub Проверка_файла_страницы()
 
Dim oXMLHTTP As Object
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
Dim Файл As String
'нажать правой кнопкой по ссылке страницы "Скачать"
'в меню выбрать "Копировать адрес ссылки" - это путь к файлу
Файл = "http://www.sql.ru/forum/actualfile.aspx?id=12517319"
'false говорит о том, что запрос синхронный, и можно получить отчёт о наличии файла
.Open "GET", Файл, False
'эта опция помогает всегда получать "обновлённые" данные
.setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
End With
 
'оператор для отлова ошибок, указывает, что при возникновении ошибки требуется продолжать выполнять процедуру
On Error Resume Next
 
oXMLHTTP.Send
 
'если файл\страница существует
If Err.Number = 0 And oXMLHTTP.Status = 200 Then
MsgBox "файл\страница существует"
ElseIf Err.Number = 0 Then
MsgBox oXMLHTTP.Status & " " & "файл\страница не существует"
ElseIf Err.Number <> 0 Then
MsgBox Err.Number & " " & Err.Description
End If
 
'требуется, чтобы в нужном месте отключить действие строки 1) On Error GoTo ... 2) либо действие строки On Error Resume Next
On Error GoTo 0
 
End Sub

Sub Таблица_с_страницы_веба()
 
Dim oXMLHTTP As Object
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
Dim Content As String
 
Content = "http://reestr.kca.kz/Suppliers/Tenders/Tender_Details_CP.aspx?tender_id=151898&action="
'false говорит о том, что запрос синхронный, и можно получить отчёт о наличии Contentа
.Open "GET", Content, False
'эта опция помогает всегда получать "обновлённые" данные
.setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
End With
 
'оператор для отлова ошибок, указывает, что при возникновении ошибки требуется продолжать выполнять процедуру
On Error Resume Next
 
oXMLHTTP.Send
 
'если Content\страница существует
If Err.Number = 0 And oXMLHTTP.Status = 200 Then
'MsgBox$ "Content\страница существует"
ElseIf Err.Number = 0 Then
MsgBox$ oXMLHTTP.Status & " " & "Content\страница не существует"
ElseIf Err.Number <> 0 Then
MsgBox$ Err.Number & " " & Err.Description
End If
 
'требуется, чтобы в нужном месте отключить действие строки 1) On Error GoTo ... 2) либо действие строки On Error Resume Next
On Error GoTo 0
 
'Tools > References > Microsoft XML, v3.0
'DOMDocument30 определяет объект XML документа соответствующий версии 3.0
 
Dim xmlDoc As MSXML2.DOMDocument30
Set xmlDoc = New DOMDocument30
xmlDoc.async = False
xmlDoc.validateOnParse = False
xmlDoc.Load (Content)
'отображается содержимое ...
MsgBox$ xmlDoc.XML
 
End Sub

xmlDoc.Load (Content)

xmlDoc.Load ("N:\Изменённые\Требуется файл Sample.css.xml")

Dim xmlDoc As MSXML2.DOMDocument30
Set xmlDoc = New DOMDocument30
xmlDoc.async = False
xmlDoc.validateOnParse = False
xmlDoc.Load (Content)
 
MsgBox$ xmlDoc.XML

Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "GET", "http://reestr.kca.kz/Suppliers/Tenders/Tender_Details_CP.aspx?tender_id=151898&action=", False
XMLHTTP.Send
Do While XMLHTTP.readyState <> 4
    DoEvents
Loop
MsgBox XMLHTTP.responseText