Question

我想编写一个导入功能，用于将数据从网站导入到ms访问数据库。原始数据存储在mysql数据库中，可通过远程文本文件（csv）获得。所以我想要的是访问这个远程文件并在vba中读取它。我使用的代码如下，但似乎缺少引用。不知道ActiveXperts.Http需要哪个引用。有人可以帮忙吗？

THX 史蒂夫

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."

Answer 1

This tutorial表示需要ActiveSocket 2.4 Type Library。

（本教程适用于VB 5/6而不是VBA，但参考内容应完全相同）

从MS Access中的网站导入数据

1 个答案: