un ejemplo de una exportacion a excel y del año 2000
jejeje
Sub Initialize
'********************* Exportación desde una vista los valores de los campos nombre, apellidos y direccion de los documentos seleccionados a una hoja de Excell *********************
'********************* 22/12/00 *********************
Dim xlFilename As String
xlFilename = "E:\gente.xls" 'Fichero de Excel donde vamos a exportar los datos
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Dim ndcol As notesdocumentcollection
Dim row As Integer
Dim escritos As Integer
Set ndcol=db.unprocesseddocuments
Set doc=ndcol.getfirstdocument
Dim Excel As Variant
Dim xlWorkbook As Variant
Dim xlSheet As Variant
Print "Connecting to Excel..."
Set Excel = CreateObject( "Excel.Application" )
Excel.Visible = False '// No mostramos la ventana de Excel
Print "Opening " & xlFilename & "..."
Excel.Workbooks.Open xlFilename 'Abrimos el fichero de Excel
Set xlWorkbook = Excel.ActiveWorkbook
Set xlSheet = xlWorkbook.ActiveSheet
Goto inicializar
Print "Desconectando de Excel..."
xlWorkbook.Close False '// Cerramos la hoja de Excel sin guardar cambios
Excel.Quit ' Cerramos Excel
Set Excel = Nothing 'Liberamos la memoria que hemos utilizado
Print " " ' Limpiamos la linea de stado
inicializar:
row = 0 'Inicializamos las columnas a 0
written = 0
Print "Comienzando la Exportación del Fichero Excel ..."
Do While True
Datos:
With xlSheet
For i=1 To ndcol.count
row = row + 1
.Cells( row, 1 ).Value=doc.nombre
.Cells(row, 2 ).Value=doc.apellidos
.Cells(row, 3).Value=doc.direccion
escritos = escritos + 1
Set doc=ndcol.getnextdocument(doc)
Next
If escritos = ndcol.count Then
Goto Completo
End If
End With
Loop
Return
Completo:
xlWorkbook.Close True 'Cerramos la hoja de Excel y Guardamos
Excel.Quit '// Cerramos Excel
Msgbox "Registros Creados:" & written
End Sub
|
Otros documentos de LotusScript
|