örneğini hazırladım.
şablonunu ve kodları istediğin gibi düzenleyebilirsin. kodlar anlaşılacak seviyede basit.
İyiki Varsın Access
With ExcelDosyasi
...
End With
With ExcelDosyasi
.Columns("A").EntireColumn.ColumnWidth = 1
' Bold İşlemleri
.Range(.Cells(SatirNo1 + 1, 2).Address, .Cells(SatirNo1 + 1, 9).Address).Select
.Selection.Font.Bold = True
' Çerçeve ve Ortalama İşlemleri
.Range(.Cells(SatirNo1, 2).Address, .Cells(SatirNo1 + 1, 9).Address).Select
.Selection.HorizontalAlignment = xlCenter
.Range("A1").Select
End With
(27/01/2010, 17:04)Seruz yazdı: Bir örnek de ben yapmıştım, eklerken baktım Nurullah_Serdar'da bir örnek eklemiş.
Benimki de boşa gitmesin diye benimkini de ekliyorum.
Şanslı bir üyemizsiniz, 2 farklı örneğiniz birden oldu.
Uyarayım, Referanslarla ilgili sorun çıkabilir,
ben "Microsoft Excel 10.0 Object Library" library kullandım.
Kod pencersinde Tools-Reference kısmında bu ismin karşısında missing yazıyorsa onu kaldırıp,
sizde uygun olan "Microsoft Excel ? Object Library" yi eklemelisiniz.
Ayrıca yine aynı şekilde "Microsoft ActiveX Data Object 2.6 Library" kullandım.
Onda da hata varsa, aynı şekilde onu kaldırıp sizde hangisi varsa onu ekleyin.