IBM Lotus Symphony


示例

列出了几个 VBA 代码示例。您可以在 Lotus® Symphony™ Basic IDE 中对它们进行编辑。

打开一个新的电子表格文档,然后更改单元格的内容

在编辑器中输入以下代码:
Private Sub CommandButton1_Click()
    Dim wkb As Workbook
    
    Set wkb = Workbooks.Add
    wkb.Sheets(1).Range("A1") = Now
End Sub

通过 VBA COM API 打开 Lotus Notes® 数据库

要完成该任务,您需要在自己的计算机上安装 Lotus Notes®。在编辑器中输入以下代码:
Sub OpenNotesDatabase()
	Dim notes_server As String
	Dim notes_database As String
	Dim password As String

	notes_server = "127.0.0.1"
	notes_database = "mail\test.nsf"
	password = "hello"

	Set notes_session = CreateObject("lotus.NOTESSESSION")
	Call notes_session.Initialize(password)
	Set notes_db = notes_session.GETDATABASE(notes_server, notes_database)
End Sub

产品反馈 | 其他文档 | 商标