Gemme Exel-dokument som PDF-fil

Hej Mads

Nedenstående kode skulle kunne gemme din PDF-fil.


Private Sub Gem_PDFfil()

Dim WB As Workbook: Set WB = ActiveWorkbook
Dim Ark3 As Worksheet: Set Ark3 = WB.Worksheets("Ark3")
Dim navn As String

navn = Ark3.Range("A1").Value

    Ark3.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Dokumenter\Word\Liste1\" & navn, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False

End Sub

Hej JP9

Mange tak for dit løsningsforslag.

Jeg kan ikke skrive makroer direkte i VBA editor, men kun skrive makroer ved hjælp af makro-optage-funktionen. Så når jeg starter, på en makro (sub GemPDFfil(), og kopierer dit forslag ind i denne virker det ikke følgende programdel skrives med rødt:

    Ark3.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Dokumenter\Word\Liste1\" & navn, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False

Hvis du kan beskrive trin for trin, hvad jeg skal gøre for at oprette makroen,  vil jeg være meget glad.

Kontroler om: "C:\Dokumenter\Word\Liste1\" er korrekt?

Der mangler måske noget
C:\Users\Navn\Dokumenter\Word\Liste1\

Hej Mads

Tjek lige Morten's forslag ellers kan jeg evt. sende dig koden i et tomt ark.

Hej
Jeg har tjekket Mortens forslag og indføjer User og Navn. Det hjælper heller ikke.

Jeg har optaget en makro hvor jeg klikkker mig frem til valg af placering, indskriver fiil navn og vælger PDF-fil.

Der er kun forskel et sted i koderne, nemlig hvor filnavn indsættes.
Dit forslag:
"C:\Dokumenter\Word\Liste1\" & navn,

Min optagelse med nogle andre biblioteker viser:
"C:\Users\Jens Erik\Documents\01 Word\1 Breve\Editnielsen.pdf",

Jeg har prøvet at flytte, slette og tilføje ", uden resultat.

Hvad skal ændres?????

Hej Mads

Nedenstående kode er nu rettet til efter den sti du har i ovenstående besked.

Håber du nu kan få det til at køre :-)

Private Sub Gem_PDFfil()

Dim WB As Workbook: Set WB = ActiveWorkbook
Dim Ark3 As Worksheet: Set Ark3 = WB.Worksheets("Ark3")
Dim navn As String

navn = Ark3.Range("A1").Value

    Ark3.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\Jens Erik\Documents\01 Word\1 Breve\" & navn, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True _
  IgnorePrintAreas:=False, OpenAfterPublish:= False

End Sub

Hej JP9

Der manglede et komma i din kode efter TRUE. Men det hjalp ikke.

Jeg skrev så den kode, der blev ved med at blive rød, som en lang linje, uden linjeskift.
Så virkede den.

Mange tak for hjælpen

Hej Mads

Godt du fandt løsningen, selv tak! :-)