vba opslaan excel sheet

Status
Niet open voor verdere reacties.
L

lsc.b

Gebruiker
Lid geworden
4 nov 2000
Berichten
245
dit is wat ik heb gemaakt maar elke keer als ik het bestand opsla dan overschrijft het de ouden dat wil ik niet hoe kan ik dit oplossen

Private Sub CommandButton2_Click()
ChDir "C:\Users\l\Documents\A test"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\l\Documents\A test\urenstaat.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
 
Nogal logisch als je er altijd dezelfde naam voor gebruikt.
Doe het eens zo:
Code: 
Private Sub CommandButton2_Click()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\l\Documents\A test\urenstaat" & Format(Now(), "ddmmyyyyhhmmss") & ".pdf"
End Sub

En vergeet dat ChDir, dat is nergens voor nodig.
 
Laatst bewerkt:
@EdM

VBA <>Excel

Excelformule:

PHP: 
=Now()

VBA: zonder haakjes.

Code: 
msgbox Now
 
Klopt helemaal, uiteraard :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan