enkele sheet opslaan als csv

[wolters125]

Hallo Allemaal,

Daar ben ik weer met een vraag.
Ik wil graag 1 sheet opslaan uit een workbook.

Zelf ik geprobeert met de standaard code uit de helpfunctie te verbouwen.
Het werkt niet zoals ik wil.

Het is de bedoeling dat de sheet alleen opgeslagen wordt als csv bestand en dat voor het opslaan het standaard windows menu gebruikt kan worden op plaats en naam op te geven.

Hier onder wat ik gemaakt heb.

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

Deze code doet het volgende:
selecteerd de sheet, veranderd de naam van de sheet en slaat dan alles op ipv alleen die ene sheet.

Wie kan me helpen.

Alvast bedankt,

Niels

 

[koosl]

Niels,

in je code selekteer je het blad maar sla je vervolgens het gehele werkboek als excel bestand op.

Je moet dus het blad kopieren en opslaan als CSV bestand.

Sub opslaan()
   Sheets("codepagina").Copy
    fileSaveName = Application.GetSaveAsFilename(Filefilter:="CSV(*.csv), *.csv")
    If fileSaveName <> False Then ActiveSheet.SaveAs fileSaveName & ".csv"
End Sub

Zie je het verschil? Bijna niets hè.

Koosl.

 

[Jarodxxx]

Kleine uitbereiding

Ah, dus ik had 't wel goed gezien
Was er mee bezig, maar 't lukte niet helemaal.
Dam 'old' copy

kleine toevoeging

Sub Opslaan()
   Sheets("codepagina").Copy
    fileSaveName = Application.GetSaveAsFilename(Filefilter:="CSV, *.csv")
    If fileSaveName <> False Then ActiveSheet.SaveAs fileSaveName
End Sub

Nu maakt hij er geen NaamBestand.csv.csv van, maar braaf NaamBestand.csv

Jarod

 

[wolters125]

Heren,

Bedankt voor de reacties.
Ik zal morgen meteen gaan proberen. Dan heb ik er tijd voor.

Mvg,

Niels

 

[wolters125]

Zo vandaag eens wat geprobeerd met de codes.
Het doet wel wat ik graag zou willen, maar door de copy functie blijft de
sheet waar naar toe gekopieerd is actief en open staan.

Is er een oplossing om na het opslaan de enkele sheet af te sluiten en weer terug te keren naar het workbook waarin ik bezig ben?

Zelf ben ik niet echt een kei in VBA.
Ik heb gekeken naar de close functie maar ik vind niet echt iets wat er past bij wat ik wil.

Bedankt tot zover.

Met vriendelijke groet,

Niels

 

[wlsandman]

Ik ben eigenlijk ook wel benieuwd naar het antwoord op bovenstaande vraag!

 

[Wigi]

Zelf ben ik niet echt een kei in VBA.
Ik heb gekeken naar de close functie maar ik vind niet echt iets wat er past bij wat ik wil.

Zo goed zal je daar wel niet bij gekeken hebben, want dit werkt gewoon:

Sub Opslaan()
    Sheets("codepagina").Copy
    filesavename = Application.GetSaveAsFilename(Filefilter:="CSV, *.csv")
    If filesavename <> False Then
        ActiveSheet.SaveAs filesavename
        ActiveWorkbook.Close
    End If
End Sub

Wigi

 

[wolters125]

Toppie!! :thumb:

Bedankt allen!


Mvg,

Niels