| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 730 人关注过本帖
标题:请教高手啊,一天了都没想出解决办法
只看楼主 加入收藏
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
不用累计,所有数据导入完成后,直接加边框就很省事:
*****导入数据
*myeole=CREATEOBJECT("Excel.application")
WITH myeole
*    .Workbooks.Open(GETFILE("xls"))
****加边框
    .ActiveSheet.UsedRange.Cells.select
    .selection.borders.lineStyle = 1
*    .ActiveWorkbook.close(.T.)
 ENDWITH

相互学习,互相交流,共同提高。
2013-12-20 22:24
iamhyf
Rank: 1
等 级:新手上路
帖 子:69
专家分:2
注 册:2010-1-5
收藏
得分:0 

UsedRange.Cells.Borders
这个真是头一次知道啊,学习了,多谢!!!
2013-12-20 22:35
快速回复:请教高手啊,一天了都没想出解决办法
数据加载中...
 
   



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

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