加好友 发短信
等级:狐仙
帖子:9875
积分:57590
威望: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()
|
|