de Excel a msflexgrid

[gasafonso]

Hola gente, alguien sabe como puedo incorporar datos de un archivo excel a una grilla ( msfkexgrid) ?

gracias

[gasafonso]

Nadie me puede dar una mano con esto ?

[lokoman]

Hola!
El proceso seria asi:
1-Conectarte al archivo Excel y hacer un query (Select * from NombreHoja)
2-Carga el recordset que acabas de hacer en el Grid

[gasafonso]

Si lokoman, yo tengo una rutina de :

Código vb:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/128-importar-excel-flexgrid.htm
 

pero no me sirve, a parte me da una error, me dice " SE REQUIERE UN OBJETO"

y creo que es por que tengo office 2003, necesitaria alguna rutina para este office


gracias

[lokoman]

Acabo de probar el link y funcionó al 100%, esto fue lo que cambié:

• La ruta del ARCHIVO EXCEL
• El nombre de la HOJA EXCEL
• El nombre del COMMAND
• El nombre del FLEX

Verifica si los nombres que tienes en tu FORM coinciden con los de la rutina, si estan diferentes te saldrá ese error "SE REQUIERE UN OBJETO"

[gasafonso]

Vos tenes el 2003 ? , pero seguramente es una actualizacion del 98 o 97

Sino no se que puede ser, en las referencias que tenes marcado ? como se llama el drivers?

[lokoman]

Tengo el Office 2003, no actualizacion.
Simplemente le di COPY y PASTE al codigo del link, renombré los controles que te mencioné. No añadí referencias a nada, solo el componente FLEX.

• Agrega un MICROSOFT FLEXGRID CONTROL --> NOMBRE: MSFlexGrid
• Agrega un COMMAND --> NOMBRE: CMD
• En el evento clic del CMD:
Call Excel_FlexGrid("D:\Me\Down\New\Exe\Test.xls", MSFlexGrid, 20, 5, "Export")


Componentes


Referencias


Form sin datos


Form con datos

CODE:

Código vb:

Option Explicit
 
' \\ -- Autor :         Luciano Lodola -- http://www.recursosvisualbasic.com.ar/
 
' ---------------------------------------------------------------------------------
 
 
' -- Variables para acceder a la hoja excel
Private obj_Excel       As Object
Private obj_Workbook    As Object
Private obj_Worksheet   As Object
 
' ----------------------------------------------------------------------------------
' \\ -- Inicio
' ----------------------------------------------------------------------------------
Private Sub Form_Load()
    Me.Caption = " Importar Excel a FlexGrid "
    cmd.Caption = " Importar a Flexgrid "
    ' -- Configurar el Grid
    With MSFlexGrid
        .Cols = 10
        .FixedCols = 0
    End With
End Sub
' ----------------------------------------------------------------------------------
' \\ -- Fin
' ----------------------------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
    Call Descargar
End Sub
 
' ----------------------------------------------------------------------------------
' \\ -- Función para leer los datos del Excel y cargarlos en el Flex
' ----------------------------------------------------------------------------------
Private Sub Excel_FlexGrid(sPath As String, FlexGrid As Object, Filas As Integer, Columnas As Integer, Optional sSheetName As String = vbNullString)
 
    Dim i As Long
    Dim n As Long
    
    On Error GoTo error_sub
    ' -- Comproba si existe l archivo
    If Len(Dir(sPath)) = 0 Then
       MsgBox "No se ha encontrado el archivo: " & sPath, vbCritical
       Exit Sub
    End If
    
    Me.MousePointer = vbHourglass
    ' -- crea rnueva instancia de Excel
    Set obj_Excel = CreateObject("Excel.Application")
    'obj_Excel.Visible = True
    
    ' -- Abrir el libro
    Set obj_Workbook = obj_Excel.Workbooks.Open(sPath)
    ' -- referencia la Hoja, por defecto la hoja activa
    If sSheetName = vbNullString Then
        Set obj_Worksheet = obj_Workbook.ActiveSheet
    Else
        Set obj_Worksheet = obj_Workbook.Sheets(sSheetName)
    End If
    
    ' -- Setear Grid
    With MSFlexGrid
        ' -- Especificar  la cantidad de filas y columnas
        '.Cols = Columnas
        .Rows = Filas
        ' -- Recorrer las filas del FlexGrid para agregar los datos
        For i = 1 To .Rows - 1
            ' -- Establecer la fila activa
            .Row = i
            ' -- Recorrer las columnas del FlexGrid
            For n = 0 To .Cols - 1
                ' -- Establecer columna activa
                .Col = n
                ' -- Asignar a la celda del Flex el contenido de la celda del excel
                .Text = obj_Worksheet.Cells(i + 1, n + 1).Value
            Next
        Next
    End With
    ' -- Cerrar libro
    obj_Workbook.Close
    ' -- Cerrar Excel
    obj_Excel.quit
    ' -- Descargar objetos para liberar recursos
    Call Descargar
' -- Errores
Exit Sub
error_sub:
    MsgBox Err.Description
    Call Descargar
        Me.MousePointer = vbDefault
End Sub
' ----------------------------------------------------------------------------------
' \\ -- Función para descargar los objetos
' ----------------------------------------------------------------------------------
Private Sub Descargar()
    On Local Error Resume Next
    Set obj_Workbook = Nothing
    Set obj_Excel = Nothing
    Set obj_Worksheet = Nothing
    Me.MousePointer = vbDefault
End Sub
' ----------------------------------------------------------------------------------
' \\ -- Botón para leer los datos del libro e importarlos al Grid
' ----------------------------------------------------------------------------------
Private Sub cmd_Click()
    Call Excel_FlexGrid("D:\Me\Down\New\Exe\Test.xls", MSFlexGrid, 20, 5, "Export")
End Sub
 

[gasafonso]

Hola lokoman, en la carpeta
c:/archivo de programas/microsoft office que carpetas tenes?

Yo tengo la carpeta MEDIA, Office, office11, office12 y templates

Y lo que te falto al principio las API

"PRIVATE DECLARE FUNCTION SetErrorMode lib "Kernel32" ( ByVal vmode as long) as long
"PRIVATE DECLARE SUB InitCommonControls lib "Comctl32" ()

[lokoman]

Tengo las mismas carpetas, ademas de otra que dice CLIPART y STATIONERY, que tiene unas imagenes...

No uso APIs, solo el CODE que está arriba, es todo lo que uso... cuando usas:
• "PRIVATE DECLARE ...
Creo que no debes poner comillas al inicio.

Como te decia, si te sale "SE REQUIERE UN OBJETO", es porque debes tener algun control con un nombre diferente... estas usando el CODE tal cual lo puse o tienes algo editado? Postealo para hacer un test...

Otra cosa, verifica en el TASK MANAGER si el proceso EXCEL está corriendo, es posible que esté enganchado y te esté causando error.

[gasafonso]

Iniciado por lokoman

Tengo las mismas carpetas, ademas de otra que dice CLIPART y STATIONERY, que tiene unas imagenes...

No uso APIs, solo el CODE que está arriba, es todo lo que uso... cuando usas:
• "PRIVATE DECLARE ...
Creo que no debes poner comillas al inicio.

Como te decia, si te sale "SE REQUIERE UN OBJETO", es porque debes tener algun control con un nombre diferente... estas usando el CODE tal cual lo puse o tienes algo editado? Postealo para hacer un test...

Otra cosa, verifica en el TASK MANAGER si el proceso EXCEL está corriendo, es posible que esté enganchado y te esté causando error.

el TASK MANAGER ? que es eso ? como se hace ?

[gasafonso]

Código vb:

Option Explicit
 
' \\ -- Autor :         Luciano Lodola -- http://www.recursosvisualbasic.com.ar/
 
' ---------------------------------------------------------------------------------
 
' \\ Declaraciones ( Apis )
' ------------------------------------------------------------------------------------------
Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long
Private Declare Sub InitCommonControls Lib "Comctl32" ()
 
 
' -- Variables para acceder a la hoja excel
Private obj_Excel       As Object
Private obj_Workbook    As Object
Private obj_Worksheet   As Object
 
Private Sub Form_Initialize()
    Call SetErrorMode(2)
    Call InitCommonControls
End Sub
 
' ----------------------------------------------------------------------------------
' \\ -- Inicio
' ----------------------------------------------------------------------------------
Private Sub Form_Load()
    Me.Caption = " Importar Excel a FlexGrid "
    Command1.Caption = " Importar a Flexgrid "
    ' -- Configurar el Grid
    With MSFlexGrid1
        .Cols = 10
        .FixedCols = 0
        .FormatString = "Fecha|Gastos"
        .ColWidth(0) = 2000
        .ColWidth(1) = 1500
    End With
End Sub
' ----------------------------------------------------------------------------------
' \\ -- Fin
' ----------------------------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
    Call Descargar
End Sub
 
' ----------------------------------------------------------------------------------
' \\ -- Función para leer los datos del Excel y cargarlos en el Flex
' ----------------------------------------------------------------------------------
Private Function Excel_FlexGrid(sPath As String, FlexGrid As Object, Filas As Integer, Columnas As Integer, Optional sSheetName As String = vbNullString) As Boolean
 
    Dim i As Long
    Dim n As Long
    
    On Error GoTo error_sub
    ' -- Comproba si existe l archivo
    If Len(Dir(sPath)) = 0 Then
       MsgBox "No se ha encontrado el archivo: " & sPath, vbCritical
       Exit Function
    End If
    
    FlexGrid.Redraw = False
    
    Me.MousePointer = vbHourglass
    ' -- crea rnueva instancia de Excel
    Set obj_Excel = CreateObject("Excel.Application")
    'obj_Excel.Visible = True
    
    ' -- Abrir el libro
    Set obj_Workbook = obj_Excel.Workbooks.Open(sPath)
    ' -- referencia la Hoja, por defecto la hoja activa
    If sSheetName = vbNullString Then
        Set obj_Worksheet = obj_Workbook.ActiveSheet
    Else
        Set obj_Worksheet = obj_Workbook.Sheets(sSheetName)
    End If
    
    ' -- Setear Grid
    With MSFlexGrid1
        ' -- Especificar  la cantidad de filas y columnas
        '.Cols = Columnas
        .Rows = Filas
        ' -- Recorrer las filas del FlexGrid para agregar los datos
        For i = 1 To .Rows - 1
            ' -- Establecer la fila activa
            .Row = i
            ' -- Recorrer las columnas del FlexGrid
            For n = 0 To .Cols - 1
                ' -- Establecer columna activa
                .Col = n
                ' -- Asignar a la celda del Flex el contenido de la celda del excel
                .Text = obj_Worksheet.Cells(i + 1, n + 1).Value
            Next
        Next
    End With
    ' -- Cerrar libro
    obj_Workbook.Close
    ' -- Cerrar Excel
    obj_Excel.quit
    ' -- Descargar objetos para liberar recursos
    Call Descargar
    Excel_FlexGrid = True
    FlexGrid.Redraw = True
' -- Errores
Exit Function
error_sub:
    MsgBox Err.Description
    Call Descargar
    Me.MousePointer = vbDefault
    FlexGrid.Redraw = True
End Function
 
Private Sub HighLight_Cells(Grid As Object, cdblMinValue As Double, iCurrentCol As Integer)
    Dim iRow As Integer
    With Grid
        .Redraw = False
        For iRow = 1 To Grid.Rows - 1
            ' -- Establecer Columna y fila activa
            .Col = iCurrentCol
            .Row = iRow
            
            ' -- Comparar el valor
            If IsNumeric(.TextMatrix(iRow, iCurrentCol)) Then
                If CDbl(.TextMatrix(iRow, iCurrentCol)) >= cdblMinValue Then
                    ' -- Remarcar y resaltar de color esta celda
                    .CellForeColor = vbRed
                End If
            End If
        Next
        .Redraw = True
    End With
End Sub
 

Esto es como lo tengo, casi original de Recursosvisuales

[lokoman]

El TASK MANAGER de windows, clic derecho en la barra de tareas...
Probé tu CODE, te faltan dos cosas:

• La rutina del DESCARGAR
• El Evento CLIC del COMMAND, sin esto no te funcionará

Código vb:

Private Sub Descargar()
    On Local Error Resume Next
    Set obj_Workbook = Nothing
    Set obj_Excel = Nothing
    Set obj_Worksheet = Nothing
    Me.MousePointer = vbDefault
End Sub
' ----------------------------------------------------------------------------------
' \\ -- Botón para leer los datos del libro e importarlos al Grid
' ----------------------------------------------------------------------------------
Private Sub Command1_Click()
    Call Excel_FlexGrid("D:\Me\Down\New\Exe\Test.xls", MSFlexGrid1, 20, 5, "Export")
End Sub
 

Asegurate de poner la RUTA correcta a tu archivo y el NOMBRE de la hoja en esta linea:

• Call Excel_FlexGrid("D:\Me\Down\New\Exe\Test.xls", MSFlexGrid1, 20, 5, "Export")

Despues todo esta al 100%

[gasafonso]

En el COPY y PASTE me quedo eso pero tengo la linea de descargar y la llamada al cmd

[lokoman]

Pues, se me ocurren dos cosas:

1-Cual es la estructura de tu archivo EXCEL? recuerda que debe tener un formato de tablas, sin lineas vacias entre los registros ni comillas simples ( ' ) , un nombre valido para la hoja de excel, etc. Ej.:

Código HTML:

CAMPO1            CAMPO2       CAMPO3
    bla            bla            bla
    bla            bla            bla
    bla            bla            bla
 

2-Corre tu programa con F8 y verifica cual es la linea que te presenta el error "SE REQUIERE UN OBJETO"

Confio en que ya verificaste los NOMBRES de los controles y que no estes llamando a un control que no existe en otra parte.

[gasafonso]

Si , la estructura es asi y no tiene espacios vacios ni comillas simples

el error me lo da en esta linea

Set obj_Excel = CreateObject("Excel.Application")
y me salta al " Call Descargar"


y el nombre de la hoja es : "Sheet1"

[lokoman]

Cuales son tus referencias? yo solo tengo estas y tu CODE me funciona al 100%:

• Visual Basic for Applications
• Visual Basic runtime objects and procedures
• Visual Basic objects and procedures
• OLE automation

[gasafonso]

Si tengo las mismas que vos

Para mi debe ser algun drivers que quedo colgado de excel

[gasafonso]

Alguien me puede ayudar ocn este tema ?

Es raro ya que en otra maquina que tengo me anda y tiene el mismo office 2003 y version


GRacias