יש לי קישור ל-URL שמבצע שאילתה לבסיס נתונים מסוים והנתונים שמוחזרים הם בפורמט XML
יש לציין שה-URL עובד בפורטל של SAHREPOINT.
מצאתי קוד שמבצע את הפעולה הקובץ שנשמר אצלי בבית כטסט הוא תקין,
הבעיה היא בעבודה כשאני מנסה לשמור ואז הוא לא תקין.
הדוגמה הבאה כן מצליחה להוריד את הקובץ של השערים.
יש לציין שה-URL עובד בפורטל של SAHREPOINT.
מצאתי קוד שמבצע את הפעולה הקובץ שנשמר אצלי בבית כטסט הוא תקין,
הבעיה היא בעבודה כשאני מנסה לשמור ואז הוא לא תקין.
הדוגמה הבאה כן מצליחה להוריד את הקובץ של השערים.
קוד:
Sub DownloadFile1()
Dim objWHTTP As Object
Dim strPath As String
Dim arrData() As Byte
Dim lngFreeFile As Long
On Error Resume Next
Set objWHTTP = CreateObject("WinHTTP.WinHTTPrequest.5")
If Err.Number <> 0 Then
Set objWHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")
End If
On Error GoTo 0
strPath = "https://www.boi.org.il/currency.xml"
objWHTTP.Open "GET", strPath, False
objWHTTP.send
arrData = objWHTTP.responseBody
' If Len(Dir("C:\FootieFile", vbDirectory)) = 0 Then
' MkDir "C:\FootieFile"
' End If
lngFreeFile = FreeFile
Open "C:\Users\XXX\Documents\MyFile_" & Str(Format(Now(), "ddmmyyyyhhmmss")) & ".xml" For Binary Access Write As #lngFreeFile
Put #lngFreeFile, 1, arrData
Close #lngFreeFile
Set objWHTTP = Nothing
Erase arrData
End Sub