Lotus Notes - Importar datos de Excel a Lotus Notes

 
Vista:

Importar datos de Excel a Lotus Notes

Publicado por Susana (7 intervenciones) el 08/08/2007 19:49:11
HOla que tal escribo para ver si me pueden ayudar a saber como puedo importar datos de un archivo excel a una vista de lotus notes?

Gracias!
Susana
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:Importar datos de Excel a Lotus Notes

Publicado por Hugo Correa (286 intervenciones) el 08/08/2007 22:07:40
Puedes visitar este link:
http://free.corefusion.net/Free/hugosoft/home.nsf/lotusscript10/86162CD6E2E300CA852571A800684732?OpenDocument

te copio el código:

Dim xlFilename As String
xlFilename = "c:\archivo.xls" 'archivo que vamos a importar
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument(db)
Dim One As String
Dim row As Integer
Dim written As Integer
filas=Inputbox("Teclea el número de filas","Introducción de No. de Filas",10)
If filas="" Then
Exit Sub
End If
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 Records
Print "Disconnecting from 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 estado
Records:
row = 0 'ponemos a 0 las variables
written = 0
Print "Comenzando la importación del fichero de Excel..."
Do While True
Finish:
With xlSheet
filas=filas+writen
row = row + 1
Set view = db.GetView("Vista") ' Nombre de la vista
Set doc = db.CreateDocument '// Creamos un nuevo documento
doc.Form = "Form" ´Forma que se tomara para crear documentos
doc.campo_de_la_form1 = .Cells( row, 1 ).Value
doc.campo_de_la_form2 = .Cells(row, 2 ).Value
doc.campo_de_la_form3 = .Cells(row, 3).Value
Call doc.Save( True, True ) ' Guardamos el documento
written = written + 1
If written = filas Then
Goto Done
End If
End With
Loop
Return
Done:
Msgbox "Documentos creados:" & written
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:Importar datos de Excel a Lotus Notes

Publicado por Susana (7 intervenciones) el 08/08/2007 23:52:54
Muchas Gracias!, lo checare
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:Importar datos de Excel a Lotus Notes

Publicado por CORNELIUS (104 intervenciones) el 15/02/2008 21:15:46
UN CODIGO GENIAL¡¡¡¡
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:Importar datos de Excel a Lotus Notes

Publicado por claudio lobos (1 intervención) el 17/03/2010 14:55:05
fabuloso, funciono a la primera, agradecido.
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:Importar datos de Excel a Lotus Notes

Publicado por Alejandro (49 intervenciones) el 27/04/2010 11:56:36
Hola a todos,

Tengo la vista creada con las mismas columnas que tiene el fichero de excel, y no ha manera.
Me hace la importación pero en la vista me figuran sólo números y no los registros del fichero de excel. No sé a que puede ser debido.
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:Importar datos de Excel a Lotus Notes

Publicado por Juan Manuel (5 intervenciones) el 06/03/2012 15:53:43
Eso es debido a que las columnas de la vista no le has asignado los campo a los que quieres que se almacenen en el formulario que creaste para esa base de datos.
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