以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  提示问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27579)

--  作者：老有所乐 --  发布时间：2013/1/5 8:44:00 --  提示问题 下面代码是一个导出Xls 按钮，导出正常，会提示“导出结束”，但是如果在导出过程中，当出现导出“另存为”窗口时，不想将导出文件存放此路径，在窗口文件名框中没有输入文件名时，点击“另存为”窗口中的“取消”按钮，还是提示“导出结束”，我想在此应该出现“已取消导出”的提示，代码应该如何修改。谢谢！ Dim i As  String = e.Form.Controls("comboBox3").value \'定义i变量存储表名 If i =""    MessageBox.Show("请输入要导出的表名!", "提示")     Return  End If Tables( i ).Cols("A").Visible = False  \'隐藏表名等于combobox3组合框表的A列(逻辑列)   Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog  dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮      Tables( i ).SaveExcel(dlg.FileName, i)  \'保存文件 End If MessageBox.Show("导出结束!", "提示") \'下面代码是打开刚导出的文件  msgbox(dlg.FileName) [此贴子已经被作者于2013-1-5 8:46:05编辑过]

--  作者：lin_hailun --  发布时间：2013/1/5 8:55:00 --    这样。 Dim i As  String = e.Form.Controls("comboBox3").value \'定义i变量存储表名 If i = "" Then     MessageBox.Show("请输入要导出的表名!", "提示")     Return End If Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮     Tables( i ).Cols("A").Visible = False  \'隐藏表名等于combobox3组合框表的A列(逻辑列)     Tables( i ).SaveExcel(dlg.FileName, i)  \'保存文件     MessageBox.Show("导出结束!", "提示")     \'下面代码是打开刚导出的文件     msgbox(dlg.FileName) End If

--  作者：老有所乐 --  发布时间：2013/1/5 11:37:00 --   谢谢林总！