Sayın DSezgin projedeki tabloyu Excele aktardım. Fakat aktaracağım bilgi tablodan değil de sorgudan olursa problem çıkardı. Ekteki dosyanın formumdaki "excele gönder" butonuna bastığımda (veriler sorgudan geldiği için) aktarım gerçekleşemiyor. İlgili dosya ektedir.

diğer bir yol

Dim doc As String
doc = "girisler_sorgu"
DoCmd.OutputTo acOutputQuery, doc, acFormatXLSX, CurrentProject.Path & "\girisler.xlsx", True

Sn Hüsün03 yazdığınız kod çalışıyor, ancak sorguyu aktarma yaparken Excel sayfasının başına yazdırmak istediğim (1.satırına "giriş bilgileri", 3.satırına "tablonuz aşağıdadır" gibi) sabit verileri yazdıramıyorum. DSezgin in kodunda tabloyu aktarırken excel sayfasının 1.satırına "giriş bilgileri", 3.satırına "tablonuz aşağıdadır" ibarelerini yazdırıp ve akabinde tabloyu bu ibarelerin altına yazdırabildim. Bu durumu sorgu için nasıl yapabilirim?

Kayit.Open "select * from girisler Where (((bilgisayar_adi)='" & Me.Metin8 & "'))", Cu.....

Koyu olan yeri prosedur icinde degistirin..