AccessTr.neT

Hocam örneğimi inceleyebilir misiniz ?
 excele aktar da neyi yanlış yapıyorum ?
Teşekkür ederim

kodu aşağıdaki gibi düzenler misiniz?

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

(19/12/2019, 23:32)berduş yazdı: [ -> ]kodu aşağıdaki gibi düzenler misiniz?

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

Tamamdır Hocam Teşekkür ederim

iyi çalışmalar)