Ayuda AHORA ERP CRM

Script de ejemplo para seleccionar un fichero excel y leerlo.

El siguiente ejemplo solicita en pantalla un fichero y lee sus columnas.

Dim fso, lFichero

lFichero = SelectFile() 

Set fso = CreateObject("Scripting.FileSystemObject")  

If Not fso.FileExists(lFichero) Then

  MsgBox "Fichero " & lFichero & " no existente"

  Exit Sub

End If

If MsgBox("¿Desea Importar el fichero de Excel seleccionado?",VBYesNo,"Importar Pedido del Cliente") = VBYes Then

    Importa_Excel lFichero

End If

Function Importa_Excel (lFichero)

    lFilaALeer = 2   'Fila sobre la que empezaremos a leer, normalmente la 1 es el nombre de las columnas

    Set objExcel = CreateObject("Excel.Application")  

    ' Apertura del fichero xls

    objExcel.Workbooks.Open lFichero,,False 

    ' Seguirá leyendo mientras no encuentre una celda en blanco (en la columna A)

    While Len("" & objExcel.ActiveWorkbook.Sheets(1).Application.Cells(lFilaALeer, 1)) > 0 

      lDatoARecuperarColumna1 = objExcel.ActiveWorkbook.Sheets(1).Application.Cells(lFilaALeer, 1)

      lDatoARecuperarColumna2 = objExcel.ActiveWorkbook.Sheets(1).Application.Cells(lFilaALeer, 2)

      ...

      lFilaALeer = lFilaALeer + 1

    Wend

    objExcel.Quit  

    Set objExcel = Nothing

End Function