PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBASpara excelfil som PDF med samma arbetsboksnamnSpara excelfil som PDF med samma arbetsboksnamn
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2016-03-23 10:56
 

Jag är fullständig newbie på att skapa makron och har helt kört fast på en sak som borde vara simpel.
Jag hoppas på er hjälp!

Jag har ett flertal filer i excel som jag ska göra ett påslag på och sedan spara som PDF med samma namn som arbetsboken heter.
Just sparandebiten strular här... Jag fattar inte hur en sparar med unikt namn för varje ny arbetsbok. Mitt makro vill ju spara över tidigare skapad fil hela tiden.
Såhär ser det ut nu:
 

Sub SITSSE()

'

' SITSSE Makro

'

' Kortkommando: Ctrl+Skift+Q

'

    Range("N3").Select

    ActiveCell.FormulaR1C1 = "1.15"

    Range("N4").Select

    ChDir "C:\Users\Maria-SITS\Dropbox\PRISLISTOR\STORN\2016-04-01"

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

        "C:\Users\Maria-SITS\Dropbox\PRISLISTOR\STORN\2016-04-01\PEGGYPrislista SE2016.pdf" _

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

        :=False, OpenAfterPublish:=False

        MName = ActiveSheet.Name & ".xls"

MDir = ActiveWorkbook.Path

ActiveWorkbook.SaveAs Filename:=MDir & "\" & MName

    ActiveWindow.Close

End Sub


Hjälp?

 
Nytt inlägg
 2016-03-29 10:49
 

 Hej Mia

Just nu ser det ut som du döper dina pdfer till Peggyprislista2016. Byt ut raden: "C:\Users\Maria-SITS\Dropbox\PRISLISTOR\STORN\2016-04-01\PEGGYPrislista SE2016.pdf"

mot "C:\Users\Maria-SITS\Dropbox\PRISLISTOR\STORN\2016-04-01\" & thisworkbook.name & ".pdf" så kommer dina pdf att anta samma namn som din arbetsbok.

Sedan måste du även skifta ordning på när du sparar din arbetsbok. Just nu gör du detta sist, och då kommer dina pdfer anta namnet från din tidigare arbetsbok istället.

Dessa rader hämtar namnet från fliken du är på, pathen till filen du använder, döper filen till fliknamnet och placerar den i samma directory där du körde filen från:

MName = ActiveSheet.Name & ".xls"

MDir = ActiveWorkbook.Path

ActiveWorkbook.SaveAs Filename:=MDir & "\" & MName

Dessutom behöver du även klassificera dina olika variabler. Detta gör du i raderna under  Sub SITSSE()

Dim MDir as string

Dim MName as string

 

Nytt inlägg
 2017-10-04 07:47
 

Tack för hjälpen sist!
Nu sitter jag med samma projekt på nytt med nya prislistor på g. Har tyvärr inte sparat den slutliga koden från förra gången.
Mina PDF'r sparas, men nu sparas de med namnet "Personal.xlsb" vilket är namnet för min arbetsbok med makros. Jag har dolt denna arbetsbok men ändå så blir det såhär.
Jag misstänker att det har att göra med den där ordningen på sparande osv att göra, men jag vet inte hur det ska se ut...
Hjälp mig please? Tack!

Såhär ser koden ut nu:


 Sub PDF()

'
' PDF Makro
'
' Kortkommando: Ctrl+z
'
    ChDir "C:\Users\Maria-SITS\Dropbox\PRISLISTOR\KONTRAKT\REK\PDF"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Maria-SITS\Dropbox\PRISLISTOR\KONTRAKT\REK\PDF\" & ThisWorkbook.Name & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    ActiveWindow.Close
End Sub
 
Nytt inlägg
 2017-10-05 10:09
 
Hej Maria. Nedan har du kod som bör fungera för dig. Jag har dock inte tillgång till excel på denna dator, så kan inte testa :). Lycka till.

mvh
Christian

Sub PDF()
'
' PDF Makro
'Skriver ut det aktiva bladet som PDF
'PDFEN döps till namnet på bladet
' Kortkommando: Ctrl+z

'Nedan sätter sökvägen till där dina pdf ska sparas. Viktigt att den slutar på \
Dim myPath as string: myPath = "C:\Users\Maria-SITS\Dropbox\PRISLISTOR\KONTRAKT\REK\PDF\"
'Nedan sätter filnamn till det aktiva bladets namn samt filändelse .pdf
Dim myFileName as string: myFileName = activesheet.name & ".pdf"
'

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myPath & myFileName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End Sub
Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBASpara excelfil som PDF med samma arbetsboksnamnSpara excelfil som PDF med samma arbetsboksnamn

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter