2011-08-15 17 views
0

ウェブサイトから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." 
+0

はあなたがActiveXperts.Httpを使用して設定されていたり、別のオブジェクトを使用することを検討してくださいでしょうか? – HK1

答えて

1

This tutorialは、それがActiveSocket 2.4 Type Libraryが必要であると述べています。

(チュートリアルでは、VB 5/6用ではなくVBAはなく、参照のものはまったく同じでなければなりません)

+0

うーん、MS Access 2007で上記のライブラリを見つけることができません。何かをインストールする必要がありますか? – SteMa

+0

あなたは自分の答えにリンクしたチュートリアルを見ましたか? Set objHttp = CreateObject( "ActiveXperts.Http") 'を実行するには、ActiveSocket Toolkit(チュートリアルでリンクされている)をインストールする必要があります。 –

関連する問題