Импорт данных с веб-сайта в MS Access - PullRequest
Новая
       11

Импорт данных с веб-сайта в MS Access

0 голосов
/ 15 августа 2011

Я хочу написать функцию импорта для импорта данных с веб-сайта в базу данных MS Access.Исходные данные хранятся в базе данных MySQL и доступны через удаленный текстовый файл (CSV).Так что все, что я хочу, это получить доступ к этому удаленному файлу и прочитать его в vba.Код, который я использую ниже, но кажется, что ссылки отсутствуют.Не знаю, какая ссылка ActiveXperts.Http нуждается.Кто-нибудь может помочь?

Спасибо Стив 

Dim objHttp
Dim strUrl
Dim strData

' Create a HTTP instance
Set objHttp = CreateObject("ActiveXperts.Http")

' Write some information to console
MsgBox "ActiveSocket " & objHttp.Version & " demo."
MsgBox "Expiration date: " & objHttp.ExpirationDate & vbCrLf

Do
   strUrl = InputBox("Enter a URL", "Input", "www.activexperts.com/products")
Loop Until strUrl <> ""

objHttp.LogFile = "C:\HttpLog.txt"

objHttp.Connect (strUrl)
If (objHttp.LastError <> 0) Then
   MsgBox "Error " & objHttp.LastError & ": " & objHttp.GetErrorDescription(objHttp.LastError)
Else
   strData = objHttp.ReadData
   If (objHttp.LastError <> 0) Then
     MsgBox "Error " & objHttp.LastError & ": " & objHttp.GetErrorDescription(objHttp.LastError)
   Else
     MsgBox strData
   End If
   objHttp.Disconnect
   MsgBox "Disconnect."
End If

MsgBox "Ready."

1 Ответ

1 голос
/ 15 августа 2011

В этом учебном пособии сказано, что ему нужно ActiveSocket 2.4 Type Library.

(учебное пособие предназначено для VB 5/6, а не для VBA, но справочные материалы должны быть точно такими же)

...