Excel lagre som PDF

[Betong]

Er det en enkel måte å lage en knapp i et regneark for å lagre arket som en PDF fil, gjerne med et filnavn fra en celle?

 

Bruker i dag lagre som, men ønsker en enklere måte å gjøre det på.

[Myst]

Du kan legge til egne faner og knapper i båndet, men å eksportere med egendefinert filnavn vet jeg ikke.

 

For å legge til Eksport til PDF/XML knapp: høyreklikk på båndet og velg "Tilpass båndet". Venstre side velger man kommandoer man vil legge til på båndet. Høyre side viser hovedfanene. Du må lage ny fane og gruppe, f.eks. Eksport (begge kan hete det) og legge til eksportfunksjonen der. Da vil du få ny fane som heter Eksport med knapp som eksporterer til PDF direkte.

 

Automatisk filnavn fant jeg ikke ut av, så mulig du må bare bruke copypasta der.

[Trelkrok]

Er det en enkel måte å lage en knapp i et regneark for å lagre arket som en PDF fil, gjerne med et filnavn fra en celle?

 

Bruker i dag lagre som, men ønsker en enklere måte å gjøre det på.

Hei, du kan bruke denne makroen kanskje:

 

Sub Lagre()

Dim Sti As String

Dim Filnavn As String

 

Sti = ActiveWorkbook.Path & "\"

Filnavn = "Filnavn_" & Cells(7, 6)

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

        Sti & Filnavn, Quality:= _

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

        OpenAfterPublish:=Aapne

 

 

'

    ActiveWorkbook.Save

End Sub

[Betong]

Hallo,

Må nok prøve å lære meg noe om bruk av makroer.

 

Takk for hjelpen 

[Trelkrok]

Ja er veldig moro, blir fort hekta. Må nok innrømme at jeg spiller inn de fleste makroer og redigerer de etterpå.

Har ellers fått MYE god hjelp her på forumet. 

[alex_86416]

 

Er det en enkel måte å lage en knapp i et regneark for å lagre arket som en PDF fil, gjerne med et filnavn fra en celle?

 

Bruker i dag lagre som, men ønsker en enklere måte å gjøre det på.

Hei, du kan bruke denne makroen kanskje:

 

Sub Lagre()

Dim Sti As String

Dim Filnavn As String

 

Sti = ActiveWorkbook.Path & "\"

Filnavn = "Filnavn_" & Cells(7, 6)

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

        Sti & Filnavn, Quality:= _

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

        OpenAfterPublish:=Aapne

 

 

'

    ActiveWorkbook.Save

End Sub

 

er det mulig å få denne til å lagre seg på en bestemt mappe hver gang? opplever at det jeg vil lagre blir lagret på det siste stedet jeg lagret på. og er det mulig til å gjøre om så den beholder filen som excel?

[Harald Staff]

Javisst. Endre

 

Sti = ActiveWorkbook.Path & "\"

 

til noe a la

 

Sti = "C:\Temp\"

 

(Det skal kanskje nevnes at den opprinnelige koden ActiveWorkbook.Path peker til mappa der originalfilen ligger, ikke der du sist lagret. Men det kan jo ofte være sammenfallende.)

 

Beste hilsen Harald

[alex_86416]

Javisst. Endre

 

Sti = ActiveWorkbook.Path & "\"

 

til noe a la

 

Sti = "C:\Temp\"

 

(Det skal kanskje nevnes at den opprinnelige koden ActiveWorkbook.Path peker til mappa der originalfilen ligger, ikke der du sist lagret. Men det kan jo ofte være sammenfallende.)

 

Beste hilsen Harald

suverent, men en ting til. kan du hjelpe meg så den fortsatt blir lagret som excel fil? 

[Harald Staff]

Mjaa. Skal du bare lagre så er det

 

ThisWorkbook.Save

 

eller

 

ActiveWorkbook.Save

 

