Excel VBA saveas csv aber die Dateiausgabe ist das falsche Format

Question

HALLO ich bin neu zu VBA und wundere mich, warum die Datei ausgegeben, wenn ich diesen Code nur eine Standarddatei und nicht CSV versucht. Ich habe diesen Code per Makroaufnahme erstellt. Ich möchte in der Lage sein, die Datei als csv nach der Arbeit an dem Blatt zu speichern. Mein Code ist wie

Sub Done() 
     Sheets("Test").Select 
     Range("A2:M3").Select 
     Range("A2:M3").Copy 
     Range("A2").PasteSpecial xlPasteValues 
     Application.CutCopyMode = False 

     Sheets("Test").Select 
     ActiveWorkbook.Save 

     ActiveWorkbook.SaveAs Filename:= _ 
      Application.GetSaveAsFilename, FileFormat:= _ 
      xlCSV, CreateBackup:=False 
      ActiveWorkbook.Close SaveChanges:=False 

    End Sub 

Answer 1

folgt die Datei als CSV-Versuch zu speichern:

Sub Done() 
    Sheets("Test").Select 
    Range("A2:M3").Select 
    Range("A2:M3").Copy 
    Range("A2").PasteSpecial xlPasteValues 
    Application.CutCopyMode = False 

    Sheets("Test").Select 
    ActiveWorkbook.Save 

    ActiveWorkbook.SaveAs Filename:="C:\filename.csv", _ 
     FileFormat:=xlCSV, CreateBackup:=False 
     ActiveWorkbook.Close SaveChanges:=False 

End Sub 

ändern Dateipfad und den Dateinamen nach Bedarf.

EDIT: Mit SaveAs Dialogfeld
________________________________________________________________________________

Try this:

Sub Done() 
    Sheets("Test").Select 
    Range("A2:M3").Select 
    Range("A2:M3").Copy 
    Range("A2").PasteSpecial xlPasteValues 
    Application.CutCopyMode = False 

    Sheets("Test").Select 
    ActiveWorkbook.Save 

    fname = Application.GetSaveAsFilename(InitialFileName:="Test", FileFilter:="CSV (Comma delimited) (*.csv), *.csv", Title:="Save As") 
    ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV 
End Sub 

Answer 2

Wenn Sie ActiveWorkbook.SaveAs rufen, müssen Sie "Code eingeben hier" mit einem Dateinamen ersetzen :

ActiveWorkbook.SaveAs Filename:= "MyFilename.csv"_ 
     FileFormat:= xlCSV, CreateBackup:=False _ 
     ActiveWorkbook.Close SaveChanges:=False 

Sobald Sie einen Dateinamen haben, können Sie die Datei speichern. Sie können einen beliebigen Dateinamen auswählen und diesen anstelle von in diesem Beispiel verwenden.