Hallo,
Ik gebruik het volgende vba script om een pdf te maken van mijn excelbestanden.
Maar de export wordt nu in een standaard map opgeslagen.
Is het mogelijk dat de pdf bestanden meteen in dezelfde map worden geplaatst als die waar het excelbestand zelf staat?
alvast bedankt voor jullie hulp.
Ik gebruik het volgende vba script om een pdf te maken van mijn excelbestanden.
Maar de export wordt nu in een standaard map opgeslagen.
Is het mogelijk dat de pdf bestanden meteen in dezelfde map worden geplaatst als die waar het excelbestand zelf staat?
alvast bedankt voor jullie hulp.
Code:
Private Sub CommandButton4_Click()
Dim I As Long, X As Long
Dim vntFilePath As Variant
Dim arrValues()
Dim strDesktop As String, strBestand As String
For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) Then j = j + 1
Next I
If j = 0 Then MsgBox " No items selected": Exit Sub
'ListBox1.Selected(0) = True '<----- This automatically selects the first sheet
strBestand = "EWBI Kostenanalyse"
'strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop") '<----- Saves to Desktop
strDesktop = "C:\Export"
If ListBox1.ListIndex <> -1 Then
For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) Then
ReDim Preserve arrValues(X)
arrValues(X) = ListBox1.List(I)
X = X + 1
End If
Next I
End If
Sheets(arrValues).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strDesktop & "\" & strBestand, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("Start").Select
'Unload Me
End Sub
Laatst bewerkt door een moderator: