| Pregunta: | 17314 - COMO USAR LA REFERENCIA DE LOTUS 123 |
| Autor: | Jorge Parreño López |
| Asi como se puede manejar excel desde VB 6.0 utilizando la referencia de excel, como puedo hacer lo mismo con Lotus 123, o un programa de ejemplo que exporte información de un grid a un hoja de lotus 123. | |
| Respuesta: | Jorge Parreño López |
| Abrir un proyecto .exe
Agregar la referencia a Lotus 123 (Project / References / Lotus 123) Agregar un botón a la forma con el siguiente código Private Sub Command1_Click() Dim L123App As Lotus123.Application Dim L123Doc As Lotus123.Document Dim curRange As Lotus123.Range On Error Resume Next Set L123Doc = CreateObject("Lotus123.Workbook") If Err.Number <> 0 Then MsgBox "No se puede abrir Lotus 123", vbError, "Exportar Información" Exit Sub End If Set L123App = L123Doc.Parent Set L123Doc = L123App.NewDocument L123Doc.Activate 'Este es el proceso que pasa información a un Rango de Celdas Set curRange = L123Doc.Ranges(A1) curRange.Contents = 523 'Esto es para hacer visible la hoja electrónica L123App.Visible = True L123App.ApplicationWindow.Activate L123App.ApplicationWindow.Maximize L123Doc.Show End Sub | |