Midore, boa noite!
Na planilha em anexo gostaria de criar uma macro que deve salvar a planilha "ALUNO" (somente ela) como CSV UTF-8, diretamente na pasta "documentos" do Windows (sem precisar abrir o "salvar como") e com o nome de arquivo "000_ALUNO". Na planilha "EDITAR" consta um botão azul chamando CSV, irei utilizar ele para atribuir essa macro. Abaixo segue a macro que utilizei do outro tópico mas que precisa de ajustes (retirar a etapa salvar como).
Sub CSV_ALUNO()
Arquivo = Application.GetSaveAsFilename( _
InitialFileName:="C:\documentos\000_ALUNO.csv", _
FileFilter:="Delimitado por vírgulas (*.csv), *.csv")
If Arquivo <> False Then
ThisWorkbook.ActiveSheet.Copy
With ActiveWorkbook.ActiveSheet
Linhas = WorksheetFunction.CountA(.[A:G])
.Range(.Cells(Linhas + 1, 1), _
.Cells([A:A].Rows.Count, 1)).EntireRow.Clear
End With
ActiveWorkbook.SaveAs Filename:=Arquivo, FileFormat:=xlCSV, Local:=True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If
End Sub
PLAN.xlsx