Visual Basic - Tomar datos de hoja excel

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Tomar datos de hoja excel

Publicado por Diego (18 intervenciones) el 18/05/2017 15:35:55
Buen día.
Una consulta: tengo que tomar datos insertados en una hoja excel y quisiera saber qué componente es el ideal para realizar esta operación (datagrid, msflexgrid, etc)
También necesito que dicho componente sea de estilo moderno y no el común por defecto. ¿podrían indicarme dónde puedo descargar efectos de plantillas?
Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Tomar datos de hoja excel

Publicado por Andres Leonardo (1798 intervenciones) el 18/05/2017 16:06:22
Te recomiendo el Flexgrid. le puedes dar formato , asi mismo puede copiar formaoto de otros diseños , fuentes y colores....

si es vs2010 puede ser el data grid que tiene efecto moderno

Igual espero te sirva. (ninguno de los dos debes descargarlos solo activarlo )
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Tomar datos de hoja excel

Publicado por Diego (18 intervenciones) el 18/05/2017 16:57:15
Te agradezco la respuesta.
¿Y si en vez de cargar el flexgrid quisiera cargar labels ó text?
Por ejemplo: tengo una hoja excel llamada Archivo.xls
Quisera importar la columna 1, fila 6 de la hoja 1 y la columna 2, fila 1 de la hoja 2.
Gracias nuevamente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Tomar datos de hoja excel

Publicado por Andres Leonardo (1798 intervenciones) el 18/05/2017 18:55:52
Y lo podrias hace solo que apareceria 1 cada vez ....

En todo caso ..... se podria hacer ... solo que deberias referenciar el valor

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Tomar datos de hoja excel

Publicado por Diego (18 intervenciones) el 18/05/2017 22:56:20
Andrés, buenas tardes...a ver si me das una mano con lo siguiente:
tengo el siguiente código que llama a una hoja excel mediante botón command

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
 
    Dim objExcel As Excel.Application
    Dim xLibro As Excel.Workbook
    Set objExcel = New Excel.Application
    Set xLibro = objExcel.Workbooks.Open("ruta_del_archivo\archivo.xlsx")
    objExcel.Visible = True
 
End Sub

Lo que pretendo es sencillo: leer de la hoja1, por ejemplo, la celda a1 y que ese valor lo pegue en un textbox (no necesito guardar ese valor, sólo verlo)
Muchas gracias...espero puedas ayudarme.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Tomar datos de hoja excel

Publicado por Diego (18 intervenciones) el 19/05/2017 01:14:54
Bueno...he encontrado una manera de resolver el problema; es un poco rebuscado pero por ahora me sirve.
De todas maneras, si alguien conoce un camino mejor, me avisa.
El código siguiente me trae un dato de una celda en particular y la pega en un combo.
Luego traslado el resultado del combo a un label. En propiedades dejo el combo en visible=false (ya que no quiero que se vea)
Gracias.

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
        Dim objExcel As Excel.Application
        Dim xLibro As Excel.Workbook
        Set objExcel = New Excel.Application
        Set xLibro = objExcel.Workbooks.Open("ruta\archivo.xlsx")
        With xLibro
            With .Sheets(6)
                     Combo1.AddItem .Cells(3)
                     Label38.Caption = .Cells(3)
            End With
        End With
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar