以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么不能一次导出保存？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29918)
--  作者：cqlpjks
--  发布时间：2013/3/16 15:21:00
--  [求助]怎么不能一次导出保存？

在点击导出按钮时怎么不能一次导出保存，有几个表就要保存几次？请指教，谢谢!

导出按钮代码：

Dim Values() As String = {"总分","语文","数学","综合"}
For Each Value As String In Values
    If  Value <> "成绩库" And Value <> "校名设置" Then
        Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
        dlg.Filter= "Excel文件|*.xls" \'设置筛选器
        If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
            Tables(value & "分班").SaveExcel(dlg.FileName,value & "分班") \'保存文件

        End If
    End If
Next
--  作者：cqlpjks
--  发布时间：2013/3/16 16:01:00
--  

谢谢!示例：

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:复件 小学期末成绩统计程序.rar
--  作者：cqlpjks
--  发布时间：2013/3/16 16:16:00
--  
分班统计出来有4个表，想点击“导出”就能一次导出(原格式)。
--  作者：cqlpjks
--  发布时间：2013/3/16 17:19:00
--  

谢谢！但这样导出是4个文件，我是想将4个表导出为自定义文件名的1个文件。导出结果应为(我按原导出按钮点4下导出的结果)：

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:2012年秋小学2014级分班统计表.xls

[此贴子已经被作者于2013-3-16 17:27:43编辑过]
--  作者：cqlpjks
--  发布时间：2013/3/16 17:41:00
--  
这个代码：

Dim Values() As String = {"总分","语文","数学","综合"}
For Each Value As String In Values
    If  Value <> "成绩库" And Value <> "校名设置" Then
        Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
        dlg.Filter= "Excel文件|*.xls" \'设置筛选器
        If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
            Tables(value & "分班").SaveExcel(dlg.FileName,value & "分班") \'保存文件

        End If
    End If
Next

能合并到一个文件中，只不过有几个表就要选择几次导出位置和文件名。实际就是菜单中的“导出Excel文件”功能。
[此贴子已经被作者于2013-3-16 17:43:37编辑过]
--  作者：cqlpjks
--  发布时间：2013/3/17 11:32:00
--  

搞定。谢谢!代码顺序发生了变化。