problemas al cargar excel

[El_fenix]

Hola a todos en el foro.

Quisiera hacerles una consulta. Estoy importando un archivo excel ingresando la ruta de alijamiento del archivo desde un campo de texto en un Form. Podria hacerlo de otra forma, pero me pidieron que fuera asi, en fin.

El problema esta en que la ruta queda ingresada tal como aparece en el navegador de windos, ejemplo:

E:\Empresa\Operacion Planta V2.0

Al leer la ruta queda asi

E:\Empresa\Operacion Planta V2.0\6001.xls

Asi es como queda almacenado en una base de datos. el archivo se llama 6001.xls. El problema se genera cuando ejecuto el importador de excel. Me arroja un error que dice que no se puede hallar el archivo. Mi consulta es si se debe ingresar la ruta de otra manera, en otro formato o que se yo.

Ojala me haya explicado bien. Se agradece cualquier orientacion.

Chauz

[TheAlkaline]

Yo que sepa no deberia haber error con el nombre del archivo, si la ruta es enviada como una cadena de caracteres, no importa si las carpetas tienen espacios o puntos, podrias poner el codigo para ver derepente esta en otro lado el error.

[El_fenix]

Hola, gracias por responder, este es el codigo, lo tebgo con una cadena por defecto pero aun asi no me lee el archivo.

Código vb:

Function excel_access(FilIni As Integer, ColIni As Integer, CantFil As Integer, TabNom As String, NumPla As Integer, numEst As Integer)
 
    'Variables para leer excel
    Dim db As Database
    Dim rs As Recordset
    Dim Obj_Excel As Object
    Dim Obj_Hoja As Object
    Dim cn_Ado As Connection
    Dim Fila_Actual As Integer
    Dim Columna_Actual As Integer
    Dim contador As Integer
    Dim FACTOR As Double
    Dim Dato As Variant
 
    Screen.MousePointer = 11
 
    'Nueva instancia de Excel
    Set Obj_Excel = CreateObject("Excel.Application")
 
    ' Abre el libro de Excel
    Obj_Excel.Workbooks.Open Filename:="C:\Plantas\6001"
     
    ' si es la versión de Excel 97, asigna la hoja activa ( ActiveSheet )
    If Val(Obj_Excel.Application.Version) >= 8 Then
         Set Obj_Hoja = Obj_Excel.ActiveSheet
    Else
         Set Obj_Hoja = Obj_Excel
    End If
    
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset(TabNom, dbOpenDynaset)
    
     For Fila_Actual = FilIni To CantFil
         'Nuevo registro
         contador = 0
         For Columna_Actual = ColIni To ColIni + 9
             rs.AddNew
             ' Va leyendo los datos de la celda indicada
             Dato = Trim$(Obj_Hoja.Cells(Fila_Actual, ColIni - 1))
             FACTOR = contador / 10
             rs("estFactor") = Dato + FACTOR
             Dato = Trim$(Obj_Hoja.Cells(Fila_Actual, Columna_Actual))
             'RS("estDecimal") = contador
             If IsNull(Dato) Or Dato = "" Then
                rs("estValor") = 0
             Else
                rs("estValor") = CLng(Dato)
             End If
             rs("numEstanque") = numEst
             rs("idPlanta") = NumPla
             rs.Update
             contador = contador + 1
         Next
     Next
     Obj_Excel.Workbooks.Close
     Screen.MousePointer = 0
End Function
 

[TheAlkaline]

Le hiciste seguimiento, si el error te da en la linea 21 creo que le falta poner ".xls" a tu ruta:

Obj_Excel.Workbooks.Open Filename:="C:\Plantas\6001.xls"