opslaan als, met bestandsnaam uit een van de cellen

Question

Ik wil een van de bladen als Pdf opslaan. In het voorbeeld hieronder wordt het opgeslagen als D:\testmap\aa.pdf

In Cel A1 van Blad1 staat het volledige pad en de bestandsnaam waarmee ik het wil opslaan. Hoe kan ik ipv D:\testmap\aa.pdf het pad en bestandsnaam uit cel A1 laten gebruiken?

        Sheets("Blad4").Select

    ChDir "D:\testmap"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "D:\testmap\aa.pdf", Quality _

        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

        OpenAfterPublish:=True

Answer 1

Henk,

Wellicht zo, waarbij ervan wordt uitgegaan dat in M7 (op werkblad Blad1) het volledige pad en de bestandsnaam staat:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

          Worksheets("Blad1").Range("M7"), Quality _

         :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

         OpenAfterPublish:=True

De oplossing van JP (maar dan met vierkante haken rond A1) werkt voor het actieve blad, waarbij ervan wordt uitgegaan dat in A1 alleen de bestandsnaam staat:

"D:\testmap" & [A1]

In alle gevallen moet de betreffende map al wel bestaan.

Jan

Answer 2

Het werk perfect, bedankt!

Answer 3

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "D:\testmap" & M7, Quality _

        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

        OpenAfterPublish:=True

Dat had ik ook gedaan JP, maar dan krijg ik de foutmelding:

Fout -2147024773 (8007007b) tijdens uitvoering:

Het document is niet opgeslagen.

Answer 4

"D:\testmap" & A1