Hora de actualizacion

13/04/2007 - 20:52 por JAVIER | Informe spam

Hola amigos este mismo codigo lo quiero complementar con extraer la hora del
archivo que fue guardado...

Sub OnlyDateLastmod_VTS()
Application.ScreenUpdating = False
Dim Ruta As String, Archivo As String, Fecha As Date, Fila As Integer

On Error Resume Next

Ruta = "\\200.200.xxx.xxxeporting\workuser\" ' <= AJUSTA
Archivo = Dir(Ruta & "Archivo.xls")
Fecha = Left(FileDateTime(Ruta & Archivo), InStr(FileDateTime(Ruta &
Archivo), " ") - 1)
Range("a1").Offset(Fila) = Array(Fecha)

Range ("a2")> para poner la hora en esta celda

Archivo = Dir()

End Sub

En espera de su apoyo y ayuda les envio un saludo

Javier

Siga el debate

1 respuesta

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Héctor Miguel

13/04/2007 - 22:38 | Informe spam

hola, Havier !

... este mismo codigo lo quiero complementar con extraer la hora del archivo que fue guardado...
Sub OnlyDateLastmod_VTS()
Application.ScreenUpdating = False
Dim Ruta As String, Archivo As String, Fecha As Date, Fila As Integer
On Error Resume Next
Ruta = "\\200.200.xxx.xxxeporting\workuser\" ' <= AJUSTA
Archivo = Dir(Ruta & "Archivo.xls")
Fecha = Left(FileDateTime(Ruta & Archivo), InStr(FileDateTime(Ruta & Archivo), " ") - 1)
Range("a1").Offset(Fila) = Array(Fecha)
Range ("a2")> para poner la hora en esta celda
Archivo = Dir()
End Sub

Sub Date_Time_Lastmod_VTS()
Application.ScreenUpdating = False
Dim Ruta As String, Archivo As String, Fecha As Date, Hora As Date, Fila As Integer
On Error Resume Next
Ruta = "\\200.200.xxx.xxxeporting\workuser\" ' <= AJUSTA
Archivo = Dir(Ruta & "Archivo.xls")
Fecha = Left(FileDateTime(Ruta & Archivo), InStr(FileDateTime(Ruta & Archivo), " ") - 1)
Hora = Mid(FileDateTime(Ruta & Archivo), InStr(FileDateTime(Ruta & Archivo), " ") + 1)
Range("a1").Resize(2) = Application.Transpose(Array(Fecha, Hora))
End Sub

saludos,
hector.

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :