Lotus Notes - Exportar datos de Lotus a Excell

 
Vista:

Exportar datos de Lotus a Excell

Publicado por Teryus (3 intervenciones) el 27/05/2006 00:28:36
Hola a todos

No tengo mucha experiencia desarrollando con lotus, asi que tengo necesidad de un script que pueda realizar lo sig.

El agente debe de tomar el dato de una vista (este dato es una suma de cantidades) y pasarlo a excell.

Si me pueden apoyar lo agradeceria porque la verdad es que si me atoro mucho en la programacion en lotus, apenas estoy empezando a desarrollar y desconozco muchas cosas.

Espero su respuesta

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Exportar datos de Lotus a Excell

Publicado por Hugo (286 intervenciones) el 30/05/2006 15:53:51
Dim Ns As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim Doc As NotesDocument
Dim Excel As Variant
Dim XLWorkBook As Variant
Dim XHoja As Variant

Set db = Ns.CurrentDatabase
Set Nws=New notesuiworkspace
Set Nuid=Nws.CurrentDocument
Set Nd=Nuid.Document
Set View=db.GetView("Nombre_vista") 'vista de la cual se exportara la información
Set Doc = View.GetFirstDocument 'Posiciona en el primer registro

Print "Iniciando la creacion del informe..."
Print "Conectando con EXCEL ..."
Set Excel = CreateObject("Excel.Application")

Excel.Visible = True ' Se Muestra la Ventana de Excel
Excel.Workbooks.Add ' Se Crea un Libro de Excel Nuevo
Set XLWorkbook = Excel.ActiveWorkbook ' Se Seleccion el libro Activo nRenglon=0
nDocumento=0
Print "Creando Informe . . ."
nRenglon=nRenglon+1
nDocumento=nDocumento+1
fecha= Evaluate("@Now") 'Variable para la fecha de hoy
Excel.Cells(nRenglon,1).Value = Fecha
Excel.Cells(nRenglon,1).Select
nRenglon=nRenglon+1
Excel.Selection.Font.Bold= True
Excel.Cells(nRenglon,1).Value = "Titulo"
Excel.Cells(nRenglon,1).Select
Excel.Selection.Font.Bold= True
Excel.Selection.Font.Italic=True
Excel.Selection.Interior.ColorIndex=14
Excel.Selection.Font.Size=10
Excel.Range("A2:E2").Select
Excel.Selection.Merge
nRenglon=nRenglon+1 'Siguiente Renglon
Excel.Cells(nRenglon,1).Value = "Encabezado1"
Excel.Cells(nRenglon,1).Select
Excel.Selection.Font.Bold= True
Excel.Selection.Font.Size= 10
Excel.Cells(nRenglon,2).Value = "Encabezado2"
Excel.Cells(nRenglon,2).Select
Excel.Selection.Font.Bold= True
Excel.Selection.Font.Size= 10
Excel.Cells(nRenglon,3).Value = "Encabezado3"
Excel.Cells(nRenglon,3).Select
Excel.Selection.Font.Bold= True
Excel.Selection.Font.Size= 10
Excel.Cells(nRenglon,4).Value = "Encabezado4"
Excel.Cells(nRenglon,4).Select
Excel.Selection.Font.Bold= True
Excel.Selection.Font.Size= 10
Excel.Cells(nRenglon,5).Value = "Encabezado5"
Excel.Cells(nRenglon,5).Select
Excel.Selection.Font.Bold= True
Excel.Selection.Font.Size= 10
nRenglon=nRenglon+1 'Siguiente Renglon
While Not (Doc Is Nothing)
Excel.Cells(nRenglon,1).Value = Doc.campo1(0)
Excel.Cells(nRenglon,2).Value = Doc.campo2(0)
Excel.Cells(nRenglon,3).Value = Doc.campo3(0)
Excel.Cells(nRenglon,4).Value = Doc.campo4(0)
Excel.Cells(nRenglon,5).Value = Doc.campo5(0)
nRenglon=nRenglon+1 'Siguiente Renglon
Set Doc = View.GetNextDocument(Doc)
Wend
Excel.Columns("A:A").EntireColumn.Autofit
Excel.Columns("B:B").EntireColumn.Autofit
Excel.Columns("C:C").EntireColumn.Autofit
Excel.Columns("D:D").EntireColumn.Autofit
Excel.Columns("E:E").EntireColumn.Autofit
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Exportar datos de Lotus a Excell

Publicado por Teryus (3 intervenciones) el 01/06/2006 00:42:34
Gracias ¡ ¡ ¡ ¡, pero solo un favor mas, lo que pasa es que parece que le falta informacion al agente cuando lo doy de alta en Lotus .

Me podrias apoyar si me lo puedes enviar a mi correo .

De antemano gracias ¡ ¡ ¡
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar