pb 导出excel问题
我现在是想用户在导出excel数据过程中，禁止用户用鼠标对生成的excel单元格的单击和双击事件，大侠帮帮忙啊
急用啊 因为生成excel数据时，若用户单双击任一单元格，则该单元格处于选中状态
那我下面的单元格属性程序就会报错：
for ii = 1 to 10
ole_object.Cells(start + ll_row,ii).HorizontalAlignment = -4131
ole_object.cells(start + ll_row,ii).Borders(1).LineStyle = 1
ole_object.cells(start + ll_row,ii).Borders(2).LineStyle = 1
ole_object.cells(start + ll_row,ii).Borders(3).LineStyle = 1
ole_object.cells(start + ll_row,ii).Borders(4).LineStyle = 1
next
错误提示如下：
Error accessing external object property linestyle
[解决办法]
呵呵，友情顶一下
[解决办法]
有段VB的,但是对EXCEL API都一样的吧
你试试
Application.EnableEvents = False '禁止触发事件
Set Rng = Range("a1:c5") '你需要的单元格区域
If Intersect(Target, Rng) Is Nothing Then '选择单元不在区内就退出
Application.EnableEvents = True '允许触发事件
[解决办法]
http://www.dzwebs.net/1292.html
锁定单元格
[解决办法]
如果是用对象可以先不显示
ole_object.Application.Visible =false
for ii = 1 to 10
ole_object.Cells(start + ll_row,ii).HorizontalAlignment = -4131
ole_object.cells(start + ll_row,ii).Borders(1).LineStyle = 1
ole_object.cells(start + ll_row,ii).Borders(2).LineStyle = 1
ole_object.cells(start + ll_row,ii).Borders(3).LineStyle = 1
ole_object.cells(start + ll_row,ii).Borders(4).LineStyle = 1
next
ole_object.Application.Visible =true
