Makro og VBA - gem pdf

gem pdf

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4912
Udskrevet den: 04.Dec.2024 kl. 19:38

Emne: gem pdf

Besked fra: jesper ld
Emne: gem pdf
Posteringsdato: 29.Mar.2023 kl. 11:47

Hej,

jeg vil gerne gemme en excel fil som pdf på vores firma onedrive, jeg vil gerne have den gemmer ved en knap og evt sletter enkelte celler som er udfyldt med aktuelle data, arket skal gerne starte som ikke udfyldt næste gang det skal bruges.

jeg har det til at fungerer med gem excel men ikke pdf

Sub nextInvoice()

Range("b5:b16").ClearContents

Range("e14:e15").ClearContents

Range("f14:f15").ClearContents

End Sub

Sub saveInvwithneName()

Dim NewFN As Variant

Dim CurrUserPath As String

CurrUserPath = Environ("USERPROFILE")

ActiveSheet.Copy

NewFN = CurrUserPath & "\MOBA Mobile Automation AG\MOBA DENMARK - Dokumenter - Dokumenter\16-kontor\diæter\diæter2023\" & Range("b2") & " - " & Range("b5") & " - " & Range("b6") & " - " & Range("b13") & " - " & Range("b14").Value & ".xlsx"

ActiveWorkbook.SaveAs NewFN, FileFormat:=xlWorkbookDefault

ActiveWorkbook.Close

MsgBox "Vareforbruget gemmes.... Undersøg evt. om excel dokumentet er gemt \Dokumenter - Dokumenter\16-kontor\diæter\diæter2023 ", vbInformation

nextInvoice

End Sub

er der en som kan hjælpe ?

Svar:

Besked fra: EXCELGAARD
Posteringsdato: 12.Apr.2023 kl. 11:17

Når du skal gemme som PDF, skal du ikke benytte '.Save' eller '.SaveAs', men derimod '.ExportAsFixedFormat'.

Så, det vil være noget i denne stil:

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

Husk dog, at ændre filendelse på 'NewFN' til '.PDF' Smile

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: jesper ld
Posteringsdato: 12.Apr.2023 kl. 13:12

hej excelgaard,

nu spørger den i en dialogboks om den skal gemme doc 1 ?

Sub saveInvwithneName()

Dim NewFN As Variant

Dim CurrUserPath As String

CurrUserPath = Environ("USERPROFILE")

ActiveSheet.Copy

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

ActiveWorkbook.Close

MsgBox "Vareforbruget gemmes.... Undersøg evt. om excel dokumentet er gemt \Dokumenter - Dokumenter\16-kontor\diæter\diæter2023 ", vbInformation

nextInvoice

End Sub

Besked fra: EXCELGAARD
Posteringsdato: 12.Apr.2023 kl. 14:57

I hvilken linje spørger den?
Hvad spørger den præcist om?
Hvad sker der, hvis du trykker 'Ja'?
Skriver du oveni en fil, der allerede er der?
Hvilekn sti og fil kommer din formel frem til? (Debug.Print NewFN)

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.