Preciso fazer algumas coisas que parecem fáceis, mas estou tendo dificuldade em descobrir como implementar.
Preciso criar uma pasta usando a data de hoje. Essa parte está bem. Então preciso salvar um arquivo usando texto e a data de hoje (também bom).
A parte que me incomoda é que preciso salvar o novo arquivo na nova pasta. Como posso salvar o arquivo com a data de hoje e salvá-lo na nova pasta com a data de hoje? (se o caminho do arquivo fosse constante, eu estaria bem em fazer isso, mas quando parte do caminho muda de acordo com a data, não sei como fazer isso)
Isso é o que eu tentei, mas não está funcionando. Estou recebendo o seguinte erro: 1004: Erro definido pelo aplicativo ou definido pelo objeto.
Sub filesave()
ActiveWorkbook.SaveAs ("S:\HR\TM\" & Format(Now(),"dd.mm.yyyy") & "\SOX recon " & Format(Now(), "dd.mm.yyyy") & ".xlsx")
End Sub
Este é o código para criar a pasta (que funciona perfeitamente):
Sub FolderCreate()
MkDir "S:\HR\TM\" & Format(Now(), "dd.mm.yyyy")
End Sub
Observe que o caminho/diretório do arquivo foi ligeiramente modificado/simplificado por questões de segurança.
Responder1
Apenas um palpite:
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