Exportacion a Excel con LotusScript

Hoy quiero compartir con ustedes un script sencillo, pero siempre util en nuestros desarrollos con lotus, se trata de una exportación a excel, una vez que seleccionamos documentos desde una vista. El siguiente codigo debería ir en un boton de la barra de acciiones de nuestra vista, espero que les sea de utilidad:

Sub Click(Source As Button)
On Error Goto ER

Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim Excel As Variant
Dim xlWorkbook As Variant
Dim xHoja As Variant

Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments ‘ La coleccion de documentos corresponde a los seleccionados en la vista por el usuario.
Set doc = dc.GetFirstDocument

Set Excel = CreateObject( “Excel.Application” )
Excel.Workbooks.Add ‘//Creamos un libro de Excel nuevo
Set xlWorkbook = Excel.ActiveWorkbook ‘//Seleccionamos el libro activo

row = 1’//Inicializamos las columnas a 0
documento = 0

Print “Iniciando la creación del Informe…”

Excel.Cells(row,1).Value = “CLIENTE”
Excel.Cells(row,2).Value = “DIRECCION”
Excel.Cells(row,3).Value = “E-MAIL”
Excel.Cells(row,4).Value = “TELEFONO”
Excel.Cells(row,5).Value = “CELULAR”

‘Recorremos los documentos de la colección y vamos construyendo la planilla.
While Not doc Is Nothing
row = row + 1
documento = documento + 1
Print “exportando documento ” & documento & ” de ” & dc.Count
Excel.Cells(row,1).Value = doc.Cliente(0)
Excel.Cells(row,2).Value = doc.odireccion(0)
Excel.Cells(row,3).Value = doc.emailo(0)
Excel.Cells(row,4).Value = doc.telefonoo(0)
Excel.Cells(row,5).Value = doc.ocelu(0)
Set doc = dc.GetNextDocument(doc)
Wend
Excel.Visible = True ‘ Mostramos la ventana de Excel
Exit Sub
ER:
Msgbox Error & ” en intialize linea ” & Erl
Set Excel = Nothing
Exit Sub
End Sub

Anuncios

Acerca de calitrunks

Carlos Astudillo Jamett(@calitrunks), Adventista del 7° Día. Ingeniero en Informática, de la Universidad Tecnológica de Chile. Desarrollador de Software, Apasionado por la tecnología, el emprendimiento y con muchas ganas de compartir el conocimiento y experiencias. Creador de la web http://www.somosaventureros.cl un sitio para difundir el club de aventureros, un lugar donde los niños pueden convertirse en mejores personas y saber que siempre hay oportunidades en la vida sin importar las circunstancias que se enfrenten. Email: castudill@hotmail.com Twitter: https://es.twitter.com/calitrunks

Publicado el abril 9, 2013 en Lotus Notes, Scripts, Tecnologia y etiquetado en , , , . Guarda el enlace permanente. Deja un comentario.

¿Que te pareció este post?

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: