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
Excel Dosyası Oluşturma
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.
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.
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
Descartes
Descartes
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..
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.
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
Descartes
Descartes
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.
Konuyu Okuyanlar: 1 Ziyaretçi