(19/12/2019, 15:29)ozanakkaya yazdı: Butonun tıklandığında olayına aşağıdaki kodu ekleyerek deneyiniz.hocam işte bu
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("B2:H15")
End With
Rng.Borders.Weight = 2
With Rng.Borders(7)
.LineStyle = 1
.ColorIndex = 0
.TintAndShade = 0
.Weight = 3
End With
With Rng.Borders(8)
.LineStyle = 1
.ColorIndex = 0
.TintAndShade = 0
.Weight = 3
End With
With Rng.Borders(9)
.LineStyle = 1
.ColorIndex = 0
.TintAndShade = 0
.Weight = 3
End With
With Rng.Borders(10)
.LineStyle = 1
.ColorIndex = 0
.TintAndShade = 0
.Weight = 3
End With
Referanslara Excel referansını eklemeyi unutmayın.
Ayrıca, lütfen konularınızı Site Kurallarına uygun olarak açınız.
ama liste kutusundaki verileri nasıl aktarıcam
sitede sadece sorgu olarak vermiş ben sorgu olsun istemiyorum sadece liste kutusunun rowsource sini aktarsın istiyorum