Őrület, hogy miket tud Jimmy!

 

Ez egy függvény. Beírod a címét =-jel, mire feljön az ablak, ahol kiválasztod a neked tetsző könyvtárat. OK után a függvény kimenete a választott útvonal lesz.

 

Ugyanez más makróba beépítve ilyesmi lehet:

 

Sub mm()

    Dim fd, utvonal As String

 

    MsgBox "Válasszunk magunknak útvonalat"

 

    Set fd = Application.FileDialog(4)

    With fd

        .AllowMultiSelect = False

        .Show

        If .SelectedItems.Count = 0 Then

            utvonal = ""

        Else

            utvonal = .SelectedItems(1)

        End If

    End With

    utvonal = utvonal & ""

    'Jöhet a mentés

End Sub

 

Csak tudnám, mi a 4-es az Application.FileDialog(4) kifejezében!