Butona tıkladığınızda ilgili Excel dosyasını seçmek üzere yeni bir pencere alışması gerekiyor. Bende sorunsuz çalışıyor. Excel dosyasını seçmeden çıktığınızda o uyarıyı almanız gerekiyor.  Kodu aşağıdaki şekilde değiştirirmisiniz.

Private Sub Komut0_Click()
On Error GoTo Err_Komut0_Click
Dim Klasor As String
Klasor = GetOpenFile_CLT("D:\", "Aktarılacak Excel dosyasını seç" & ".xlsx" & ".xls")

DoCmd.TransferSpreadsheet acImport, 8, "tblogrenci", Klasor, True, "a1:d1000000", 0

MsgBox "Aktarım Gerçekleşmiştir.", vbInformation, "Accesstr.net"

Exit_btn_aktar_Click:
Exit Sub

Err_Komut0_Click:
MsgBox "İlgili Excel dosyasını seçmediniz.", vbInformation, "Accesstr.net"

End Sub