VBA Excel: gem valgte ark som separate PDF filer
HejJeg er ny VBA bruger og har googlet mig frem til en VBA kode, der skal løse en opgave i excel for mig. Jeg har forsøgt at stykke koden sammen fra flere eksempler fundet på google, men jeg får en fejl i den sidste del af koden.
Opgaven er at jeg i et excel ønske at vælge, hvilke ark der skal gemmes som PDF. Hvert ark skal gemmes som en separat PDF fil. Filen skal gemmes i samme mappe som excel filen er gemt og filnavnet på PDF'erne skal dannes ud fra celler i hvert enkelt ark (samme celler i alle ark).
Jeg har lavet udvælgelsen af ark i en ListBox i arket "Gem som PDF", hvor jeg laver en liste med alle ark og her kan jeg ved CTRL+klik udvælge de ark der skal gemmes
Jeg har 2 spørgsmål: 1) Kan koden tilpasses så alle ark undtagen ark 11 & 12 vises i min ListBox?
Private Sub Worksheet_Activate()
Dim Sh
Me.ListBoxSh.Clear
For Each Sh In ThisWorkbook.Sheets
Me.ListBoxSh.AddItem Sh.Name
Next Sh
End Sub
2) Jeg får en fejl, når "ExportAsFixedFormat" koden skal afvikles, hvordan løses det?
Option Explicit
Sub Save_SelectedSheets_PDF()
Dim i As Long, c As Long
Dim SheetArray() As String
With ActiveSheet.ListBoxSh
For i = 0 To .ListCount - 1
If .Selected(i) Then
ReDim Preserve SheetArray(c)
SheetArray(c) = .List(i)
c = c + 1
End If
Next i
Sheets(SheetArray()).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & ActiveSheet.Range("C42").Value & " - " & ActiveSheet.Range("D42").Value & ActiveSheet.Range("E42").Value & " - " & ActiveSheet.Range("C43").Value, _
Quality:=xlQualityStandard
End With