sayın Şenol,

bahsettiğiniz talebinize yönelik olarak;
her ne kadar farklı alternatif yöntemler söz konusu olsa da,
ilk etapta bir fikir vermek amacı ile,aşağıdaki işlemleri uygulamayı deneyiniz.

1) 

SELECT [Tablo1].[Kimlik], [Tablo1].[ad], [Tablo1].[soyad], [Tablo1].[görev]

FROM Tablo1;

yukarıdaki kodları yeni bir sorgu oluşturacak şekilde kaydediniz.örneğin;Sorgu1 adı ile.

2)

Liste15 adlı listbox denetiminin ÖZELLİKLER - VERİ sekmesindeki SATIR KAYNAĞI satırını Sorgu1 olarak seçiniz.

3) kod sayfasına geçip üst menüden TOOLS - REFERENCES penceresinde Microsoft Excel XX.X Object Library referansını işaretleyiniz.

4)

Komut18 adlı butonun TIKLANDIĞINDA olay yordamı içerisine,

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Sorgu1", CurrentProject.Path & "\" & "listeden" & ".xls", True

yukarıdaki kod satırını yazınız.bu şekilde kullanmayı deneyiniz.

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