vbasicle excele çizgi çizdirmek

[sahure]

Selam,
vbasic 6.0 la yazdığım bir programım var datalarıda access de tutuyorum.
vbasicle tüm verileri excele aktarıyorum, herşey tamam merge işlemini de yaptırıyorum fakat verilerin aktarıldığı excel tablonun çizgilerini vbasicle çizdiremiyorum. Bu konuda yardımcı olurmusunuz.

 

[sahure]

Problemimi çözdüm sizinle paylaşmak istedim.vbasic koduna bunu yazdığınızda tablonun çizgilerini çiziyor

Const xlContinuous = 1
Const xlThick = 2
Set myexcel = CreateObject("Excel.Application")
myexcel.Range(("a" & 10), ("k" & sonsıra)).Borders.LineStyle = xlContinuous
myexcel.Range(("a" & 10), ("k" & sonsıra)).Borders.Color = RGB(0, 0, 0)
myexcel.Range(("a" & 10), ("k" & sonsıra)).Borders.Weight = xlThick