ole控制excel，如何给选定区域的单元格加上边框？？？在线等待？急急

dzy983 2003-11-04 11:19:13

ole控制excel,如何给选定区域的单元格加上边框,就是区域边上有框线？？？在线等待？急急

...全文

233 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

dzy983 2003-11-06

打赏
举报

程序应该怎么写啊！

juwuyi 2003-11-06

打赏
举报

runsoft 2003-11-06

打赏
举报

integer xlCenter = -4108
integer xlUnderlineStyleSingle = 2

integer xlLeft = -4131
integer xlEdgeTop = 8
integer xlEdgeBottom = 9

integer xlEdgeRight = 10
integer xlEdgeLeft = 7
integer xlContinuous = 1
integer xlThin = 2
integer xlAutomatic = -4105

////Function : of_draw_edge
//
////画边框
ole_object.Application.WorkSheets(1).Range(ls_range).Borders(xledgeleft).LineStyle = xlContinuous
ole_object.Application.WorkSheets(1).Range(ls_range).Borders(xledgeleft).Weight = xlThin
ole_object.Application.WorkSheets(1).Range(ls_range).Borders(xledgeleft).ColorIndex = xlAutomatic

ole_object.Application.WorkSheets(1).Range(ls_range).Borders(xledgeright).LineStyle = xlContinuous
ole_object.Application.WorkSheets(1).Range(ls_range).Borders(xledgeright).Weight = xlThin
ole_object.Application.WorkSheets(1).Range(ls_range).Borders(xledgeright).ColorIndex = xlAutomatic

ole_object.Application.WorkSheets(1).Range(ls_range).Borders(xledgetop).LineStyle = xlContinuous
ole_object.Application.WorkSheets(1).Range(ls_range).Borders(xledgetop).Weight = xlThin
ole_object.Application.WorkSheets(1).Range(ls_range).Borders(xledgetop).ColorIndex = xlAutomatic

ole_object.Application.WorkSheets(1).Range(ls_range).Borders(xledgebottom).LineStyle = xlContinuous
ole_object.Application.WorkSheets(1).Range(ls_range).Borders(xledgebottom).Weight = xlThin
ole_object.Application.WorkSheets(1).Range(ls_range).Borders(xledgebottom).ColorIndex = xlAutomatic

dzy983 2003-11-04