- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 老大,帮我看看,这个怎么不起作用? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18379)
-- 发布时间：2012/4/11 13:06:00
-- 老大,帮我看看,这个怎么不起作用?
Dim flg As New SaveExcelFlags
flg.RowNumber = False
flg.CellStyle = False
flg.MergedRanges = True
flg.VisibleOnly = True
Tables(e.Form.Name & "_Table1").SaveExcel(ProjectPath & "Reports\\统计报表.xls","统计报表",flg)
Dim Book As New XLS.Book(ProjectPath & "Reports\\统计报表.xls") \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets("统计报表") \'引用工作簿的第一个工作表
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style.AlignVert = XLS.AlignVertEnum.Center
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Dim Proc As New Process
Proc.File = ProjectPath & "Reports\\统计报表.xls"
Proc.Start()
-- 发布时间：2012/4/11 13:22:00
--
测试没有问题。
-- 发布时间：2012/4/11 13:53:00
--
此主题相关图片如下：未命名.jpg
不起作用
-- 发布时间：2012/4/11 15:12:00
--
你定义了Style，但是并没有将这个Style设置给某个行、某个列或者某个单元格啊。
-- 发布时间：2012/4/11 15:22:00
--
哦,明白了.