GeneXus - como traer datos de un excel

&XlsFileName = 'C:\Pruebas\Clientes.xls'

&ArchiExcel.Open(&XlsFileName ) // ABRE LA HOJA EXCEL

if &ArchiExcel.ErrCode <> 0

    msg(&ArchiExcel.ErrDescription)

    return

  else

    &Fil = 2 // Inicializa la fila

    &CliId = &ArchiExcel.Cells(3 ,1).Number

    do while &CliId > 0 // Recorre verticalmente el archivo Excel

      &Col += 1

      &CliId  = &ArchiExcel.Cells(&Fil ,1).Number

      if &CliId > 0

        new // Crea un registro en la tabla

          CliId  = &CliId

          CliNom = &ArchiExcel.Cells(&Fil ,2).Text

        endnew

      endif

    enddo

    &ArchiExcel.Close()

endif

// &XlsFileName C(255)

// &ArchiExcel Data type ExcelDocument