sn Oğulcan92
hızlı dönüşünüz için teşekkürler ama
yönlendirdiğiniz sayfada aradığım cevabı bulamadım.
select * from mutluluk,
Dim Klasor As String
Klasor = CurrentProject.Path & "\deneme.xls"
DoCmd.TransferSpreadsheet acImport, 8, "Tablo1", Klasor, True, "b1:d65000"
DoCmd.SetWarnings False