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

فتح قاعدة بيانات Lotus Notes® من خلال VBA COM APIs

لاستيفاء هذه المهمة، يجب أن يكون قد تم تركيب 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

التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية