- Код: Выделить всё
FileName = "C:\euro_xml.xml" ' Путь и имя файла с результатом запроса
strArrayType = Array("R01235", "R01239")
For Each strType In strArrayType
url="http://www.cbr.ru/scripts/XML_dynamic.asp?" & _
"date_req1=" & FormatFromDateInString(datepre3, "dd/mm/yyyy") & _
"&date_req2=" & FormatFromDateInString(datenow, "dd/mm/yyyy") & _
"&VAL_NM_RQ=" & strType
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("GET", url, False)
objHTTP.Send
set objDoc = objHTTP.responseXML
objDoc.save(FileName)
Next
День добрый. Вот кусок кода, выполняемый, для стягивания курсов валют с сайта ЦБ и сохраняемый в xml. В данном примере обрабатывается массив strArrayType и в файл записываются результаты только по его конечному значению, а именно strType = "R01239".
А вопрос вот в чем, как сделать, чтобы либо в файл записывалась иформация по обоим значениям strType , либо второй вариант создать второй файл к примеру dol_xml.xml, вогнать его в массив
FileArrayName = Array ("C:\euro_xml.xml", "C:\doll_xml.xml"). Но тогда встает вопрос, как обрабатывать два массива так, что бы данные со strType = "R01239" попадало в FileName = "C:\euro_xml.xml", а со strType = "R01235" попадало в FileName = "C:\dol_xml.xml" !
Надеюсь сумел объяснить проблему. Подскажите выход, пожайлуста.
