Private Sub AbrirExcel(RutaArchivoExcel As String, NombreHojaExcel As String, DGV As DataGridView)
Dim AbrirExcel As New OpenFileDialog
AbrirExcel.Title = "Abrir archivo de Excel"
AbrirExcel.Filter = "Archivos de excel|*.xls;*.xlsx"
If AbrirExcel.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Try
Me.Cursor = Cursors.WaitCursor
Dim ds As New DataSet()
Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & RutaArchivoExcel & ";" & "Extended Properties=Excel 12.0;"
Dim excelData As New OleDbDataAdapter("SELECT * FROM [" & NombreHojaExcel & "$]", connectionString)
excelData.TableMappings.Add("Table", "ExcelSheet")
excelData.Fill(ds)
DGV.DataSource = ds.Tables(0)
Me.Refresh()
Me.Cursor = Cursors.Default
Catch ex As Exception
Me.Cursor = Cursors.Default
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End If
End Sub