la hoja se cre apartir de otra aplicacion y todas las columnas tienen el formato general.
para importar el archivo XLS:
-*-Primero tengo una rutina que lo hace en un modulo de clase (tambien lo he probado en el mismo formulario y no funciona)
strHoja = nombre de la hoja de excel que vamos a importar
strConexion = es la ruta del archivo
-----------------------------------------------------------------------------------------------------------
Public Function RecordsetExcel(ByVal strHoja As String, ByVal strConexion As String) As Recordset
Dim Obj_Conexion As ADODB.Connection
Dim Obj_Recordset As ADODB.Recordset
Set Obj_Conexion = New ADODB.Connection
Set Obj_Recordset = New ADODB.Recordset
With Obj_Conexion
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source= " & strConexion & ";" & "Extended Properties=Excel 8.0;"
.CursorLocation = adUseClient
.Open
End With
Set Obj_Recordset.ActiveConnection = Obj_Conexion
Obj_Recordset.CursorType = adOpenStatic
Obj_Recordset.LockType = adLockOptimistic
pStrSQL = "SELECT * FROM [" & strHoja & "$]"
With Obj_Recordset
.Open pStrSQL, Obj_Conexion, adOpenStatic, adLockReadOnly
End With
Set RecordsetExcel = Obj_Recordset
Set Obj_Recordset = Nothing
Set Obj_Conexion = Nothing
End Function
-----------------------------------------------------------------------------------------------------------
-*-Segundo, con el recordset empiezo a llenar la base de datos si cumplen con algunas de las condiciones establecidas
While Len(ObjetoExcel(gColumna_Cuenta_Gastos - 1)) > 0
If ObjetoExcel(gColumna_Cuenta_Gastos - 1) = "6070001" Or ObjetoExcel(gColumna_Cuenta_Gastos - 1) = "6240000" Or ObjetoExcel(gColumna_Cuenta_Gastos - 1) = "6000000" Then
Set Objeto = ObjetoGuardarGastos.Guardar_Gastos(pCodigoGastos, _
ObjetoExcel(1),etc)
pCodigoGastos = pCodigoGastos + 1
End If
frmBuscar.lblCantidad.Caption = "Registros examinados: " & gFila
frmBuscar.lblCantidad.Refresh
gFila = gFila + 1
ObjetoExcel.movenext
Wend
-----------------------------------------------------------------------------------------------------------
y todo funciona bien hasta que en la columna aparece un dato que sea solo numero, lo extraño y de eso me acabo de dar cuenta es que si en una misma columna hay datos alfanumericos y numericos aparece este error, pero si es solo numeros o solo texto, no da ningun problema...... espero que me hayas entendido, o mejor dicho que me haya explicado bien
Gracias