Bulletseye
Nieuwe gebruiker
- Lid geworden
- 27 aug 2014
- Berichten
- 4
Goedenmiddag,
Ik probeer in VBA (wat ik niet beheers) een code te maken die ervoor zorgt dat, als ik mijn excel-bestand opsla, er een kopie van de worksheet waar ik op sta in pdf wordt opgeslagen. Dit lukte. Alleen moet deze pdf worden opgeslagen met de bestandsnaam die in cel W1 van worksheet "Ma" te vinden is. Op dit moment is de bestandsnaam vast en zal deze dus elke keer het oude bestand overschrijven. In cel W1 is de bestandsnaam met de datum en tijd te vinden. Onderstaand vindt je de huidige code. Hoe moet ik het deel "H:\Orgineel.pdf" aanpassen, zodat de bestandsnaam door cel W1 wordt bepaald.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\Orgineel.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Ik heb al geprobeerd om "Filename:="H:\Orgineel.pdf"" aan te passen naar "Filename:="H:\" & Range("W1") & ".pdf"", maar dit leverde foutmeldingen op.
Ik hoop dat iemand mij kan helpen.
Ik probeer in VBA (wat ik niet beheers) een code te maken die ervoor zorgt dat, als ik mijn excel-bestand opsla, er een kopie van de worksheet waar ik op sta in pdf wordt opgeslagen. Dit lukte. Alleen moet deze pdf worden opgeslagen met de bestandsnaam die in cel W1 van worksheet "Ma" te vinden is. Op dit moment is de bestandsnaam vast en zal deze dus elke keer het oude bestand overschrijven. In cel W1 is de bestandsnaam met de datum en tijd te vinden. Onderstaand vindt je de huidige code. Hoe moet ik het deel "H:\Orgineel.pdf" aanpassen, zodat de bestandsnaam door cel W1 wordt bepaald.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="H:\Orgineel.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Ik heb al geprobeerd om "Filename:="H:\Orgineel.pdf"" aan te passen naar "Filename:="H:\" & Range("W1") & ".pdf"", maar dit leverde foutmeldingen op.
Ik hoop dat iemand mij kan helpen.