Numeração Automática de docs excel

Question

tenho uma macro associada a um botão de Save, mas queria que ao guardar o documento ele automaticamente desse um nome ao mesmo, incrementado automaticamente a numeração, ou seja o nome do documento teria um parte fixa, ex. Relatório e uma parte  numérica variável que seria automaticamente incrementada, não aparecendo sequer a janela de Save As,

Obrigado,

Answer 1

Olá Vitor

Pessoalmente eu utilizo esta macro, que evitaria ter de varrer todos os nomes do diretório e procurar o último relatório de numeração mais alta. Este método é mais simples, usa a data e hora atual para nomear o arquivo.

Pode ser mais interessante em alguns aspectos. Pode não ser exatamente o que deseja, mas é mais simples.

Sub SaveUnique() <br><br>' <br><br>' Salva o arquivo com um nome unico com base no dia e horario atual <br><br>' <br><br><br><br><br><br><br><br>Application.DisplayAlerts = False<br><br><br>Dim name As String<br><br><br>dirAtual = ThisWorkbook.Path<br><br><br>name = dirAtual & "\File_Name_" & Format(Now(), "yyyymmdd_hhmmss") & ".xlsm"<br><br><br>ActiveWorkbook.SaveAs Filename:=name, FileFormat:=xlOpenXMLWorkbookMacroEnabled, _<br><br><br>CreateBackup:=False<br><br><br>Application.DisplayAlerts = True<br><br><br> <br><br><br><br><br>'Exemplo de saida: "File_Name_20190111_234710.xlsm"<br><br><br>'Application.DisplayAlerts = False  - usando para nao perguntar se quer sobreescrever<br><br><br>'Application.DisplayAlerts = True -- volta ao estado normal<br><br><br>'FileFormat:=xlOpenXMLWorkbook -- para arquivo planilha padrao<br><br><br>'FileFormat:=xlOpenXMLWorkbookMacroEnabled -- para arquivo planilha com macro<br><br><br>'veja todos os formatos em https://docs.microsoft.com/pt-br/office/vba/api/excel.xlfileformat<br><br><br>    <br><br><br>End Sub

---

Se esta informação foi útil, por favor, marque como resposta, caso a sua dúvida não tenha sido solucionada, por favor, poste novamente. Este post resolveu o problema? Selecione (X) Sim para fechar o caso.

Assim não só motiva meu trabalho voluntário, como também serve como uma forma de agradecimento ao desafio dado.