Mostrar datos Excel en datagridview# Visual Basic (importar datos desde fichero)

[Ogramar]

Hoola!

Con el código que indico más abajo se pueden leer los datos de un archivo excel y mostrarlos sobre un datagridview con Visual Basic

Para que funcione hay que escribir bien la ruta (C:\ejemplo.xlsx puede ser otra) y el nombre de la hoja (en vez de [Hoja1$] puede ser [Productos$] o como se llame)

Código: [Seleccionar]

Imports System.Data.OleDb
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim objConn As OleDbConnection
        Dim oleDA As OleDbDataAdapter
        Dim ds As DataSet
        Dim FileName As String
        FileName = "C:\ejemplo.xlsx"

        Try
            'Create a OLEDB connection for Excel file
            Dim connectionString As String = "Provider=Microsoft.ACE.Oledb.12.0;Data Source=" & FileName & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"""
            objConn = New OleDbConnection(connectionString)
            oleDA = New OleDbDataAdapter("select * from [Hoja1$]", objConn)
            ds = New DataSet()
            'Fill the Data Set
            oleDA.Fill(ds)
            'Set DataSource of DataGridView
            DataGridView1.DataSource = ds.Tables(0)
            ds.Dispose()
            oleDA.Dispose()
            objConn.Dispose()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub

End Class
Salu2!

[Calonso]

Hola Ogramar.


Muchisimas gracias por el aporte que me has dado, yo estaba aferrado con el Interop pero ya puse el cogdigo que me proporcionaste y vuala ...... si lo cargo y todo.

Pero ahora lo que quiero es poder manipular esos datos para eliminar, filtrar, concatenar, pivotear y explosionar datos.

Si me pudieras apoyar en orientarme un poco como hacer esto con esos datos estaria de lujo.

Muchisisimas gracias por el apoyo.


Saludos

Haaa por cierto el codigo me quedo asi

Código: [Seleccionar]

Imports System.Data.OleDb
Imports System.IO
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub CapturarFormato28BToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CapturarFormato28BToolStripMenuItem.Click
        Dim objConn As OleDbConnection
        Dim oleDA As OleDbDataAdapter
        Dim ds As DataSet
        Dim FileName As String
        FileName = "C:\28b - Ejemplo.xlsx"

        Try
            'Create a OLEDB connection for Excel file
            Dim connectionString As String = "Provider=Microsoft.ACE.Oledb.12.0;Data Source=" & FileName & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"""
            objConn = New OleDbConnection(connectionString)
            oleDA = New OleDbDataAdapter("select * from [28b$]", objConn)
            ds = New DataSet()
            'Fill the Data Set
            oleDA.Fill(ds)
            'Set DataSource of DataGridView
            DataGridView1.DataSource = ds.Tables(0)
            ds.Dispose()
            oleDA.Dispose()
            objConn.Dispose()
        Catch ex As Exception
        End Try
    End Sub
End Class

[Ogramar]

Hola, en los foros seguimos el principio "ayudar en todo lo posible a partir de problemas concretos y código". Por tanto intenta desarrollar la funcionalidad que quieres introducir, explícala bien, pega el código, adjunta el proyecto o facilita un enlace para la descarga del proyecto y a partir de ahí intentaremos ayudar.

Salu2

[Calonso]

Excelente ogramar...... de hecho estoy en ese punto .... siguir haciendo el prigrama ya cuando me salgan las broncas obvio apoyarme aqui.

Gracias