Ver Mensaje Individual
  #4 (permalink)  
Antiguo 03/05/2013, 00:26
maialenlopez
 
Fecha de Ingreso: abril-2012
Mensajes: 449
Antigüedad: 12 años, 11 meses
Puntos: 7
Respuesta: connectionstring

Ya está, lo hice así, dejo el código por si a alguien le resulta útil:

Código vb.net:
Ver original
  1. Dim xls_cn As New OleDbConnection
  2. Dim xls_cmd As New OleDbCommand
  3. Dim xls_reader As New OleDbDataAdapter
  4. Dim m_Excel As Microsoft.Office.Interop.Excel.Application
  5. Dim strExtension As String = ""
  6. Dim nombreXls As String
  7.  
  8. nombreXls = Path.GetFileName(xlsx)
  9. strExtension = Path.GetExtension(xlsx)
  10. If strExtension = ".xls" Or strExtension = ".xlsx" Then
  11.   'MsgBox("es un archivo excel")
  12.   If (File.Exists(xlsx)) Then
  13.     xls_cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + xlsx + ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=0'"
  14.     'xls_cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source=" + xlsx + ";Extended Properties='Excel 12.0;HDR=YES'"
  15.     Using xls_cn
  16.  
  17.        m_Excel = CreateObject("Excel.Application")
  18.        m_Excel.Workbooks.Open(xlsx)
  19.        xls_cn.Open()
  20.        xls_cmd.CommandText = "SELECT * FROM [Hoja1$]"
  21.        xls_cmd.Connection = xls_cn
  22.        xls_reader.SelectCommand = xls_cmd
  23.     End Using
  24.  
  25.     'Eliminamos la instancia de Excel de memoria
  26.     If Not m_Excel Is Nothing Then
  27.        m_Excel.Quit()
  28.        m_Excel = Nothing
  29.     End If
  30.    End If
  31.   Else
  32.    MsgBox("Introduzca un archivo .xls o .xlsx .")
  33.    Exit Sub
  34.   End If
  35. End If
__________________
Gracias por todo;

Un saludo