以文本方式查看主题

-  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=25314)
--  作者：老有所乐
--  发布时间：2012/11/6 15:15:00
--  导出提示
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog 
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
     Tables("订单").SaveExcel(dlg.FileName, "订单")  \'保存文件
End If

用上面代码导出Excel 结束后，能否给出一个提示，文件保存在什么路径
--  作者：lin_hailun
--  发布时间：2012/11/6 15:28:00
--  
 可以提示，加一句代码就行。

 msgbox(dlg.FileName)
--  作者：老有所乐
--  发布时间：2012/11/6 15:32:00
--  
谢谢！