Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/10/2007, 11:27
BACH
 
Fecha de Ingreso: agosto-2006
Mensajes: 99
Antigüedad: 18 años, 7 meses
Puntos: 0
Error al leer archivo Excel

Hola
Estoy intentando leer un archivo de excel, usandolo como una BD. Ya lo habia hecho alguna vez usando un codigo como este:

Dim objDataSet As System.Data.DataSet
Dim objDataAdapter As System.Data.OleDb.OleDbDataAdapter
Dim objOleConnection As System.Data.OleDb.OleDbConnection
If File.Exists(rutaExcel) Then
'Creamos un objeto OLEDBConnection con el nombre del archivo seleccionado
' como Data Source
objOleConnection = New System.Data.OleDb.OleDbConnection( _
"provider=Microsoft.Jet.OLEDB.4.0; " & _
"data source=" & Me.txtRuta.Text.Trim & "; Extended Properties=Excel 8.0;")

'Seleccionamos los datos que están en la hoja 1 (Sheet1)
'Cada columna se representara como una columna y cada row
'como un row
objDataAdapter = New System.Data.OleDb.OleDbDataAdapter( _
"select * from [DATOS$] ", objOleConnection)

objDataSet = New System.Data.DataSet
objDataAdapter.Fill(objDataSet)
objOleConnection.Close()
Else
MsgBox("El archivo no existe", MsgBoxStyle.Exclamation)
Exit Sub
End If

El problema que tengo ahora aparece en la linea objDataAdapter.Fill(objDataSet) y dice lo siguente:
El motor de base de datos Microsoft Jet no puede abrir el archivo ''. Está abierto en modo exclusivo por otro usuario o bien necesita permiso para ver sus datos.

No se porque causa esta saliendo, si ya agregue la referencia a Excel. Por favor si tienen alguna idea de la solucion se los agradezco.
Saludos