找回密码
 加入
搜索
查看: 2900|回复: 10

[效率算法] Excel表格制作问题?【已解决】

[复制链接]
发表于 2016-11-25 17:55:19 | 显示全部楼层 |阅读模式
本帖最后由 blue_dvd 于 2016-11-26 16:19 编辑
With $oExcel.ActiveSheet.Range("A2:I8")
        .Borders($xlEdgeTop).LineStyle = $xlContinuous             ;上边线
        .Borders($xlEdgeTop).ColorIndex = 12                     ;上边线颜色
        .Borders($xlEdgeBottom).LineStyle = $xlContinuous          ;下边线
        .Borders($xlEdgeBottom).ColorIndex = 32                  ;下边线颜色
        .Borders($xlEdgeLeft).LineStyle = $xlContinuous            ;左边线
        .Borders($xlEdgeLeft).ColorIndex = 6                     ;左边线颜色
        .Borders($xlEdgeRight).LineStyle = $xlContinuous           ;右边线
        .Borders($xlEdgeRight).ColorIndex = 45                     ;右边线颜色
                .Borders($xlInsideHorizontal).LineStyle = $xlContinuous    ;内横线
        .Borders($xlInsideHorizontal).ColorIndex = 3               ;内横线颜色
                .Borders($xlInsideVertical).LineStyle = $xlContinuous      ;内竖线
        .Borders($xlInsideVertical).ColorIndex = 4                 ;内竖线颜色
EndWith
设置时出现变量未声明错误,请问如何调用Excel中的这些变量?谢谢
kevinch大哥有空过来帮忙看下!
发表于 2016-11-25 21:29:22 | 显示全部楼层
回复 1# blue_dvd

請直接 填上 值

可 網上搜尋 xlContinuous VBA  值

會有相關資料...............
发表于 2016-11-26 14:31:03 | 显示全部楼层
在excel里按alt+f11,打开vbe编辑器,再按ctrl+g打开立即窗口,在立即窗口里输入?和要查询的常量名回车,即可显示对应的数值,例如:
?xlEdgeLeft
7

评分

参与人数 1金钱 +16 收起 理由
blue_dvd + 16

查看全部评分

发表于 2016-11-26 14:32:18 | 显示全部楼层
你需要把你程序中引用的常量名全部替换为对应的数值,除非你声明并赋值了对应常量
 楼主| 发表于 2016-11-26 16:18:39 | 显示全部楼层
回复 3# kevinch

多谢了,终于明白了!
发表于 2016-11-26 19:00:53 | 显示全部楼层
导出加上Excel表格,如果数据多导出速度会很慢
 楼主| 发表于 2016-11-27 11:27:17 | 显示全部楼层
回复 6# chzj589

有无快速方法?
发表于 2016-11-27 11:33:22 | 显示全部楼层
回复  chzj589

有无快速方法?
blue_dvd 发表于 2016-11-27 11:27

以前我也喜欢加上Excel表格,但如果有几千条数据导出的话,会慢很多。
找不到方法,只好放弃,不用表格了。
其实在Excel编辑表格是很简单的
发表于 2016-11-30 01:44:46 | 显示全部楼层
回复 7# blue_dvd


    我们不是在数据库里kk提供的驱动吗?直接粘贴数组很快的!
 楼主| 发表于 2016-11-30 12:24:05 | 显示全部楼层
回复 9# heroxianf

哪里?可以详细些吗?
发表于 2016-11-30 12:41:45 | 显示全部楼层
回复 10# blue_dvd

传送门 自己研究一下吧。
http://www.autoitx.com/thread-53866-1-1.html
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 17:13 , Processed in 0.085577 second(s), 27 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表