IBM Lotus Symphony
|
VBA кодының бірнеше мысалдарын тізімге енгізеді. Lotus® Symphony™ Basic IDE ішінде оларды өңдей аласыз.
Жеке Ішкі элемент CommandButton1_Нұқу() Жұмыс жұрналы ретіндегі Dim wkb Орнату wkb = Workbooks.Қосу wkb.Парақтар(1).Ауқым("A1") = Енді Ішкі элементті аяқтау
Ішкі элемент OpenNotesDatabase() Жол ретіндегі Dim notes_сервер Жол ретіндегі Dim notes_дерекқор Жол ретіндегі Dim құпия сөз notes_сервер = "127.0.0.1" notes_дерекқор = "пошта\тексеру.nsf" құпия сөз = "hello" Орнату notes_session = CreateObject("lotus.NOTESSESSION") Шақырту notes_session.Initialize(құпия сөз)Орнату notes_db = notes_session.GETDATABASE(notes_сервер, notes_дерекқор) Ішкі элементті аяқтау