S
SOFTOBZOR.ru
Всем привет
Есть формула на кнопочке
Соответственно поле US тоже есть, но внего не чего не заносится, как в прочем и ошибка не вылазиет.
Помогите отковырять проблему
Отбой воздушной тревоги
Надо так
Есть формула на кнопочке
Код:
Sub Click(Source As Button)
Dim doc As NotesDocument
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set xml = CreateObject("Microsoft.XMLHTTP")
Call xml.open("GET", "http://www.cbr.ru/scripts/XML_daily.asp",False)
Call xml.send()
st$ = xml.responseText
st$ = Strright(st$,"<CharCode>AUD")
st$ = Strright( st$, "<Value>" )
st$ = Strleft( st$, "</Value>" )
st1$ = xml.responseText
st1$ = Strright(st1$,"<CharCode>AUD")
st1$ = Strright( st1$, "<Nominal>" )
st1$ = Strleft( st1$, "</Nominal>" )
'Messagebox st1$ &" AUD = " & st$ & " руб." 'Если вызывать так то работает
Call doc.ReplaceItemValue(US, "st1$") 'А вот так не работает :(
'Call doc.Save( False, True )
End Sub
Соответственно поле US тоже есть, но внего не чего не заносится, как в прочем и ошибка не вылазиет.
Помогите отковырять проблему
Отбой воздушной тревоги
Код:
Call doc.ReplaceItemValue(US, "st1$") 'А вот так не работает :(
Код:
Call doc.ReplaceItemValue("US", st1$ +"Руб = " +st$)