| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 导出EXCEL (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115062) |
| -- 作者：zoyong -- 发布时间：2018/2/28 14:58:00 -- 导出EXCEL 代码可用，但是只能导出一行数据 我想在窗口上能看见的订单全部导出,求大神帮忙 Dim Book As New XLS.Book(ProjectPath & "Attachments\\民泰流水导出到007.xls") \'打开模板 Dim fl As String = ProjectPath & "Reports\\民泰流水导出到007.xls" Dim Sheet As XLS.Sheet = Book.Sheets(0) Book.Build() \'生成报表 Book.Save(fl) Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then Book.Save(dlg.FileName) Dim Proc As New Process Proc.File = dlg.FileName Proc.Start() End If |
| -- 作者：zoyong -- 发布时间：2018/2/28 15:05:00 -- 已搞定 是模板设置问题 |