Importar desde Excel
Página 1 de 1.
Importar desde Excel
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
Temas similares
» Importar desde Archivo Plano (.txt)
» Exportar hacia Excel
» Desde 1,5 horas a 1 hora con 30 minutos
» Exportar hacia Excel
» Desde 1,5 horas a 1 hora con 30 minutos
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|