pdfbestand opslaan in zelfde map als bronbestand VBA

[ewoutd]

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.

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

 

[Niels28]

Vervang

filename:=strdesktop & "\" & strbestand

Door

filename:=thisworkbook.path & "\" & strbestand

Niels