| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 563 人关注过本帖
标题:请教:我在程序打开excel并通过程序画上框架线加上这段程序后,第一次查询可 ...
只看楼主 加入收藏
yong_mei123
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-5-25
收藏
 问题点数:0 回复次数:4 
请教:我在程序打开excel并通过程序画上框架线加上这段程序后,第一次查询可以。但
我在程序打开excel并通过程序画上框架线加上这段程序后,第一次查询可以。但是再继续查询就只执行cont = Adodc1.Recordset.RecordCount
Range(xlsheet.Cells(2, 1), xlsheet.Cells(cont + 2, 6)).Select
下面的就不执行了,只有关闭该程序后再运行才能执行?谢谢各位!
cont = Adodc1.Recordset.RecordCount
Range(xlsheet.Cells(2, 1), xlsheet.Cells(cont + 2, 6)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With



搜索更多相关主题的帖子: excel 框架 查询 
2007-09-07 10:37
yong_mei123
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-5-25
收藏
得分:0 

各位请帮忙

2007-09-07 14:06
yong_mei123
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-5-25
收藏
得分:0 
Range(xlsheet.Cells(2, 1), xlsheet.Cells(cont + 2, 6)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
我段点执行执行第一句Range(xlsheet.Cells(2, 1), xlsheet.Cells(cont + 2, 6)).Select
把Range(xlsheet.Cells(2, 1), xlsheet.Cells(cont + 2, 6)).Select 注释掉就只执行下面的第一句Selection.Borders(xlDiagonalDown).LineStyle = xlNone
把这个再注释掉,还是执行下面的第一句?
2007-09-07 14:45
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
自己想想为什么没有人来帮你
2007-09-07 17:33
yong_mei123
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-5-25
收藏
得分:0 
自己想想为什么没有人来帮你

楼上的什么意思?我不明白,请指教。
我第一次近此论坛,不知道那么多讲究
我进了无数个论坛从来没遇到这样的呢,我以为你们人气低呢,原来不是如此啊?
2007-09-10 11:13
快速回复:请教:我在程序打开excel并通过程序画上框架线加上这段程序后,第一次 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023216 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved