Excel Dosyası Oluşturma - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Excel Dosyası Oluşturma (/konu-excel-dosyasi-olusturma.html) Sayfalar:
1
2
|
Cvp: Excel Dosyası Oluşturma - siberonik - 11/08/2009 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 Cvp: Excel Dosyası Oluşturma - Bilgisayarcı - 11/08/2009 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. Cvp: Excel Dosyası Oluşturma - assenucler - 11/08/2009 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.. Cvp: Excel Dosyası Oluşturma - Bilgisayarcı - 11/08/2009 Şu anda bende de 2007 var. Kod çalışır durumda. Cvp: Excel Dosyası Oluşturma - assenucler - 11/08/2009 Sağolun.. Cvp: Excel Dosyası Oluşturma - siberonik - 12/08/2009 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. |