以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导出excel后自动打开该excel  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118670)
--  作者：蓝蚂蚁
--  发布时间：2018/5/8 16:26:00
--  导出excel后自动打开该excel
窗口中有一按钮，其代码如下：
Dim str1 As String=e.Form.Controls("TextBox1").text
Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("窗口1_Table1").SaveExcel("报表\\"& str1 &"【报表】.xls","用量",flg)   
上面的代码导出excel后，如果马上打开这个excel报表，不胜感激！
--  作者：有点甜
--  发布时间：2018/5/8 16:44:00
--  

1、saveExcel的路径不正确吧？

 

2、参考代码

 

Dim str1 As String=e.Form.Controls("TextBox1").text
Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Dim file As String = projectpath & "报表\\" & str1 & "【报表】.xls"
Tables("窗口1_Table1").SaveExcel(file,"用量",flg) 
Dim proc As new Process
proc.file = file
proc.Start

--  作者：蓝蚂蚁
--  发布时间：2018/5/8 16:50:00
--  
大神，收下我的膝盖！