Scribd
Cargar
80 vistas

Formulario

Este documento proporciona instrucciones para importar datos de Excel a un DataGridView en Visual Basic. Muestra cómo abrir un cuadro de diálogo para seleccionar un archivo Excel, recuperar el nombre de la hoja deseada, crear una conexión OleDb y un adaptador de datos para extraer los datos de la hoja seleccionada y cargarlos en un DataSet y DataTable, y establecer el DataTable como la fuente de datos del DataGridView.

Cargado por

Raúl Rojas
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
80 vistas

Formulario

Este documento proporciona instrucciones para importar datos de Excel a un DataGridView en Visual Basic. Muestra cómo abrir un cuadro de diálogo para seleccionar un archivo Excel, recuperar el nombre de la hoja deseada, crear una conexión OleDb y un adaptador de datos para extraer los datos de la hoja seleccionada y cargarlos en un DataSet y DataTable, y establecer el DataTable como la fuente de datos del DataGridView.

Cargado por

Raúl Rojas
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
Está en la página 1/ 2

IR DE UN FORMULARIO A OTRO

Me.Hide()
Form2.Show() /Form2 es el formulario a abrir

AGREGAR DATOS DE EXCEL A UN DATA GRIDVIEW

Imports System.IO 'esta libreria nos va a servir para poder activar el commandialog

Imports Microsoft.Office.Interop

Imports System.Data

Imports System.Data.OleDb

Imports System

Imports Microsoft.VisualBasic

Module Importar

Sub importarExcel(ByVal tabla As DataGridView)

Dim myFileDialog As New OpenFileDialog()

Dim xSheet As String = ""

With myFileDialog

.Filter = "Excel Files |*.xlsx"

.Title = "Open File"

.ShowDialog()

End With

If myFileDialog.FileName.ToString <> "" Then

Dim ExcelFile As String = myFileDialog.FileName.ToString

Dim ds As New DataSet

Dim da As OleDbDataAdapter

Dim dt As DataTable

Dim conn As OleDbConnection

xSheet = InputBox("Digite el nombre de la Hoja que desea importar",


"Complete")
conn = New OleDbConnection( _

"Provider=Microsoft.ACE.OLEDB.12.0;" & _

"data source=" & ExcelFile & "; " & _

"Extended Properties='Excel 12.0 Xml;HDR=Yes'")

Try

da = New OleDbDataAdapter("SELECT * FROM [" & xSheet & "$]", conn)

conn.Open()

da.Fill(ds, "MyData")

dt = ds.Tables("MyData")

tabla.DataSource = ds

tabla.DataMember = "MyData"

Catch ex As Exception

MsgBox("Inserte un nombre valido de la Hoja que desea importar",


MsgBoxStyle.Information, "Informacion")

Finally

conn.Close()

End Try

End If

MsgBox("Se ha cargado la importacion correctamente",


MsgBoxStyle.Information, "Importado con exito")

End Sub

End Module

También podría gustarte