Alguien me podria ayudar con esta macro, ya que soy principiante en macros
en excel, ya que con la colaboracion de Heich me ayudo hacela,lo que pasa
es que quiero descomprimir automaticamente este archivo que lo bajo diario
de internet (que tiene usuario y password), se va llamando
conforme a la fecha
FW120904.ZIP
FW130904.ZIP
FW140904.ZIP
FW150904.ZIP. y asi dia con dia.
Es por eso que la modifique asi para que me traiga la fecha de mi
computadora mediante esta instruccion strArchivo = Format(Date, "ddmmyy")
Sub Descomprimir_ver_soluciones()
Dim strEjecuta As String
Dim strArchivo As String
strArchivo = Format(Date, "ddmmyy")
Nam = "FW"
strEjecuta = Application.ActiveWorkbook.Path & "\UNZIP.EXE -o " &
Application.ActiveWorkbook.Path & "\FW & strArchivo.ZIP -d " & _
Application.ActiveWorkbook.Path
Shell Environ("comspec") & " /c " & strEjecuta
End Sub
Podrian ayudarme para que corra correctamente, ya que no corre, no me hace
nada.
Muchas gracias y saludos
Leer las respuestas