Como conectar un archivo de Excel a Access2003
Hola espero que me puedas ayudar. Tongo una carpeta en la unidad "C:" de mi ardenador, en ella tengo un archivo de Excel y otro de Access. Lo que quiero hacer es manipular los datos de Excel desde Access con la técnica ISAM. El código que le a puesto a un moludo estándar es el siguiente:
Sub Connect2XLPrintFromFirst()
Dim cnn1 As New ADODB.Connection, rst1 As ADODB.Recordset
'Crea la conexion al origen de datos Excel
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\PRUEVA1\1.xls.;" & _
"Extended Properties=Excel 8.0;"
'Abre el conjunto de registros de solo lectura vasado en un
'Origen de datos Excel
Set rst1 = New ADODB.Recordset
rst1.CursorType = adOpenForwardOnly
rst1.LockType = adLockReadOnly
rst1.Open "1.", cnn1, , , adCmdTable
'Imprime siertos campos del primer registro
Debug.Print rst1.Fields(0).Value, rst1.Fields(1).Value
'Sierra la coneccion al origen de datos
cnn1.Close
End Sub
Todo párese estar en orden pero cuando le doy ejecutar me manda un mensaje que dise:
Se produjo el error -2147467259(80004005) en tiempo de ejecución Se exedieron los recursas del sistema.
No se que quiere decir este mensaje, ni como arreglarlo. Tampoco se que ise mal. Espero tu respuesta con ansias ya que tengo el tiempo en sima y tengo que dar una respuesta a los ejecutivos. ¿Tu cres que haya otro forma para que Access me haga los cálculos que me hace Excel?. El tipo de calculo que necesito es por ejemplo; que me de el estoc actual de los inventarios, y que me las diferencias de las ventas menos los depósitos.
Cual quier sejerencia es bien resibida, de antemano te agradezco tu atención. Samuel
Sub Connect2XLPrintFromFirst()
Dim cnn1 As New ADODB.Connection, rst1 As ADODB.Recordset
'Crea la conexion al origen de datos Excel
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\PRUEVA1\1.xls.;" & _
"Extended Properties=Excel 8.0;"
'Abre el conjunto de registros de solo lectura vasado en un
'Origen de datos Excel
Set rst1 = New ADODB.Recordset
rst1.CursorType = adOpenForwardOnly
rst1.LockType = adLockReadOnly
rst1.Open "1.", cnn1, , , adCmdTable
'Imprime siertos campos del primer registro
Debug.Print rst1.Fields(0).Value, rst1.Fields(1).Value
'Sierra la coneccion al origen de datos
cnn1.Close
End Sub
Todo párese estar en orden pero cuando le doy ejecutar me manda un mensaje que dise:
Se produjo el error -2147467259(80004005) en tiempo de ejecución Se exedieron los recursas del sistema.
No se que quiere decir este mensaje, ni como arreglarlo. Tampoco se que ise mal. Espero tu respuesta con ansias ya que tengo el tiempo en sima y tengo que dar una respuesta a los ejecutivos. ¿Tu cres que haya otro forma para que Access me haga los cálculos que me hace Excel?. El tipo de calculo que necesito es por ejemplo; que me de el estoc actual de los inventarios, y que me las diferencias de las ventas menos los depósitos.
Cual quier sejerencia es bien resibida, de antemano te agradezco tu atención. Samuel
1 respuesta
Respuesta de fibonnaci
1