@יאירמשה
יש בעיה בקבלת סניפים מבנק ישראל, הוא מוחק את הסניפים ולא מביא אחרים, מה עושים?
תודה רבה
אתה צודק.
הסיבה:
בנק ישראל שינה את כותרות העמודות בקובץ הXML לאנגלית במקום עברית.
מצ"ב התיקון:
צריך להכנס למודול בשם ModDownloadWeb ולהחליף את הINSERT
INSERT INTO tblBanks ( [קוד בנק], [שם בנק], [מס סניף], [שם סניף], [כתובת סניף], יישוב, מיקוד, טלפון, פקס ) SELECT BRANCH.Bank_Code, BRANCH.Bank_Name, BRANCH.Branch_Code, BRANCH.Branch_Name, BRANCH.Branch_Address, BRANCH.City, BRANCH.Zip_Code, BRANCH.Telephone, BRANCH.Fax FROM BRANCH;
בנוסף, הנה כל המודול למי שאין כח לחפש מה צריך להחליף.... (פשוט להחליף את כל הקוד)
Option Compare Database
Option Explicit
Sub DownloadFile(myURL As String, FileNameSave As String)
'myURL = "http://www.bankisrael.gov.il/he/BankingSupervision/BanksAndBranchLocations/Lists/BoiBankBranchesDocs/snifim.xls"
Dim WinHttpReq As Object
Dim oStream As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, "", ""
WinHttpReq.send
myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.responseBody
oStream.SaveToFile FileNameSave, 2 ' 1 = no overwrite, 2 = overwrite
oStream.Close
End If
Set WinHttpReq = Nothing
Set oStream = Nothing
End Sub
Public Function ImportBranchXml()
On Error Resume Next
Dim sFile As String
DoCmd.DeleteObject acTable, "Branch"
sFile = CurrentProject.Path & "\" & Format(Now, "ddmmyyyynnss") & ".xml"
DownloadFile "http://www.bankisrael.gov.il/he/BankingSupervision/BanksAndBranchLocations/Lists/BoiBankBranchesDocs/snifim_he.xml", sFile
ImportXML sFile
Kill sFile
CurrentDb.Execute "DELETE * FROM TblBanks"
CurrentDb.Execute "INSERT INTO tblBanks ( [קוד בנק], [שם בנק], [מס סניף], [שם סניף], [כתובת סניף], יישוב, מיקוד, טלפון, פקס ) SELECT BRANCH.Bank_Code, BRANCH.Bank_Name, BRANCH.Branch_Code, BRANCH.Branch_Name, BRANCH.Branch_Address, BRANCH.City, BRANCH.Zip_Code, BRANCH.Telephone, BRANCH.Fax FROM BRANCH;"
DoCmd.DeleteObject acTable, "Branch"
End Function
בהצלחה!!
ותודה על הפניית תשומת הלב.....
פורסם במקור בפורום CODE613 ב23/04/2014 10:25 (+03:00)
