isim = Me.cmbKurumu.Column(1) & "-KBS Ek Ders Dosyası" & "-" & "_" & (Format(Date, "dd mm yyyy") & "_" & Format(Time, "hh mm"))

DoCmd.OutputTo acQuery, "KBS_EKDERS", "MicrosoftExcel(*.xls)", "", False, "", 0


Aktarma yaparken dosya adı olarak sorgum olan KBS_EKDERS  geliyor.
Dosya adına isim ile birlikte atayabilirmiyim?
Teşekkürler....

Me.cmbKurumu.Column(1) içinde C:\, D:\, vb. yer tanımı vardır sanırım.

Hocam, kodum çalışınca filedialog ile çalışıyor.
İstediğim  file dialogla açılınca dosya adı bölümüne gelmesi idi.
Çok teşekkürler...

---

---

Hocam eklenti gibi. Sizin gönderdiğinizi yapabilmiştim.
Teşekkürler...

Hocam şu şekilde herhalde başarılı oldum.Kod çalışıyor.İstediğim yere istediğim adla kayıt yapıp açıp kontrol edebiliyorum.
Çok teşekkür ediyorum.

Private Sub btn_kbs_istenilen_yere_Click()
Dim dlg As FileDialog, SrgYap As QueryDef, SqlA, DosyaAdi, isim, AY, YIL As String, Cevap, SecDosya As Variant
Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
isim = Me.cmbKurumu.Column(1) & "-KBS Ek Ders Dosyası" & "-" & "_" & (Format(Date, "dd mm yyyy") & "_" & Format(Time, "hh mm"))
AY = Me.cmbMonth.Column(1)
YIL = Me.cmbYear
With dlg
    .AllowMultiSelect = False
    .ButtonName = "Kaydet"
    .Title = "KLASOR Seciniz"
        If .Show = True Then
            For Each SecDosya In .SelectedItems
                     DosyaAdi = SecDosya
            Next SecDosya
      End If
      If IsNull(DosyaAdi) Or DosyaAdi = "" Then Exit Sub
End With
    SqlA = "SELECT EKDERS_OGRETMEN.TC AS TCKN,IIf([TCKN]<>'Kapat','Göster','') AS Edit," & _
" EKDERS_OGRETMEN.VERI_TIPI AS [Veri Tip], EKDERS_OGRETMEN.E01 AS Gun1, EKDERS_OGRETMEN.E02 AS Gun2, EKDERS_OGRETMEN.E03 AS Gun3, EKDERS_OGRETMEN.E04 AS Gun4, EKDERS_OGRETMEN.E05 AS Gun5, EKDERS_OGRETMEN.E06 AS Gun6, EKDERS_OGRETMEN.E07 AS Gun7, EKDERS_OGRETMEN.E08 AS Gun8, EKDERS_OGRETMEN.E09 AS Gun9, EKDERS_OGRETMEN.E10 AS Gun10, EKDERS_OGRETMEN.E11 AS Gun11, EKDERS_OGRETMEN.E12 AS Gun12, EKDERS_OGRETMEN.E13 AS Gun13, EKDERS_OGRETMEN.E14 AS Gun14, EKDERS_OGRETMEN.E15 AS Gun15, EKDERS_OGRETMEN.E16 AS Gun16, EKDERS_OGRETMEN.E17 AS Gun17, EKDERS_OGRETMEN.E18 AS Gun18, EKDERS_OGRETMEN.E19 AS Gun19, EKDERS_OGRETMEN.E20 AS Gun20, EKDERS_OGRETMEN.E21 AS Gun21, EKDERS_OGRETMEN.E22 AS Gun22, EKDERS_OGRETMEN.E23 AS Gun23, EKDERS_OGRETMEN.E24 AS Gun24, EKDERS_OGRETMEN.E25 AS Gun25, EKDERS_OGRETMEN.E26 AS Gun26, EKDERS_OGRETMEN.E27 AS Gun27, EKDERS_OGRETMEN.E28 AS Gun28, EKDERS_OGRETMEN.E29 AS Gun29, EKDERS_OGRETMEN.E30 AS Gun30, EKDERS_OGRETMEN.E31 AS Gun31" & _
   "  FROM EKDERS_OGRETMEN;" & IIf(strWhere <> "", "Where " & strWhere, Null)
    Set SrgYap = CurrentDb.CreateQueryDef("KBS_EKDERS_AKTAR", SqlA)
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "KBS_EKDERS_AKTAR", DosyaAdi & "\" & YIL & " Yılı" & AY & " Ayı " & isim & ".xls", True
    DoCmd.DeleteObject acQuery, "KBS_EKDERS_AKTAR"
    If MsgBox("Acmak Istermisiniz", vbYesNo, "EXCEL DOSYASI") = vbYes Then Application.FollowHyperlink DosyaAdi & "\" & YIL & " Yılı" & AY & " Ayı " & isim & ".xls", , True, True
End Sub