Forums Últimos mensajes - Powered by IBM
 

la fecha ya comprobe que no era

20/03/2007 - 17:43 por JAVIER | Informe spam
Hola Miguel gracias por tu apoyo, mira encontre que no es la fecha en
realidad no reconoce la ruta con algun usuario entonces tendre que ver que
sucede, como veras tengo on error resume next para si no es en un directorio
sea el otro
en la maquina donde no falla, tendre que trabajar en esa depuración
Si tienes alguna sugerencia te lo agradeceria...
=)
Sub OnlyDateLastmod_VT()

Application.ScreenUpdating = False
Dim Ruta As String, Archivo As String, Fecha As Date, Fila As Integer



on error resume next
Ruta = "\\200.200.200.30\w\" >no me encuentra el archivo en la
pc que no falla
Ruta = "\\200.200.200.30\weporte\">Si me encuentra el archivo en la pc
que no falla


Archivo = Dir(Ruta & "datos.xls")
'Range("a1:b1") = Array("Nombre", "Ult. modif")<--Edita Titulos en Celdas
'Do While Archivo <> ""
'Fila = Fila + 1
Fecha = Left(FileDateTime(Ruta & Archivo), InStr(FileDateTime(Ruta & Archivo), " ") - 1)
Range("d1").Offset(Fila) = Array(Fecha)
'Range("a1").Offset(Fila).Resize(, 2) = Array(Archivo, Fecha)
Archivo = Dir()
' Loop
'Range("a1:b1").EntireColumn.AutoFit
'Range("a:b").Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlYes
End Sub
 

Leer las respuestas

#1 Héctor Miguel
21/03/2007 - 22:31 | Informe spam
hola, Javier !

... en realidad no reconoce la ruta con algun usuario entonces tendre que ver que sucede
como veras tengo on error resume next para si no es en un directorio sea el otro
en la maquina donde no falla, tendre que trabajar en esa depuracion
Si tienes alguna sugerencia te lo agradeceria...



1) no me ha quedado muy claro 'cual si y cual no'... o 'donde si y donde no' :))

2) te sugiero que grabes una macro abriendo un libro de esa 'precisa' ubicacion...
para que analices 'como' necesitas especificar la ruta de la carpeta en el servidor [?]

3) lo que si te puedo asegurar, es que no es lo mismo: ...\w\ que: ... \weporte\
o sea... la funcion Dir() NO busca en directorios dependientes/colgantes/... del que le indiques :-((

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __
Sub OnlyDateLastmod_VT()
Application.ScreenUpdating = False
Dim Ruta As String, Archivo As String, Fecha As Date, Fila As Integer


on error resume next
Ruta = "\\200.200.200.30\w\" >no me encuentra el archivo en la pc que no falla
Ruta = "\\200.200.200.30\weporte\">Si me encuentra el archivo en la pc que no falla
Archivo = Dir(Ruta & "datos.xls")
'Range("a1:b1") = Array("Nombre", "Ult. modif")<--Edita Titulos en Celdas
'Do While Archivo <> ""
'Fila = Fila + 1
Fecha = Left(FileDateTime(Ruta & Archivo), InStr(FileDateTime(Ruta & Archivo), " ") - 1)
Range("d1").Offset(Fila) = Array(Fecha)
'Range("a1").Offset(Fila).Resize(, 2) = Array(Archivo, Fecha)
Archivo = Dir()
' Loop
'Range("a1:b1").EntireColumn.AutoFit
'Range("a:b").Sort Key1:=Range("a2"), Order1:=xlAscending, Header:=xlYes
End Sub

Preguntas similares