• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Specifieke Blad(sheet) Opslaan als via macro

Status
Niet open voor verdere reacties.
D

dennisj

Gebruiker
Lid geworden
22 mrt 2018
Berichten
30
Hallo allemaal!

ik krijg het maar niet voorelkaar om een specifieke blad(sheet) op te slaan als pdf via macro en het bestandsnaam te veranderen naar Kolom B2.
Hopelijke kan iemand mij hierbij helpen.

Alvast bedankt!

Bekijk bijlage Test.xlsm
 
In B2 staat iets dat je niet als bestandsnaam kan gebruiken.

Code: 
Sub CommandButton1_Click()
    Sheets("Dag Totaal").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=Environ("Userprofile") & "\Desktop\" & Range("A2") & ".pdf", _
        OpenAfterPublish:=True [COLOR="#008000"]'Zet deze op False om de PDF niet te openen[/COLOR]
End Sub

NB:
Dagtotaal is één woord.
 
Laatst bewerkt:
Bij mij komt het bedrag wel in de bestandsnaam te staan:

Code: 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("B2").Value, Quality:=xlQualityStandard
 
Klopt, daar zat ik even niet op te letten.
Maar ik kan me eigenlijk niet voorstellen dat TS dat als bestandsnaam zou willen hebben.
 
@SjonR
@edmoor

Bedankt voor de snelle respons, maar ik krijg bij alle twee jullie codes een fout melding.
Ik werk op een mac trouwens.

Schermafbeelding 2018-04-19 om 11.35.46.png
Schermafbeelding 2018-04-19 om 11.40.31.png
 
Ik vind het ook een rare methode van documenten archiveren, stel dat het bedrag toevalligerwijze overeenkomt met een eerder dag, dan ben je af.


Edit nav melding Mac:

Het was handig om dat eerder te vermelden Dennis. Ik weet geen **** van VBA op de Mac....
 
Laatst bewerkt:
@dennnisj:
Ik sla het document op de Desktop op met:
Environ("Userprofile") & "\Desktop\"

Dat werkt op een Mac uiteraard niet.
En fout 1004 betekent dat een gebruikt object niet werd gevonden.
Ik ken de Mac niet dus kan daar verder niet bij helpen.
 
@SjonR
@edmoor

Deze werk! alleen nog even paar aanpassingen. Bedankt voor de hulp

Sub CommandButton1_Click()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="/Users/'user'/Desktop/test.pdf" _
, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan