J'ai environ 1000 xml document infopath qui contient des pièces jointes. Je suis à la recherche d'un moyen de télécharger les pièces jointes infopath dans mon lecteur via VBA, mais je n'ai pas trouvé de piste à ce sujet. Tout code ou tutoriel sera apprécié.Télécharger Infopath pièce jointe dans le disque dur avec VBA
Merci!
Que voulez-vous dire par «téléchargement»? Du web? Essaye ça.
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
En outre, jetez un coup d'oeil à ceci.