Søg
Avatar billede lineriber Praktikant
23. november 2012 - 10:56 Der er 4 kommentarer og
1 løsning

Hjælp til VBA: Gem fil med et filnavn der er angivet i en celle i regnearket

Hej Eksperter

Jeg har en VBA kode der gemmer en excel-fil som en pdf-fil.
Mit spørgsmål er, om man i VBA'en kan angive at det filnavn som pdf-filen skal gemmes med, skal være den tekst der står i en celle i regnearket??

Sub Save_as_PDF()

    fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="PDF Files (*.pdf), *.pdf")

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fileSaveName, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
   
End Sub

Mvh
Line
Avatar billede xenoxsis Nybegynder
23. november 2012 - 11:33 #1
Hvad med stien? Står den også i cellen eller er det kun filnavnet?
Avatar billede xenoxsis Nybegynder
23. november 2012 - 11:41 #2
Sub Save_as_PDF()
    Dim fileSavePath As String
    Dim fileSaveName As String
    Dim xlSheet As Worksheet
   
    Set xlSheet = Worksheets("Ark1")
    fileSavePath = "C:\"
    fileSaveName = xlSheet.Range("A1").Value & ".pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fileSavePath & fileSaveName, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

Du skal ændre xlSheet til det ark som du skal hente værdien i. Og fileSavePath til den sti der skal gemmes i (husk at slutte med \)
Avatar billede lineriber Praktikant
26. november 2012 - 08:35 #3
Nej, stien skal angives hver gang, dvs. at VBA'en skal lede mig ind i "Save as" hvor jeg kan browse mig frem til den sti jeg vil bruge - altså ligesom den den oprindelse VBA jeg havde kopieret ind i mit spørgsmål.
Dvs. eneste ænding er at filnavnet skal være forudfyldt så det er lig med værdien i celle A1.

Kan det lade sig gøre?
Avatar billede xenoxsis Nybegynder
29. november 2012 - 14:42 #4
Ahh ja det kan det da :)

Går ud fra det er sådan her du mener (det med fed skal du ændre):

Sub Save_as_PDF()

    fileSaveName = Application.GetSaveAsFilename(Range("A1"), "PDF Files (*.pdf), *.pdf")

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fileSaveName, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
   
End Sub
Avatar billede lineriber Praktikant
30. november 2012 - 08:55 #5
Perfekt, tusinde tak for hjælpen :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 19:53 installer mange programmer på en gang Af Overgaard1654 i Andet software
I går 17:48 Min hp Officejet pro 7740 skærer det nederste af billedet i word Af rosmarin i Printere
I går 13:13 Batch OCR Af KurtG i Billedbehandling
I går 10:42 AI integreret i Access Af per2edb i Access
04/0409:43 AI google.com Af Peter Olsen i Andre onlineløsninger
White papers
Flere white papers »