hola compas quisiera que me ayuden con este problema
tengo que hacer una búsqueda en varios registros de una hoja de excel y cree la siguiente conexión
Código:
Dim base As Database
Dim re As Recordset
Dim ssql As String
If Ruta <> "" Then
Set base = OpenDatabase(Ruta, False, False, "Excel 8.0; HDR = Yes;")
ssql = "select * from [Hoja1$]"
Set re = base.OpenRecordset(ssql)
Listado.AddItem re.Fields("COD")
Else
MsgBox "No se ha Seleccionado archivo", vbOKOnly, "Alerta"
End If
pero al llegar a cierto dato me manda el mensaje de desbordamiento en campo numérico, ya intente usar una variable long pa guardar el dato pero me manda el mismo error y este error me sucede en tres celdas de excel y en una solo hay un 4 no debe de haber desbordamiento si solo es un 4
Espero que me apoyen con este problema