ウェブサイトからmsアクセスデータベースにデータをインポートするインポート機能を作成したいと思います。元のデータはmysqlデータベースに保存され、リモートテキストファイル(csv)を介して利用できます。だから私が望むのは、このリモートファイルにアクセスしてvbaで読むことだけです。私が使用するコードは以下の通りですが、参照がないようです。 ActiveXperts.Httpが必要とする参照がわからない。誰も助けてくれますか?MS AccessのWebサイトからデータをインポート
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."
はあなたがActiveXperts.Httpを使用して設定されていたり、別のオブジェクトを使用することを検討してくださいでしょうか? – HK1