Haklısınız sanırım tam anlatamadım. Aslında devamına gerek yok ama ben size yine de kodun bir bölümünü göndereyim

-------------------------------------------------------------------

Dim DTB As DAO.Database
Dim RST1 As DAO.Recordset
Dim objExcel As Object
Dim objWorkbook As Object
Dim KaySayRST1, i As Integer

Set DTB = CurrentDb
Set RST1 = DTB.OpenRecordset("Policeler_GunlukUretimTakibi_Filtre_TMP")
Set objExcel = CreateObject("EXCEL.APPLICATION")
objExcel.Visible = True

Bu kısımda Excel dosyasını açmadan önce bir dosya oluşturmam gerekiyor. Alttaki dosya ismi kafanızı karıştırmasın.

Set objWorkbook = objExcel.Workbooks.Open("C:\test.xls")

If Not RST1.EOF Then RST1.MoveLast
KaySayRST1 = RST1.RecordCount
If Not RST1.EOF Then RST1.MoveFirst

objExcel.Cells(2, 2).Value = "Tür"
objExcel.Cells(2, 3).Value = "Şirket"
objExcel.Cells(2, 4).Value = "Üst Acente"
objExcel.Cells(2, 5).Value = "Tali"
objExcel.Cells(2, 6).Value = "Tanzim"
objExcel.Cells(2, 7).Value = "Başlama"
objExcel.Cells(2, 8).Value = "Poliçe No"
objExcel.Cells(2, 9).Value = "Sigortalı"
objExcel.Cells(2, 10).Value = "Brüt"
objExcel.Cells(2, 11).Value = "Onaylayan"

For i = 1 To KaySayRST1
If RST1!Kullanici = CurrentUser() Then
objExcel.Cells(i + 2, 2).Value = RST1!PoliceTur
objExcel.Cells(i + 2, 3).Value = RST1!PoliceSirket
objExcel.Cells(i + 2, 4).Value = RST1!UstAcente
objExcel.Cells(i + 2, 5).Value = RST1!Unvani
objExcel.Cells(i + 2, 6).Value = RST1!TanzimTarihi
objExcel.Cells(i + 2, 7).Value = RST1!BaslamaTarihi
objExcel.Cells(i + 2, 8).Value = RST1!PoliceNo
objExcel.Cells(i + 2, 9).Value = RST1!Sigortali_
objExcel.Cells(i + 2, 10).Value = RST1!BrutPrim
objExcel.Cells(i + 2, 11).Value = RST1!PersonelAdiSoyadi
End If
RST1.MoveNext
Next

Böyle bir şey bekliyordum
Zaten var olan bir tabloyu olduğu gibi excele göndermek.
DoCmd.OutputTo acOutputTable, "Policeler_GunlukUretimTakibi_Filtre_TMP", acFormatXLS, "c:\Test.xls", False

Sondaki False aktaımdan sonra dosyayı açıp açmamak hakkında true derseniz aktarımdan sonra açar.

Direk table olduğu acoutputtable dedim, eğer bir sorguysa acoutputquery.

Yukarıdaki kodla dosyayı belirlediğiniz bir yere direkt olarak atabilirsiniz. Sonra onu açmayı ve düzenlemeyi zaten biliyorsunuz.

Bu yöntem sanırım daha kolayınıza gelecektir.

Sayın Bilgisayarcı;

Merhaba..

Sizden bir şey öğrenmek istiyorum. Office 2007 kullanıyorum. Excel 2007 için kodlarda nasıl bir değişiklik yapmak gerekiyor?

Yardımınız için teşekkür..

Şu anda bende de 2007 var. Kod çalışır durumda.

Sağolun..

Tam olarak istediğim bu değil di ama sorun değil verdiğiniz kod satırı ile de işimi hallettim ve kodumun tamama gayet düzgün bir şekilde çalışıyor. Yardımlarınız için teşekkür ederim.