以文本方式查看主题

-  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=69551)
--  作者：wangyinming
--  发布时间：2015/6/7 7:59:00
--  [求助]Excel报表导出问题
请问各位报表导出时，是否可以自定义保存地址和文件名，帮助看了一下没有找到，请各位帮帮忙，看看？

Dim Book As New  XLS.Book(ProjectPath &  "Attachments\\报表1.xls")
Dim fl As  String = ProjectPath  &  "Reports\\报表1.xls"       （可以自定义保存地址和文件名吗？）
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,9).Value = "<" & Tables("检查").Filter & ">" \'写入打印条件
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process
Proc.File = fl
Proc.Start()

Syscmd.Table.ToggleSortAndFilter()
--  作者：y2287958
--  发布时间：2015/6/7 8:08:00
--  
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
……
--  作者：wangyinming
--  发布时间：2015/6/7 8:28:00
--  

添加后代码不对，请优化一下

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    
    Dim Book As New  XLS.Book(ProjectPath &  "Attachments\\报表1.xls")
    \'Tables("检查").SaveExcel(dlg.FileName, "检查")  \'保存文件
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Sheet(3,9).Value = "<" & Tables("检查").Filter & ">" \'写入打印条件
    Book.Build() \'生成细节区
    \'Book.Save(dlg) \'保存工作簿
    
    If MessageBox.Show("导出数据成功,是否打开数据?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
        
        \'Dim Proc As New Process
        \'Proc.File = dlg
        \'Proc.Start()
    Else
        Syscmd.Table.ToggleSortAndFilter()
        e.Form().Close
    End If
End If
--  作者：大红袍
--  发布时间：2015/6/7 9:11:00
--  
Dim dlg As New SaveFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim Book As New  XLS.Book(ProjectPath &  "Attachments\\报表1.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 Proc As New Process
    Proc.File = fl
    Proc.Start()
End If
--  作者：wangyinming
--  发布时间：2015/6/7 9:23:00
--  
谢谢！
上回让我使用excel模板，今天在学习了，谢谢！

下回在学习动态临时表