Como guardar un archivo en una ruta que acabas de crear mediante MkdIR
Necesito que en la ruta que se acaba de crear mediante MkDIr se guarde automáticamente la hoja excel habilitada para macros y el pdf.
Adjunto código hecho hasta ahora:
Sub CREANDO()
Dim Ruta As String, CLIENT As String, AÑO As String, TRIM As String
Ruta = "F:\Google Drive"
CLIENT = ActiveSheet.Range("B6")
AÑO = ActiveSheet.Range("B3")
TRIM = ActiveSheet.Range("B4")
Ruta = "F:\Google Drive"
On Error Resume Next
MkDir Ruta & "\" & "PARTES DIARIS"
MkDir Ruta & "\" & "PARTES DIARIS" & "\" & CLIENT
MkDir Ruta & "\" & "PARTES DIARIS" & "\" & CLIENT & "\" & AÑO
MkDir Ruta & "\" & "PARTES DIARIS" & "\" & CLIENT & "\" & AÑO & "\" & TRIM
MkDir Ruta & "\" & "PARTES DIARIS" & "\" & CLIENT & "\" & AÑO & "\" & TRIM & "\" & "EXCEL"
MkDir Ruta & "\" & "PARTES DIARIS" & "\" & CLIENT & "\" & AÑO & "\" & TRIM & "\" & "PDF"
End Sub
1 Respuesta
[Hola
Pues basta usar las misma variables, por ejemplo:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Ruta & "\" & "PARTES DIARIS" & "\" & CLIENT & "\" & AÑO & "\" & TRIM & "\" & "PDF" & \miarchivo.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False
ActiveWorkbook.SaveAs Filename:=Ruta & "\" & "PARTES DIARIS" & "\" & CLIENT & "\" & AÑO & "\" & TRIM & "\" & "EXCEL" & "\miarchivo.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Obviamente se puede mejorar pero lo coloco así para que se entienda.
Saludos]
Abraham Valencia
Buenas tardes Abraham,
Muchas gracias por tu contestación. El excel lo genera pero no con el nombre que quiero, lo debe guardar con el valor de la celda B6 que es una fecha en formato dd-mm-aaaa y el pdf ni lo crea, todo el código se vuelve de color rojo.
Gracias de antemano.
Un saludo,
Para ayudarte sería bueno que coloques que códigos estás usando
Saludos]
Abraham Valencia
Buenas tardes,
El código es el que puse más arriba.
Juntamente con las líneas que usted me indicó.
Un saludo,
Entonces ¿no crea ni las carpetas o no se crean los archivos?
Abraham Valencia
Buenas tardes,
Los archivos. Las carpetas si las crea.
Se puede subir el archivo por aquí o si me facilita un correo le mando el archivo en cuestión. El mio, es [email protected].
Muchas gracias.
Un saludo,
Coloca tu archivo en un "Drive" y comparte el enlace por aquí.
Abraham Valencia
https://drive.google.com/open?id=1BDI5XLCydPotNW_C0g9YXA58f_iCbucZ
[Hola
Pasaron dos meses... e igual ese archivo no es del de ese problema.
Abraham Valencia
El archivo si que es el que tiene que llevar ese código. Pasaron dos meses por problemas de salud.
Espero que estés mejor de salud
Sobre el archivo ¿y el código a probar?
Abraham Valencia
Buenas tardes,
El código que usted me pasó es el siguiente:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Ruta & "\" & "PARTES DIARIS" & "\" & CLIENT & "\" & AÑO & "\" & TRIM & "\" & "PDF" & \miarchivo.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False
ActiveWorkbook.SaveAs Filename:=Ruta & "\" & "PARTES DIARIS" & "\" & CLIENT & "\" & AÑO
[Hola
La idea de los foros es ayudar, se supone que tú debiste haber intentado adaptar lo que yo envié a tus necesidades y en base a eso, y ya todo en tu archivo con pruebas tuyas, pues pones tus dudas por aquí.
No tiene sentido que envíes tu archivo son macros y que solo comentes que tienes ¿solo? Lo que yo sugerí, que dicho sea de paso son solo eso: Sugerencias.
Abraham Valencia
Abraham, estoy de viaje, mañana te adjunto el archivo con mis pruebas. Pensé que te seria más fácil sin mi parte del código.
Un saludo.
A la espera. Saludos]
Abraham Valencia