(ThisWorkbook er der hvor koden befinner seg. ActiveWorkbook er den du jobber med i øyeblikket. Igjen, ofte sammenfallende.)

 

-men skal vi begynne å holde orden på versjoner istedetfor å overskrive originalen så må vi tenke litt mer.

 

Beste hilsen Harald

[alex_86416]

Mjaa. Skal du bare lagre så er det

 

ThisWorkbook.Save

 

eller

 

ActiveWorkbook.Save

 

(ThisWorkbook er der hvor koden befinner seg. ActiveWorkbook er den du jobber med i øyeblikket. Igjen, ofte sammenfallende.)

 

-men skal vi begynne å holde orden på versjoner istedetfor å overskrive originalen så må vi tenke litt mer.

 

Beste hilsen Harald

selve makroen ser slik ut hos meg nå:

 

Sub Lagre()

Dim Sti As String

Dim Filnavn As String

 

Sti = "C:\Users\alhenn2\Desktop\fraktbrev test\" & "\"

Filnavn = Cells(9, 5)

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

        Sti & Filnavn, Quality:= _

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

        OpenAfterPublish:=Aapne

        

ActiveWindow.SelectedSheets.PrintOut Copies:=4

 

 

'

    ActiveWorkbook.Save

    

End Sub

 

den lagrer en fil ut ifra de som står i selle 9 , 5 (E9) og skriver ut 4 eksemplarer. det vil si at hver hang en bruker den så vil den lagre en fil ut ifra det som står i celle E) og den endres hver gang så da blir det ingen som får likt navn. eneste jeg vil ha endret på er at det ikke skal bli endret til PDF, i tilfelle noe blir skrevet feil og må inn og endre. hva må jeg endre da? 

[alex_86416]

 

Mjaa. Skal du bare lagre så er det

 

ThisWorkbook.Save

 

eller

 

ActiveWorkbook.Save

 

(ThisWorkbook er der hvor koden befinner seg. ActiveWorkbook er den du jobber med i øyeblikket. Igjen, ofte sammenfallende.)

 

-men skal vi begynne å holde orden på versjoner istedetfor å overskrive originalen så må vi tenke litt mer.

 

Beste hilsen Harald

selve makroen ser slik ut hos meg nå:

 

Sub Lagre()

Dim Sti As String

Dim Filnavn As String

 

Sti = "C:\Users\alhenn2\Desktop\fraktbrev test\" & "\"

Filnavn = Cells(9, 5)

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

        Sti & Filnavn, Quality:= _

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

        OpenAfterPublish:=Aapne

        

ActiveWindow.SelectedSheets.PrintOut Copies:=4

 

 

'

    ActiveWorkbook.Save

    

End Sub

 

den lagrer en fil ut ifra de som står i selle 9 , 5 (E9) og skriver ut 4 eksemplarer. det vil si at hver hang en bruker den så vil den lagre en fil ut ifra det som står i celle E) og den endres hver gang så da blir det ingen som får likt navn. eneste jeg vil ha endret på er at det ikke skal bli endret til PDF, i tilfelle noe blir skrevet feil og må inn og endre. hva må jeg endre da? 

 

fant en annen løsning som du har skrevet på en annen tråd og gjorde noen endringer så da ble den slik og det ser ut til at det virker:

 

Sub Button1_Click()

Dim StrPath As String

Dim strName As String

Dim intNum As Integer

StrPath = "C:\Users\alhenn2\Desktop\fraktbrev test" & "\"

strName = Cells(9, 5) & "-"

On Error Resume Next

intNum = Mid(ThisWorkbook.Name, 7, 1)

On Error GoTo 0

intNum = intNum + (1)

strName = strName & intNum & ".xls"

ThisWorkbook.SaveAs StrPath & strName

MsgBox "Workbook saved as: " & ThisWorkbook.Name

 

ActiveWindow.SelectedSheets.PrintOut Copies:=4

 

End Sub