|
Спасибо всем за помощь, особенно InTacto!
Задачу решил создав дополнительную Dll
Option Explicit
Public Function SaveGetTaskList(Login_ As String, _
Pass_ As String, _
DateFrom_ As String, _
DateTo_ As String, _
Tab_ As String, _
FileName As String) As Boolean
Dim Auda1 As Auda.Saxif
Dim XmlDoc As MSXML2.DOMDocument
Set XmlDoc = New MSXML2.DOMDocument
Set Auda1 = New Auda.Saxif
XmlDoc.loadXML (Auda1.GetTaskList(Login_, Pass_, DateFrom_, DateTo_, Tab_))
XmlDoc.save (FileName)
End Function
Если делать так:
oResp = Auda.GetTaskList(Login_, Pass_, DateFrom_, DateTo_, Tab_)
' создаем файл
vFF = FreeFile
Open FileName For Binary As #vFF
' записываем в файл полученные данные
Put #vFF, , oResp
' сохраняем файл
Close #vFF
то ломается структура полученного Xml.
|