- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教表格线 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92363)
-- 发布时间：2016/11/1 21:59:00
-- 请教表格线
大师：请问如何将帮助中的下列代码修改为导出后的表格线为例子的样色？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:book1.zip |
-- 发布时间：2016/11/1 21:59:00
--
Dim Book As New XLS.Book() \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim Style As XLS.Style
= Book.NewStyle() \'定义新样式
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom =
XLS.LineStyleEnum.Thin
Style.BorderLeft =
XLS.LineStyleEnum.Thin
Style.BorderRight =
XLS.LineStyleEnum.Thin
Style.BorderColorTop =
Color.Red
Style.BorderColorBottom = Color.Red
Style.BorderColorLeft =
Color.Red
Style.BorderColorRight = Color.Red
For r As
Integer = 1
to
5
For c As
Integer =1
To
5
Sheet(r,c).Style = Style
Next
Next
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
-- 发布时间：2016/11/1 22:23:00
--
-- 发布时间：2016/11/1 22:28:00
--
谢谢！请问用以上方法与excelvba哪个效率高？
-- 发布时间：2016/11/1 22:48:00
--
没有实现呀，中间的虚线没有？
-- 发布时间：2016/11/1 22:57:00
--
没有做过测试，我猜是vba效率高点
-- 发布时间：2016/11/2 8:36:00
--
没有实现呀，中间的虚线没有？
建议直接用vba来做吧，通过excel的录制宏功能，得到一段代码，再改写到foxtable里面，就编写代码而言，效率高很多。
http://www.foxtable.com/webhelp/scr/2121.htm