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


Emne lukketGem som PDF fil via excel 2010
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
SørenR86 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 02.Okt.2012
Land: Danmark
Status: Offline
Point: 4 		Direkte link til dette indlæg Emne: Gem som PDF fil via excel 2010
    Sendt: 02.Okt.2012 kl. 21:20
Hej Excel forum.
 
Jeg bøvler med at gemme filer som PDF via en makro, da den skal få nogle informationer fra nogle specifikke
celler på mit hoved ark.
da det er nogle ting der skal indgå i filen inden den bliver gemt.!
 
Håber nogen kan give mig en hånd med projektet
 
 
Mvh Søren
 
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 09.Okt.2012 kl. 10:00
Hej Søren,
 
I Excel 2007 og Excel 2010 er det rimelig nemt at gemme som PDF.
Denne kode er simpel, men virker rigtig godt.
 
Ved variable som filnavn og sti, kan man sagtens henvise til cellers indhold i stedet for som her, at skrive det i koden.
F.eks.
Filnavn = "DitFilNavn.pdf"
Kan erstattes med
Filnavn = Range("A1").text
 
Ved ovenstående eksempel, bruges indholdet af A1 som filnavn.
 
Sub GemSomPDF()
Dim DataSti, Filnavn As String
DataSti = "C:\Test\" 'Der hvor filen skal gemmes, husk at afslutte med \
Filnavn = "DitFilNavn.pdf"
'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den
If Dir(DataSti, vbDirectory) = "" Then
    MkDir DataSti
End If
'Gemmer den aktive workbook som .pdf
ActiveWorkbook.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=DataSti & Filnavn, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    From:=1, To:=Sheets.Count, _
    OpenAfterPublish:=False
MsgBox "Filen er gemt som " & DataSti & Filnavn & ".pdf", vbInformation
End Sub
//Allan
Til top
SørenR86 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 02.Okt.2012
Land: Danmark
Status: Offline
Point: 4 		Direkte link til dette indlæg Sendt: 18.Okt.2012 kl. 10:40
Hej Allan.
 
Tak for dit svar, og jeg har det også i brug. Smile
 
Men nu har jeg sat gang i de celler som jeg gerne vil have den tager sin information fra. Men nu siger formlen det her
Sub GemSomPdf()
'
' GemSomPdf Makro
' Gemmer logbogen som PDF fil
   Sheets("Logbog").Select
    Range("B1:O251").Select
    ActiveSheet.PageSetup.PrintArea = "$B$1:$O$251"
    Sheets("Data").Select
Dim DataSti, Filnavn As String
DataSti = "C:\Test\"
Filnavn = Range("b6").Text
'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den
If Dir(DataSti, vbDirectory) = "" Then
    MkDir DataSti
End If
'Gemmer den aktive workbook som .pdf
ActiveWorkbook.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=DataSti & Filnavn, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    From:=1, To:=Sheets.Count, _
    OpenAfterPublish:=False
MsgBox " Filen er gemt som " & Range("b6") & ".pdf", vbInformation
End Sub
 
Det med rødt kan jeg ikke få til at fungere, Jeg kan ikke se fejlen! Cry Håber du kan hjælpe problemet.
 
 
Mvh Søren R
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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