none
Nombre de Celda de Excel RRS feed

  • Pregunta

  • Hola a todos se le agradece la ayuda, bueno la duda es la siguiente como puedo extraer los datos de una o varias celdas de excel con el nombre de esa celda no con su indice osea, para explicar lo que necesito, a ver si me hago entender lo que necesito es pasar esas celdas a un datagridview pero resulta que puede ser 1 o 2 o 3 etc celda variable osea de cierta hoja necesito la celda A y B verdad como en otra ocasion sea la C , F y G y esa celda la quiero enviar a cualquier columna del datagriedview de igual manera a la columna que se necesite bueno espero me haga entender y gracias de antemano...

    • Cambiado Enrique M. Montejo viernes, 10 de marzo de 2017 8:16 Programación con Microsoft Excel.
    miércoles, 8 de marzo de 2017 15:55

Respuestas

  • Hola:
    Este ejemplo hace uso de la libreria Spire.XLS, por lo tanto tendras que agregar una referencia a dicha librería.
    En un Form como el de la imagen.

    Copia y pega el siguiente codigo
    Imports Spire.Xls
    Public Class Form1
        Dim DataTable As New DataTable
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            DataTable.Columns.Add("valor", Type.GetType("System.String"))
            Me.DataGridView1.DataSource = DataTable
        End Sub

        Private Sub btnAñadir_Click(sender As Object, e As EventArgs) Handles btnAñadir.Click
            Dim workbook As Workbook = New Workbook()
            workbook.LoadFromFile("D:\TU_CARPETA\TU_FICHERO_EXCEL.xlsx")
            'Initailize worksheet
            Dim sheet As Worksheet = workbook.Worksheets(0)
            DataTable.Rows.Add(sheet.Range(Me.txtCelda.Text).Text)
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta Kenlight33 domingo, 26 de marzo de 2017 2:35
    miércoles, 8 de marzo de 2017 22:02

Todas las respuestas

  • Hola:
    Este ejemplo hace uso de la libreria Spire.XLS, por lo tanto tendras que agregar una referencia a dicha librería.
    En un Form como el de la imagen.

    Copia y pega el siguiente codigo
    Imports Spire.Xls
    Public Class Form1
        Dim DataTable As New DataTable
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            DataTable.Columns.Add("valor", Type.GetType("System.String"))
            Me.DataGridView1.DataSource = DataTable
        End Sub

        Private Sub btnAñadir_Click(sender As Object, e As EventArgs) Handles btnAñadir.Click
            Dim workbook As Workbook = New Workbook()
            workbook.LoadFromFile("D:\TU_CARPETA\TU_FICHERO_EXCEL.xlsx")
            'Initailize worksheet
            Dim sheet As Worksheet = workbook.Worksheets(0)
            DataTable.Rows.Add(sheet.Range(Me.txtCelda.Text).Text)
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta Kenlight33 domingo, 26 de marzo de 2017 2:35
    miércoles, 8 de marzo de 2017 22:02
  • Gracias lo pondre en practica...
    domingo, 12 de marzo de 2017 15:10