Avatar billede denero Juniormester
29. oktober 2015 - 15:04 Der er 1 løsning

Flere ark i excel til en PDF fil

Application.Goto Reference:="Ark1UD"
    Application.Goto Reference:="Ark2UD"
    Application.Goto Reference:="Ark3UD"
 
    '
    Sheets(Array("Ark1 diagram", "Ark2 diagram", "Ark3 diagram")) _
        .Select
    Sheets("Ark1 diagram").Activate

    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Min Mappe.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

Ovenstående kode samler de 3 sider i excel til en PDF fil og gemmer den.

Jeg vil gerne have det ændret til
1. at jeg kan "bestemme hvilken mappe filen skal gemmes i(som nu)
2. at filnavnet skal komme fra celle T12, Ark1
3. at hvis filen eksisterer, skal der komme en (fejl)meddelse.

Det må være "noget" med save as dialog, der skal frem

Bruger Excel 2013. Makroen skal aktiveres inde fra Excel
Avatar billede denero Juniormester
30. oktober 2015 - 11:32 #1
Har løst problemet. Nedenstående virker.


Dim strPath As String
Dim strFile As String
Dim Ans As Integer

strPath = " C:\Min Mappe"
strFile = "Uge " & Sheets("Ark1").Range("U12").Value & ".pdf"
   
Application.Goto Reference:="Ark1UD"
Application.Goto Reference:="Ark2UD"
Application.Goto Reference:="Ark3UD"
 
   
Sheets(Array("Ark1 diagram", "Ark2 diagram", "Ark3 diagram")) _
.Select
Sheets("Ark1 diagram").Activate

If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
   

If Dir(strPath & strFile) <> "" Then
Ans = MsgBox("Filen eksisterer allerede.", vbQuestion + vbYesNo, "Vil du overskrive?")
If Ans = vbNo Then Exit Sub
End If
   
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPath & strFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
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 for alle niveauer og behov – find det kursus, der passer til dig

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.

Du kan også logge ind via nedenstående tjenester