Para salvar um arquivo usando o VBA (Visual Basic for Applications) como Excel, você pode usar o seguinte código:
Sub SalvarComoExcel()
Dim caminho As String Dim nome As String
caminho = "C:\Users\NomeDoUsuario\Documents\" nome = "MeuArquivo.xlsx"
ActiveWorkbook.SaveAs Filename:=caminho & nome, FileFormat:=xlOpenXMLWorkbook
End Sub
Explicação do código:
- A primeira linha define o nome da sub-rotina (Sub) e inicia o código.
- As duas próximas linhas definem as variáveis "caminho" e "nome" como strings. O caminho é o diretório onde o arquivo será salvo e o nome é o nome do arquivo. Você pode alterar esses valores para se adequar ao seu caso.
- O caminho e o nome são combinados na linha 6 para formar o caminho completo do arquivo.
- A última linha salva o arquivo usando o método SaveAs. O argumento Filename recebe o caminho completo do arquivo e o argumento FileFormat define o tipo de arquivo que será salvo. Usamos xlOpenXMLWorkbook para salvar o arquivo como um arquivo do Excel 2007 ou superior.
Nota: o código acima deve ser inserido em um módulo VBA dentro do Excel. Para executá-lo, basta pressionar F5 ou clicar em Executar na barra de ferramentas do Visual Basic.