Macro opslaan CSV bestand

[Excellie]

Beste Excellers,

Na een lange zoektocht kom ik er nog steeds niet uit!
Ik ben op zoek naar een Macro die mijn twee .csv werkbladen (die in één werkmap staan) opslaat. Filename: naam van het werkblad + datum.
Ik heb al zoveel VBA codes geprobeerd te copy pasten maar het lukt maar niet.

Ik hoop dat ik er dmv het forum wel uit kom.

Bij voorbaat dank!

Groetjes Excellie

 

[Haije]

Excellie,

heb je het opslaan als eens met de macrorecorder opgenomen?

 

[Excellie]

Nee, maar dan kan ik toch niet automatiseren dat het de datum van vandaag pakt?

 

[edmoor]

Macrocode moet je na opname altijd aanpassen.
Maar speel hier dan maar eens mee:

Sub ExportToCSV()
    Dim Bld As String
    Dim Pad As String
    Dim Bst As String
    
    Bld = Sheets("Blad1").Range("A1")
    Pad = Sheets("Blad1").Range("A2")
    Bst = Sheets("Blad1").Range("A3")
    
    Application.ScreenUpdating = False
    Sheets(Bld).Copy
    With ActiveWorkbook
        .SaveAs Filename:=Pad & "\" & Bst, FileFormat:=xlCSV, Local:=True
        .Close
    End With
    Application.ScreenUpdating = True
    
End Sub