Necesito hacer un par de cosas que parecen fáciles, pero me cuesta descubrir cómo implementarlas.
Necesito crear una carpeta usando la fecha de hoy. Esa parte está bien. Luego necesito guardar un archivo usando texto y la fecha de hoy (también está bien).
La parte que me tiene es que necesito guardar el nuevo archivo en la nueva carpeta. ¿Cómo puedo guardar el archivo con la fecha de hoy y guardarlo en la nueva carpeta con la fecha de hoy? (si la ruta del archivo fuera constante, estaría bien hacer esto, pero cuando parte de la ruta cambia según la fecha, no sé cómo hacerlo)
Esto es lo que intenté, pero no funciona. Recibo el siguiente error: 1004: error definido por la aplicación o definido por el objeto.
Sub filesave()
ActiveWorkbook.SaveAs ("S:\HR\TM\" & Format(Now(),"dd.mm.yyyy") & "\SOX recon " & Format(Now(), "dd.mm.yyyy") & ".xlsx")
End Sub
Este es el código para crear la carpeta (que funciona perfectamente):
Sub FolderCreate()
MkDir "S:\HR\TM\" & Format(Now(), "dd.mm.yyyy")
End Sub
Tenga en cuenta que la ruta/directorio del archivo se ha modificado/simplificado ligeramente por motivos de seguridad.
Respuesta1
Solo una suposición:
fname = "S:\HR\TM\" & Format(Now(),"dd.mm.yyyy") & "\SOX recon " & Format(Now(), "dd.mm.yyyy") & ".xlsx"
MsgBox fname
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlOpenXMLWorkbook