Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen.

Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!


Rob Embrace

Pdf opslaan in huidige map VBA

Aanbevolen berichten

Hallo Excel experts,

 

Het gaat om het opslaan van een Excel bestand als PDF.

Ik heb een stukje VBA dat ervoor zorgt dat de file als pdf op een bepaalde locatie word opgeslagen, dat werkt prima.

Het zou alleen mooi zijn als het bestand dan ook in de map waar het uit opgestart is word opgeslagen als PDF.

De map waarin het bronbestand word geplaatst is elke keer anders ( er werken diverse mensen met dit bestand.

Heeft iemand een oplossing voor dit vraagstuk?

 

Hieronder het stukje VBA

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "G:\Office\Naaldwijk\Projecten financieel\Prognoses 2020\" & Filename & "\ " & Blad2.Range("F64").Value & Vnr & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
        MsgBox "De rapportage is opgeslagen op de G schijf.Nu kan je de PDF opslaan in jouw eigen financieele map. ", vbOKOnly, "Info"
        End Sub

 

Er zou dus een stukje bij moeten komen dat de file ook opslaat in de map waaruit het is opgestart.

Deel dit bericht


Link naar bericht
Delen op andere sites

Zo?

Sub dotch()
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Blad2.Range("F64").Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

 

Deel dit bericht


Link naar bericht
Delen op andere sites
  • Topicstarter
  •    0

    Hallo Philiep,

     

    Als eerste bedankt voor uw reactie.

    Het lukt mij niet deze code werkend te krijgen, kan je mij laten zien hoe en waar jouw stukje ingezet zou moeten worden in de bestaande code.

    alvast bedankt

    Rob

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    De twee combineren is niet zo moeilijk.

    Net voor de end Sub van jou code kan je mijn code invoegen om te combineren.

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Blad2.Range("F64").Value & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

    Probeer eerst wat meer uitleg te geven of je volledige code te posten.

    G:\Office\Naaldwijk\Projecten financieel\Prognoses 2020\" & Filename & "\ " & Blad2.Range("F64").Value & Vnr & ".pdf",

    Nu kan ik onmogelijk weten waar de twee rode stukjes vandaan komen en heb ik dus  ook niet in mijn voorbeeld meegenomen.

     

     

     

     

     

     

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
  • Topicstarter
  •    0

    Hallo,

     

    Uiteraard heb ik de code zo ingeplakt maar er word een compileer fout gemeld, er wordt een end sub verwacht.

     

    Voor de duidelijkheid hier onder de complete code met een beschrijving.

    Sub MacroROB()
    Mdd = Month(Now())
    If Blad2.Range("D67").Value = Mdd Then
        Vnr = Blad2.Range("E67").Value + 1
    Else
        Blad2.Range("D67").Value = Mdd
        Vnr = 0
    End If
    Blad2.Range("E67").Value = Vnr
    Vnr = "  (" & Vnr & ")"


        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "G:\Office\Naaldwijk\Projecten financieel\Prognoses 2020\" & Filename & "\ " & Blad2.Range("F64").Value & Vnr & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            True
            MsgBox "De rapportage is opgeslagen op de G schijf.Nu kan je de PDF opslaan in jouw eigen financieele map. ", vbOKOnly, "Info"
            End Sub

    Sub dotch()
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Blad2.Range("F64").Value & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End Sub

     

    Als ik de nieuwe code in plak waar het zou moeten dan word er een End sub verwacht na de megbox.

     

    Een klein beetje uitleg over de code:

    op het blad staat een knop die er voor moet zorgen dat de file wordt opgeslagen als PDF op een server in de map prognoses 2020.

    Het bestand bevind zich op dat moment op een willekeurige pc in het netwerk.

    Het bestand wordt opgeslagen met de file name en een volgnummer.

    Wat ik graag zou zien is dat de file ook in de map wordt opgeslagen waar het zich op dat moment bevind.

    uiteraard ook als pdf en met volg nummer ( het zelfde als op de server).

    Ik hoop dat het zo wat duidelijker is en dat iemand een idee heeft.

    mvg Rob

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
    Sub MacroROB()
    Mdd = Month(Now())
    If Blad2.Range("D67").Value = Mdd Then
        Vnr = Blad2.Range("E67").Value + 1
    Else
        Blad2.Range("D67").Value = Mdd
        Vnr = 0
    End If
    Blad2.Range("E67").Value = Vnr
    Vnr = "  (" & Vnr & ")"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "G:\Office\Naaldwijk\Projecten financieel\Prognoses 2020\" & Filename & "\ " & Blad2.Range("F64").Value & Vnr & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Blad2.Range("F64").Value & Vnr & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End Sub

    Probeer deze eens.

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

  • Topicstarter
  •    0

    Philiep

     

    Mijn dank is groot😊 dit is exact wat de bedoeling was.

    werkt super. 

    Ik heb nog even de msg box toegevoegd en publiceren van de pdf files uitgezet.

     

    bedankt voor de goede hulp. 

     

    Mvg 

     

    Rob

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
    Quote

    publiceren van de pdf files

    Stond wel zo in je eerste code 😉

    Quote

    Ik heb nog even de msg box toegevoegd

    Tip, probeer overbodige msgboxen te vermijden, de meeste gebruikers hebben er een hekel aan.

    Blij dat je probleem is opgelost en dank voor de terugkoppeling.👍

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
    Gast
    Dit topic is nu gesloten voor nieuwe reacties.

    Logo

    OVER ONS

    PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

    ×
    ×
    • Nieuwe aanmaken...