sayın estapan,

Alıntı:excel dosyasının adının yazılarak değilde seçerek aktarılmasını istiyorum. Çünkü Excel dosya isimleri değişken olacak. Acaba kodları bu şekilde yazmanız mümkünmü.

ifadenize yönelik olarak;

öncelikle,
eğer referanslarınızda (ALT + F11 tuşları ile kod sayfasına geçiniz ve üst menüden TOOLS - REFERENCES ifadesini seçiniz) Microsoft Office XX.X Object Library işaretli değilse bunu işaretleyiniz.

ardından,

  Dim dialog As FileDialog

  Dim filePath As String

  Dim fileName As String





  Set dialog = Application.FileDialog(msoFileDialogFilePicker)





  With dialog

    .AllowMultiSelect = False

    .Show

    filePath = .SelectedItems.Item(1)

    fileName = Right$(filePath, Len(filePath) - InStrRev(filePath, "\")) 

    

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE * FROM Stok_Yeni"

DoCmd.SetWarnings True





DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Stok_Yeni", fileName, True, "A1:M65000"





  End With

yukarıda yazılı kodları kullanmak sureti ile deneyiniz.

bilginize...iyi çalışmalar,saygılar.