Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Modificar macro a principiante

02/11/2004 - 19:03 por osalazarg | Informe spam
Ayuda Hacer una pregunta
Tengo esta macro la cual antes me funcionaba bien, alguien me podria
ayudar a corregirla por favor.

Sub Descomprimir_Una_Solucion()
Dim Del_Directorio, Al_Directorio, Archivo As String, X As Integer,
Descomprime As String, EsteArchivo As String, Comando As String
Del_Directorio = Array("s:\", "t:\", "u:\")
Al_Directorio = Array("c:\sief01l", "c:\sief02vl", "c:\siefbas1")
Archivo = "RS" & Format(Date, "ddmmyy") & ".zip -d "
Descomprime = ActiveWorkbook.Path & "\unzip.exe -o "
For X = 0 To UBound(Del_Directorio)
EsteArchivo = Del_Directorio(X) & Archivo
Comando = Descomprime & EsteArchivo & Al_Directorio(X)
Shell Environ("comspec") & " /c " & Comando
Next
End Sub


pero ahora me cambiaron el nombre de los archivos y la quise modificar
asi, pero me envia error.
"Se ha producido el error '13' en tiempo de ejecucion:
No coinciden los tipos


Sub Descomprimir_3_Soluciones()
Dim Del_Directorio, Al_Directorio, Archivo As String, X As Integer,
Descomprime As String, EsteArchivo As String, Comando As String
Del_Directorio = Array("s:\", "t:\", "u:\")
Al_Directorio = Array("c:\sief01l", "c:\sief02vl", "c:\siefbas1")

Aqui me envia error

Archivo = Array("B1", "V1", "B2") & Format(Date, "ddmmyy") & ".zip -d"


Descomprime = ActiveWorkbook.Path & "\unzip.exe -o "
For X = 0 To UBound(Del_Directorio)
EsteArchivo = Del_Directorio(X) & Archivo
Comando = Descomprime & EsteArchivo & Al_Directorio(X)
Shell Environ("comspec") & " /c " & Comando
Next
End Sub
email Siga el debateRespuesta 6 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
02/11/2004 - 21:29 | Informe spam
Hola,

No se q es lo q quires conseguir con
Archivo = Array("B1", "V1", "B2") & Format(Date, "ddmmyy") & ".zip -d"

pero no puedes utilizar Array() para la variable Archivo por dos razones
basicas:
1. La variable Archivo esta declarada como Cadena de Texto (String) y no
como Serie (Array) en la primera linea de tu codigo.
2. No puedes mezclar serie (array) con cadena de texto (string) asi como asi

Si explicas lo q quires conseguir en esta linea quizas te podamos ayudar.

De momento he intentado adivinarlo y te pongo el codigo q igual es lo q
quieres (no lo he probado):

Sub Descomprimir_3_Soluciones()
Dim Del_Directorio, Al_Directorio, Nombre_Archivo, _
X As Integer, Descomprime As String, EsteArchivo As String, _
Comando As String
Del_Directorio = Array("s:\", "t:\", "u:\")
Al_Directorio = Array("c:\sief01l", "c:\sief02vl", "c:\siefbas1")
Nombre_Archivo = Array("B1", "V1", "B2")
Descomprime = ActiveWorkbook.Path & "\unzip.exe -o "
For X = 0 To UBound(Del_Directorio)
EsteArchivo = Del_Directorio(X) & Nombre_Archivo(X) _
& Format(Date, "ddmmyy") & ".zip -d"
Comando = Descomprime & EsteArchivo & Al_Directorio(X)
Shell Environ("comspec") & " /c " & Comando
Next
End Sub

saludos,
KL

"sago" wrote in message
news:
Tengo esta macro la cual antes me funcionaba bien, alguien me podria
ayudar a corregirla por favor.

Sub Descomprimir_Una_Solucion()
Dim Del_Directorio, Al_Directorio, Archivo As String, X As Integer,
Descomprime As String, EsteArchivo As String, Comando As String
Del_Directorio = Array("s:\", "t:\", "u:\")
Al_Directorio = Array("c:\sief01l", "c:\sief02vl", "c:\siefbas1")
Archivo = "RS" & Format(Date, "ddmmyy") & ".zip -d "
Descomprime = ActiveWorkbook.Path & "\unzip.exe -o "
For X = 0 To UBound(Del_Directorio)
EsteArchivo = Del_Directorio(X) & Archivo
Comando = Descomprime & EsteArchivo & Al_Directorio(X)
Shell Environ("comspec") & " /c " & Comando
Next
End Sub


pero ahora me cambiaron el nombre de los archivos y la quise modificar
asi, pero me envia error.
"Se ha producido el error '13' en tiempo de ejecucion:
No coinciden los tipos


Sub Descomprimir_3_Soluciones()
Dim Del_Directorio, Al_Directorio, Archivo As String, X As Integer,
Descomprime As String, EsteArchivo As String, Comando As String
Del_Directorio = Array("s:\", "t:\", "u:\")
Al_Directorio = Array("c:\sief01l", "c:\sief02vl", "c:\siefbas1")

Aqui me envia error

Archivo = Array("B1", "V1", "B2") & Format(Date, "ddmmyy") & ".zip -d"


Descomprime = ActiveWorkbook.Path & "\unzip.exe -o "
For X = 0 To UBound(Del_Directorio)
EsteArchivo = Del_Directorio(X) & Archivo
Comando = Descomprime & EsteArchivo & Al_Directorio(X)
Shell Environ("comspec") & " /c " & Comando
Next
End Sub

Preguntas similares

 

Busqueda sugerida :