Compañeros buenas tardes, tengo el siguiente inconveniente estoy intentando cargar un Datagrid con el contenido de un archivo de excel si hago el procedimiento con un archivo excel 2003 no hay inconveniente pero si lo intento hacer con un archivo excel 2007 hay parece un mensaje de error "La tabla externa no tiene el formato esperado." el código que utilizo para dicho procedimiento es el siguiente:
Tengo instalado el office 2007 en mi PC
Saludos.
Código vb:
Ver original
Dim Ruta As String buscador.ShowDialog() Ruta = buscador.FileName If Path.GetExtension(Ruta) = ".xls" Or Path.GetExtension(Ruta) = ".xlsx" Then Try Dim Conexion As New OleDb.OleDbConnection Dim Adaptador As New OleDbDataAdapter Dim CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" + Ruta + ";" + "Extended Properties=Excel 8.0;" Conexion = New OleDb.OleDbConnection(CadenaConexion) Adaptador = New OleDb.OleDbDataAdapter("SELECT * FROM [Hoja1$]", Conexion) Sdataset = New DataSet() Adaptador.Fill(Sdataset, "Hoja1$") Sdatatable = Sdataset.Tables(0) Me.grid_listas.DataSource = Sdatatable Me.grid_listas.Font = New Font("Tahoma", 12, FontStyle.Regular, GraphicsUnit.Pixel) Me.grid_listas.ColumnHeadersDefaultCellStyle.Font = New Font("Tahoma", 12, FontStyle.Bold, GraphicsUnit.Pixel) Me.grid_listas.Columns(1).Width = 100 Me.grid_listas.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter Me.grid_listas.Columns(2).Width = 80 Catch ex As Exception MessageBox.Show(ex.Message) End Try Else MessageBox.Show("Archivo No Válido", "Excel To Grid", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End If
Tengo instalado el office 2007 en mi PC
Saludos.