Formdaki Açlılır Kutuda Seçime Göre Excel E Verme Adını Yazdırma

Aşağıdaki kod çalışıyor. Masa üstüne Gelir diye excele veriyor ama ben Masa üstüne exel adını Gelir işlem türündeki seçilen rapora göre yapmak istiyorum. yardımcı olursanız sevinirim.



Select Case MsgBox("Excele Aktarma İşlemi Yapılacak." _
                   & vbCrLf & "" _
                   & vbCrLf & "Devem Edilsin mi?" _
                   , vbYesNo Or vbExclamation Or vbDefaultButton1, "DİKKAT")

    Case vbYes
    Dim adres As String
    adres = Environ("userprofile") & "\Desktop\GiderExtre.xls"
    DoCmd.TransferSpreadsheet acExport, 8, "GiderExtre", adres, True, "GiderExtre"
    MsgBox "Aktarma İşlemi Masa Üstüne Gerçekleşti.", , "Tebrikler"
    Case vbNo

End Select

 adres = Environ("userprofile") & "\Desktop\GiderExtre.xls"
Burayı

 adres = Environ("userprofile") & "\Desktop\& gidertürüadı &.xls"
şeklinde deneyiniz.

üstad tşk ederim. Denedim Seçime göre aktarılacak ismi yazmıyor

Kodu aşağıdaki ile değiştirerek deneyiniz.

adres = Environ("userprofile") & "\Desktop\" & gidertürüadı & ".xls"