以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教怎么写 导出xls并自动打开对应文件？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125103)
--  作者：wakai
--  发布时间：2018/9/19 22:31:00
--  请教怎么写 导出xls并自动打开对应文件？
请教老师，导出保存某文件后，自动打开
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
    dlg.Filter= "Excel文件|*.xls" \'设置筛选器
    dlg.FileName = e.Sender.Form.Name & format(Date.today, "yyyyMMdd") & ".xls"
--  作者：有点甜
--  发布时间：2018/9/19 22:40:00
--  

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
dlg.FileName = format(Date.today, "yyyyMMdd") & ".xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim t As Table = Tables("表A")
    t.SaveExcel(dlg.FileName, "abc")
    Dim proc As new Process
    proc.File = dlg.FileName
    proc.Start
End If

 
--  作者：wakai
--  发布时间：2018/9/19 22:50:00
--  
可以了谢谢甜老师