VBAでInfopath Attachmentをハードドライブにダウンロード

Question

添付ファイルが含まれている約1000 xmlのinfopathドキュメントがあります。私はVBAを介してinfopathの添付ファイルを私のドライブにダウンロードする方法を探していますが、私はこれをリードすることはできませんでした。任意のコードやチュートリアルをいただければ幸いです。

ありがとうございます！

Answer 1

「ダウンロード」とは何を意味しますか？ウェブから？これを試して。

Sub Test() 
Dim FileNum As Long 
Dim FileData() As Byte 
Dim MyFile As String 
Dim WHTTP As Object 

On Error Resume Next 
Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5") 
If Err.Number <> 0 Then 
Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1") 
End If 
On Error GoTo 0 

MyFile = "website xxxx.com" 

WHTTP.Open "GET", MyFile, False 
WHTTP.Send here is where I stop. This is the error message: 
"Run-time error '-2147012867 (80072efd)': 
A connection with the server could not be established" 
FileData = WHTTP.ResponseBody 
Set WHTTP = Nothing 

If Dir("c:\test", vbDirectory) = Empty Then MkDir "c:\test" 

FileNum = FreeFile 
Open "the file I downloaded " For Binary Access Write As #FileNum 
Put #FileNum, 1, FileData 
Close #FileNum 

MsgBox "Open the folder [ c:\test] for the downloaded file..." 
End Sub 

また、これを見てください。

https://social.msdn.microsoft.com/Forums/en-US/bd0ee306-7bb5-4ce4-8341-edd9475f84ad/excel-2007-use-vba-to-download-save-csv-from-url