以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  表导出问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65974)
--  作者：HJG_HB950207
--  发布时间：2015/3/26 17:38:00
--  表导出问题
请教：用Syscmd.Project.ExportToExcel() 将表导出为电子表，并命名存盘后，能否加上些代码，使存盘后接着浏览后再返回菜单。
--  作者：有点甜
--  发布时间：2015/3/26 17:50:00
--  

 用下面的代码

 

Dim dlg As new SaveFileDialog
dlg.Filter = "Excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    CurrentTable.SaveExcel(dlg.FileName, CurrentTable.Name)
    Dim proc As new Process
    proc.File = dlg.FileName
    proc.Start
End If
--  作者：HJG_HB950207
--  发布时间：2015/3/26 17:53:00
--  
谢谢版主！！！