ben sorgudaki verileri Excel'e aktarıyorum. sorguda veri varsa problem yok masaüstüne istediğim dosya adında excele atıyor. Ama veri yoksa boş bir dosya atıyor. boş dosya derken sütun başlıkları mevcut.

excel'e attığım;
On Error GoTo Err_aktar

Dim Klasor As String
Klasor = CurrentProject.Path & "\ExcelDosyasıAdı.xls"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "ExcelDosyasıAdı.xls 'ye aktarılacak") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "Tablo/SorguAdı", Klasor, True, ""
MsgBox "Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"

Exit_aktar:
Exit Sub

Err_aktar:
MsgBox Error$
Resume Exit_aktar

End If