Corrigir macro sobre ruta que manda error
Aquí con la 2ª pregunta sobre la macro de la pregunta anterior
No la he probado por no lograr que copie a la ruta ya existente la 2ª copia, el archivo de copia.
Manda error en línea MkDir "C:\0\trabajo"
No se si al existir la ruta me mandará error.
Quisiera que al existir la ruta y el archivo dentro, que Guarda la Copia en la ruta ya existente (criada por la misma macro) pero con Numero Consecutivo en el nombre del archivo.
¿Será posible?
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada para poner el consecutivo.
Sub CreaCarpetas() 'Por DAM Application.ScreenUpdating = False Application.DisplayAlerts = False año = Format(Date, "YYYY") mes = Format(Date, "mmmm") carp1 = "C:\0\" If Dir(carp1, vbDirectory) = "" Then MkDir carp1 End If carp2 = carp1 & "trabajo\" If Dir(carp2, vbDirectory) = "" Then MkDir carp2 End If carp3 = carp2 & año & "\" If Dir(carp3, vbDirectory) = "" Then MkDir carp3 End If carp4 = carp3 & mes & "\" If Dir(carp4, vbDirectory) = "" Then MkDir carp4 End If n = 1 Do While True arch = ActiveSheet.Name & " " & n & ".xlsx" If Dir(carp4 & arch) = "" Then Exit Do n = n + 1 Loop ' ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=carp4 & arch, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox "Hoja copiada" End Sub
sal u dos
