opslaan van een geselecteerd blad

[wolters125]

Hallo Allemaal,

Na vorige keer heel goed te zijn geholpen kom ik weer met een vraag.
Ik wil graag alleen een geselecteerd blad als csv-file opslaan. (via het standaard excel " save as" menu, om lokatie en naam in te kunnen geven)

Zelf heb ik iets geprobeerd met behulp van de helpfunctie maar dit werkt niet zoals het moet.
Hij slaat het hele workbook op en ook nog als xls bestand ipv csv.

Zou iemand me weer verder kunnen helpen?

Bedankt alvast.

Mvg,

Niels

Eigen code:

Sub opslaan()

Sheets("omgecodeerde code").Select
fileSaveName = Application.GetSaveAsFilename(fileFilter:="Excelbestanden (*.csv), *.csv")
If fileSaveName <> False Then ThisWorkbook.SaveAs fileSaveName & ".csv"
End Sub

 

[Wigi]

Hier op Ozgrid is er al code voor geschreven. Zie de post van Ger Plante.

Wigi

 

[wolters125]

Bedankt voor het antwoord, maar dit werkt niet.
Krijg dan de vraag of ik er mee akkoord ga dat er een bestand wordt verwijdert.

Ik kan de code ook niet echt volgen.

Mogelijk een andere oplossing?

Mvg,

Niels

 

[Wigi]

Werkt dit wel goed?

Sub opslaanalsCSV()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Book2.csv", FileFormat:=xlCSV
    Application.DisplayAlerts = True
End Sub

Pas bestandsnaam nog aan.

Wigi

 

[wolters125]

Wigi,

Bedankt. Dit werkt. Ik heb hem iets aangepast: (om de gewenste sheet alleen op te slaan)

Sub opslaanalsCSV()

Sheets("omgecodeerde code").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Book2.csv", FileFormat:=xlCSV
Application.DisplayAlerts = True
End Sub

Nu nog het deel dat ik zelf de naam en lokatie voor opslaan kan kiezen.

Bedankt zover.

Mvg,

Niels