ник: ДрЮня
а как? чуток подробнее, пожалуйста.
до сих пор хватало такого
Set xmlDoc = New DOMDocument30
xmlDoc.async = False
xmlDoc.validateOnParse = False
sURL = lv.ListItems(bItem).ListSubItems(3)
If Not xmlDoc.Load(sURL) Then
MsgBox "Документ не загружается. Проверьте подключение к Интернету или ссылка не работает.", vbInformation, App.Title
Call clr_Controls
GoTo L_Exit
End If
|
и дакумент загружается с сервера