Dim fl As String = ProjectPath & "Reports\统计表" & Format(Date.now,"yyyy-MMdd-HHmm" ) & ".xls" Dim flg As New SaveExcelFlags flg.RowNumber = True flg.CellStyle = True e.Form.controls("Table1").Table.SaveExcel(fl,"统计",flg) Dim Proc As New Process '打开工作簿 Proc.File = fl Proc.Start()
加好友 
发短信
Post By：2017/6/11 18:38:00 [只看该作者]
