Esta macro VBA salvará a pasta de trabalho atual e, em seguida, criará uma nova pasta de trabalho com um nome de arquivo baseado em data para a nova semana. Ele lida com possíveis erros graciosamente.

`` `VBA
Sub SandeAndCreateNewWeeklyWorkbook ()

Dim WB como pasta de trabalho
Dim Newwb como pasta de trabalho
Dim strfilename como string
Dim strfilepath como string
Dim dt como data

'Pegue a pasta de trabalho atual
Set wb =thisworkbook

'Obtenha a data atual
dt =data

'Calcule a data de início da semana atual (domingo)
dt =dt - dia da semana (dt, vbsunday) + 1

'Formato a data do nome do arquivo (AAAA-MM-DD)
strfileName =formato (dt, "yyyy-mm-dd") e "rendimento.xlsx"

'Especifique o caminho do arquivo (altere isso para o local desejado)
strfilepath ="c:\ your \ arquivo \ path \" '<--- Altere isso para o caminho desejado

'Caminho de arquivo completo
strfilepath =strfilepath &strfilename

'Salve a pasta de trabalho atual
No erro, retomar o próximo 'lide os erros potenciais durante a economia
WB.SAVeas FileName:=strfilePath, FileFormat:=xlopenxmlworkbook
Se err.number <> 0 então
MsgBox "Erro Salvando a pasta de trabalho:" &Err.Description, vbcritical
Sub
Final se
ON ERRO GOTO 0

'Crie uma nova pasta de trabalho
Definir newwb =Workbooks.add

'Salve a nova pasta de trabalho com o mesmo caminho de arquivo, mas uma data diferente
dt =dt + 7 'a data da próxima semana
strfileName =formato (dt, "yyyy-mm-dd") e "rendimento.xlsx"
strfilepath ="c:\ your \ arquivo \ path \" &strfileName '<--- Altere isso para o caminho desejado

Em erro de erro em seguida
newwb.saveas filename:=strfilepath, fileFormat:=xlopenxmlworkbook
Se err.number <> 0 então
Msgbox "Erro de criação de nova pasta de trabalho:" &err.description, vbcritical
newwb.close savechanges:=false 'feche sem salvar se ocorrer erro
Sub
Final se
ON ERRO GOTO 0

'Opcional:adicione uma caixa de mensagem para confirmar a conclusão.
MsgBox "Salvo salvo e nova pasta de trabalho semanal criada.", Vbinformation


Final sub
`` `

Antes de executar:

1. Alterar `" C:\ Your \ arquivo \ path \ "`: Absolutamente crucial Para substituir este espaço reservado pelo caminho da pasta real, onde você deseja salvar seus arquivos do Excel. Caminhos incorretos levarão a erros. Verifique se a pasta existe.
2. Open VBA Editor: No Excel, pressione Alt + F11 para abrir o editor VBA.
3. Insira um módulo: No editor VBA, vá para inserir> módulo.
4. Cole o código: Cole todo o código no módulo.
5. Execute a macro: Volte ao Excel e execute a macro (pode ser necessário atribuí -la a um botão ou executá -lo na guia do desenvolvedor> macros).


como funciona:

* salva a pasta de trabalho atual: O código primeiro salva a pasta de trabalho ativa usando um nome de arquivo com base na data de início da semana atual (domingo).
* Cria uma nova pasta de trabalho: Em seguida, adiciona uma nova pasta de trabalho em branco.
* nomes e salva a nova pasta de trabalho: A nova pasta de trabalho é salva com um nome de arquivo com base na data de início da * próxima semana.
* Manuseio de erro: O `em erro de erro em seguida` e as declarações de verificação de erros impedem que a macro trave se houver problemas para salvar arquivos (por exemplo, permissões insuficientes, já existe arquivo). Ele fornece mensagens de erro informativas.
* Formato do arquivo: `xlopenxmlworkbook`s garante a compatibilidade com as versões modernas do Excel (.xlsx).


Lembre -se de fazer backup de seus dados regularmente, pois os processos automatizados às vezes podem encontrar problemas inesperados. Teste essa macro cuidadosamente em um arquivo de amostra antes de usá -lo com dados importantes.