Dim dlg As FileDialog
Dim DosyaAdi As String
Dim SecDosya As Variant
Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
With dlg
    .AllowMultiSelect = False
    .ButtonName = "Klasor Seç"
    .Title = "KLASOR Seciniz"
        If .Show = True Then
            For Each SecDosya In .SelectedItems
                     DosyaAdi = SecDosya
            Next SecDosya
      End If
End With
msgbox DosyaAdi

Dim Dosya As String
Dosya = "D:\DosyaAdi.xls"
Application.FollowHyperlink Dosya , , True, True

Private Sub Aktar_Click()
Dim dlg As FileDialog, SrgYap As QueryDef, SqlA, DosyaAdi As String, Cevap, SecDosya As Variant
Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
With dlg
    .AllowMultiSelect = False
    .ButtonName = "Klasor Seç"
    .Title = "KLASOR Seciniz"
        If .Show = True Then
            For Each SecDosya In .SelectedItems
                     DosyaAdi = SecDosya
            Next SecDosya
      End If
End With
 
SqlA = "SELECT Personel.Kimlik, IIf([Sicili]<>'Kapat','Göster','') AS Edit, Personel.Adý, Personel.Soyadý, Personel.Sicili, Personel.tcno " & _
"FROM Personel " & IIf(strWhere <> "", "Where " & strWhere, Null)
    Set SrgYap = CurrentDb.CreateQueryDef("Gecici", SqlA)
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Gecici", DosyaAdi & "\AA.xls", True
    DoCmd.DeleteObject acQuery, "Gecici"
    If MsgBox("Acmak Istermisiniz", vbYesNo, "EXCEL DOSYASI") = vbYes Then Application.FollowHyperlink DosyaAdi & "\AA.xls", , True, True
End Sub