Corrección de código o control de error

[Edmund8]

Hola tengo un código en excel para transferir datos a una tabla en access, la configuración de la tabla es: Campo llave es numérico; y los otro dos campos son tipo texto. En excel la primer columna es una fórmula de conteo correlativo y el resultado es un número por fila: =SI.ERROR(SI(B2="","",FILA()-1)+PARÁMETROS!$B$5,"")

antes de agregar esa columna en mención, la transferencia funcionaba muy bien, de no poderse corregir el código, quisiera optar por controlar dicho error, y quisiera saber si es posible saltarlo y que continúe la ejecusión, gracias por su ayuda de antemano. Saludos!!!

Sub ExcelaAccess_ADO()


Dim Conn As ADODB.Connection, RecSet As ADODB.Recordset

Dim fila As Long, primerFila As Integer, ultimaFila As Long, iX As Long

Dim dataSource As String, Tabla As String

Dim wsName As String


'definimos los parametros que seran usados por el codigo

dataSource = Sheets("PARÁMETROS").[B1]

Tabla = Sheets("PARÁMETROS").[B2]

wsName = Sheets("PARÁMETROS").[B3]

primerFila = Sheets("PARÁMETROS").[B4]


' establecemos la conexion a la base de datos

Set Conn = New ADODB.Connection

'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;

Conn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source= " & _

dataSource & ";"


' definimos un recordset

Set RecSet = New ADODB.Recordset

RecSet.Open Tabla, Conn, adOpenKeyset, adLockOptimistic, adCmdTable


ultimaFila = WorksheetFunction.CountA(Sheets(wsName).Range("A:A"))


For iX = primerFila To ultimaFila 'mientras que la celda la columna A

'tenga un valor transferimos la fila

With RecSet

.AddNew

.Fields("CodTema") = Sheets(wsName).Cells(iX, 1).Value

.Fields("Temarios") = Sheets(wsName).Cells(iX, 2).Value

.Fields("CodLib") = Sheets(wsName).Cells(iX, 3).Value

.Update

End With

Next iX


RecSet.Close

Set RecSet = Nothing

Conn.Close

Set Conn = Nothing

End Sub[/CODE]

[Antoni]

Sin el archivo y la base de datos, es imposible ayudarte.