各位：
请问Excel报表生成后，可以按照分页格式，生产单独的sheet吗？ 即1页一个sheet，并制定列名为sheet名？
有人帮我改改吗？
Dim dlg As New SaveFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Application.DoEvents()
Dim Book As New XLS.Book(ProjectPath & "Attachments\日文订单.xls")
Dim fl As String = dlg.FileName
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,9).Value = "<" & Tables("模具订单").Filter & ">" '写入打印条件
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Result As DialogResult
Result = MessageBox.Show("文件已生成,是否打印并预览!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit
End If
End If
加好友 
发短信
Post By：2017/9/6 10:44:00 [显示全部帖子]
