エクセル(OfficeXP)で、Webサーバからcsvをダウンロードしてインポートする方法(VBA)のサンプルはありませんか？

こういうのですか？

WebサーバからファイルをダウンロードするにはxmlHttpRequestが楽ですね（XMLファイルじゃなくてもできます）。

Dim data As String

Dim req As Object

Set req = CreateObject(”Microsoft.xmlhttp”)

With req

Call .Open(”GET”, ”http://your_server/sample.csv”, True)

Call .send(vbNull)

If .readyState <> 4 Or .Status <> 200 Then

’ エラー処理

End If

data = .responseText

End With

ファイルをインポートするには一度ファイルに書き出してからエクセル固有のインポート機能を使うと便利だと思います。

’ ファイルに書き出し

Open ”sample.csv” For Output As #1

Print #1, data

Close #1

’ インポート

Call Workbooks.OpenText(”sample.csv”, , , xlDelimited, , , , , True)

以上