老大,帮我看看,这个怎么不起作用? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老大,帮我看看,这个怎么不起作用?

共有7421人关注过本帖树形打印复制链接主题：老大,帮我看看,这个怎么不起作用?

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

老大,帮我看看,这个怎么不起作用? 发帖心情

Post By：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()