Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketgem pdf
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
jesper ld Se dropdown
Forum Begynder
Forum Begynder


Medlem: 09.Jun.2020
Land: Danmark
Status: Offline
Point: 8 		Direkte link til dette indlæg Emne: gem pdf
    Sendt: 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 ? 
Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417 		Direkte link til dette indlæg Sendt: 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.
Til top
jesper ld Se dropdown
Forum Begynder
Forum Begynder


Medlem: 09.Jun.2020
Land: Danmark
Status: Offline
Point: 8 		Direkte link til dette indlæg Sendt: 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
  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 & ".pdf"
      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
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417 		Direkte link til dette indlæg Sendt: 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.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk