AccessTr.neT
Access İle Excel Hücresi Biçimlendirme - 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ığı: Access İle Excel Hücresi Biçimlendirme (/konu-access-ile-excel-hucresi-bicimlendirme.html)

Sayfalar: 1 2 3


Cvp: Access İle Excel Hücresi Biçimlendirme - zaferlacin - 19/12/2019

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


Cvp: Access İle Excel Hücresi Biçimlendirme - berduş - 19/12/2019

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("C5Lol" & 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



Cvp: Access İle Excel Hücresi Biçimlendirme - zaferlacin - 19/12/2019

(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("C5Lol" & 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


Cvp: Access İle Excel Hücresi Biçimlendirme - berduş - 19/12/2019

iyi çalışmalar)