(19/12/2019, 23:32)berduş yazdı: kodu aşağıdaki gibi düzenler misiniz?Tamamdır Hocam Teşekkür ederim
Dim xlApp As Excel.Application
Dim xlSh As Excel.Worksheet
Dim objWkb As Excel.Workbook
Set xlApp = New Excel.Application
xlApp.Visible = True
Set objWkb = xlApp.Workbooks.Add
With xlApp.Sheets(1)
Set Rng = .Range("C5" & Me.Liste5.ListCount + 4)
End With
Rng.Borders.Weight = 2 'ara çizgilerin kalınlığı
Rng.BorderAround Weight:=3 'Çerçeve kalınlığı
For I = 0 To Me.Liste5.ListCount - 1
xlApp.Sheets(1).Cells(I + 5, 3).Value = Me.Liste5.Column(1, I)
xlApp.Sheets(1).Cells(I + 5, 4).Value = Me.Liste5.Column(2, I)
xlApp.Sheets(1).Cells(I + 5, 5).Value = Me.Liste5.Column(3, I)
Next I
Rng.Columns.AutoFit
Access İle Excel Hücresi Biçimlendirme
Konuyu Okuyanlar: 1 Ziyaretçi
