Excel Macro salvar CVS sem abrir caixa "salvar como"

[Marcos_22]

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

[Midori]

Adicionei outra planilha antes de salvar para o arquivo com a macro não ficar salvo e ativo como csv.

 

Sub CSV_ALUNO()
    Dim Arquivo As String
    Dim PlanCSV As Workbook
    
    Arquivo = "C:\documentos\000_ALUNO.csv"
    
    Set PlanCSV = Workbooks.Add
    
    Call ThisWorkbook.Sheets("ALUNO").Copy(PlanCSV.Sheets(1))
    Call PlanCSV.SaveAs(Filename:=Arquivo, FileFormat:=xlCSV, Local:=True)
    Call PlanCSV.Close(False)
End Sub

 

[Marcos_22]

Midori, não entendi bem o que fazer. É possível você mesmo colocar a macro na planilha que te enviei?

[Midori]

Com Alt+F11 abra o editor do VBA. No menu escolha Inserir > Módulo, selecione o Módulo1 (duplo clique) e cole a macro. Salve o arquivo com a extensão xlsm.

[Marcos_22]

Funcionou! Obrigado!

[Marcos_22]

Midore, só mais uma coisa: quando executo a macro ele cria o arquivo CSV na pasta determinada, tudo certo. Mas quando faço isso uma segunda vez aparece aquela mensagem "O arquivo já existe neste local. Deseja substituí-lo?", aí tenho que clicar me "sim". É possível retirar essa mensagem e considerar que será sempre "SIM"?

[Midori]

Antes da linha SaveAs coloque Application.DisplayAlerts = False

[Marcos_22]

Obrigado mais uma vez! Agora está perfeito!