(19/12/2019, 15:29)ozanakkaya yazdı: Butonun tıklandığında olayına aşağıdaki kodu ekleyerek deneyiniz.

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.

hocam işte bu 
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