Automation Lotus 1-2-3 Objects

[Guest]

Is it possible to control Lotus 1-2-3 from within Excel?

 

[Andy Wiggins]

Here's some sample code that:
- creates a 123 spreadsheet
- inserts some text
- changes the text to bold
- saves the spreadsheet to a file in the c:\temp directory
- tidies up

''
***************************************************************************
'' Purpose : Create a Lotus 123 file from Excel's VBA
'' Written : 14-Jun-1999 by Andy Wiggins - Byg Software Ltd
''
Sub mRun123ProUsingVBA()
Dim app As Object
Set app = CreateObject("Lotus123.Workbook")

With app
.Parent.Visible = True

With .ranges.Item("A:A3")
.contents = "Demo from BygSoftware.com"
.Font.Bold = True
End With

.SaveAs "c:\temp\BygSoftware.123"
.Parent.Quit
End With

End Sub