Foro NoterosChile
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Importar desde Excel

Ir abajo

Importar desde Excel Empty Importar desde Excel

Mensaje por JoseRios Lun Feb 25, 2008 1:19 pm

Un ejemplo de importación desde excel.

Código:

On Error Goto oops
   Dim xFileName As String
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument   
   Dim i As Double
   
   Set db = session.CurrentDatabase
   Set Excel = CreateObject("Excel.Application")
   
   
   myEv =  ws.OpenFileDialog(False,"Seleccione el archivo Excel que contiene los Datos","Archivos Excel|*.xls","C","")
   xFilename = myEv(0)   
   
   Excel.WorkBooks.Open xFilename
   Narch = Strrightback(xFilename,"\")
   Set xWorkBook = Excel.ActiveWorkBook
   Set Hojas = xWorkBook.Sheets
   Excel.Visible=True
   'Navegamos todas las hojas del Libro
   Forall Hoja In Hojas
      Hoja.Activate
      Print "Recorriendo " & Ucase(Hoja.Name) & "..."
      i=2
      While Hoja.Cells(i,1).value <> ""
         Set doc = db.CreateDocument
         doc.Form="Frm_Asistencia"
         'Llenamos el documento
         doc.AsisFecha=Hoja.Cells(i,1).value
         doc.AsisDia=Hoja.Cells(i,2).value
         doc.AsisPersonalID=Hoja.Cells(i,3).value
         doc.AsisPersonalNombre=Hoja.Cells(i,4).value
         doc.AsisSector=Hoja.Cells(i,5).value
         doc.AsisHoraEntrada=Hoja.Cells(i,6).value
         doc.AsisHoraSalidaCol=Hoja.Cells(i,7).value
         doc.AsisHoraEntradaCol=Hoja.Cells(i,8).value
         doc.AsisHoraSalida=Hoja.Cells(i,9).value
         doc.AsisObservacion=Hoja.Cells(i,14).value
         doc.AsisSectorDesc=Hoja.Cells(i,16).value
         Call doc.Save(True, True)
         i=i+1
      Wend
   End Forall
   Excel.Quit
   Msgbox "Se ha términado la carga desde Excel", 64, "Importación"
   Print "Carga Completa!"
   ws.ViewRefresh
   Exit Sub   
oops:
   If Err=184 Then
      Msgbox "El Usuario ha cancelado la importación", 64,"Importación desde Excel"
      Exit Sub
   End If
   Msgbox "Error: " & Error & ", en linea " & Erl
Exit Sub
JoseRios
JoseRios

Cantidad de envíos : 39
Edad : 39
Localización : Santiago, Chile
Fecha de inscripción : 25/02/2008

http://noteroschile.wordpress.com

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.