• 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.

Automatisch opslaan van een exel blad naar pdf

Status
Niet open voor verdere reacties.
witlofje

witlofje

Gebruiker
Lid geworden
5 mei 2012
Berichten
124
Hallo,

Ik zou graag een geselecteerde afdruk bereik dagelijks op het zelfde tijdstip automatisch willen op laten slaan naar pdf, weet iemand of dit ook mogelijk is?

Gr witlofje
 
Hoi,
Zoiets?
Plaats dit stukje in een module
Code: 
Sub dotchie()
With Sheets("[COLOR="#FF0000"]Blad1[/COLOR]").Range("[COLOR="#FF0000"]A1:F15[/COLOR]")
    .ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="[COLOR="#FF0000"]C:\uw locatie\uwlocatie\uwlocatie\uwmap\excelpdf " & Format(Now(), "DD.MM.YYYY.hhmm") & ".pdf", _[/COLOR]
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
End With
End Sub
Pas het rode gedeelte aan
Volgens huidige format wordt de PDF zo opgeslagen excelpdf 18.12.2015.1105
Plaats dit stukje in Thisworkbook
Code: 
Private Sub Workbook_Open()
  Application.OnTime Now + TimeValue("[COLOR="#FF0000"][COLOR="#FF0000"]00:01:00[/COLOR][/COLOR]"), "dotchie"
End Sub
Na het openen van het excel bestand wordt er een PDF opgeslagen, in mijn voorbeeld na 1 minuut (zie het rode gedeelte), pas aan volgens uw behoefte

Groet
 
Hallo,

Moet het altijd opnieuw geopend worden of kan het ook als de map altijd geopend bij staat, en er bv om 7 uur s'morgens automatisch opgeslagen word naar pdf zonder zelf iets te moeten doen?

Gr Witlofje
 
@ dotchie
Punten in je bestandsnaam is vragen om problemen.
Dit kan wel
Code: 
excelpdf 18_12_2015_1105.pdf
 
Hoi,@ warme bakker
Ik begrijp uw opmerking
bij mij werkt het zonder problemen
maar mischien heb je een oplossing voor TS zijn 2de vraag
Een file die 24/24/7/7 opstaat in iets nieuw voor mij
groet
 
Hoi,
of kan het ook als de map altijd geopend bij staat
Klik om te vergroten...
@ clickand ???????,
Om de code te laten lopen zal je het bestand open moeten laten staan...
Klik om te vergroten...
DUs: uw opmerking ???
Mijn vbtje werkt alleen na het open van het excel bestand, in te stellen van 1 sec tot 24 uur
 
Excuus overheen gelezen... Zie nu idd. dat het na opstarten is van het bestand, sorry...
 
@ witlofje
Moet het altijd opnieuw geopend worden of kan het ook als de map altijd geopend bij staat, en er bv om 7 uur s'morgens automatisch opgeslagen word naar pdf zonder zelf iets te moeten doen?
Klik om te vergroten...
Met deze aanpassing:
Code: 
Private Sub Workbook_Open()
Application.OnTime ("07:00:00"), "Module1.dotchie"
End Sub
Je moet éénmaal uw excel bestand sluiten en terug openen om de macro te starten
groet
 
Oke, ik ben niet zo bekend met vba dus ik zal het even gaan proberen, of zou je een voorbeeld bestandje kunnen sturen met de vba erin?

Gr Witlofje
 
Hoi,
Bij deze een vbtje
Anders kan je uw eigen bestandje (zonder gevoelige info) eventjes posten dan pas ik die aan.
Je moet wel in module één het volgnde aanpassen
Code: 
"C:\Users\Grote\Downloads\pdfexport\pdf\witlofjepdf "
groet
 

Bijlagen

  • pdfexport.zip
    14,1 KB · Weergaven: 57
Hallo,
Bedankt voor het vbt hier kom ik wel uit, scheelt me weer wat werk.
Gr witlofje
 
en haal alle overbodigheiden uit de code. Dit is voldoende:

Code: 
Sheets("Blad1").Range("A1:F15").ExportAsFixedFormat 0,"G:\folder\excelpdf_" & Format(Now(), "DD_MM_YYYY_hhmm") & ".pdf"
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun ons

Nieuwste berichten

Terug
Bovenaan Onderaan