以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在这样的代码中加入打开文件对话框  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9627)
--  作者：红叶
--  发布时间：2011/4/28 10:42:00
--  如何在这样的代码中加入打开文件对话框

原代码

With Tables("产品设置")
     .SaveExcel("D:\\产品设置.xls","产品设置")
End With

如何在.SaveExcel("D:\\产品设置.xls","产品设置")中加入打开文件对话框由用户选择文件的存放位置,也是替换D:\\(但是要有默认文件名和文件名筛选器Excel文件|*.xls)

即达到如下效果


 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20110428104148.png
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2011/4/28 10:45:00
--  

可以的，你可以看看这个：

http://help.foxtable.com/topics/0329.htm

 
--  作者：红叶
--  发布时间：2011/4/28 10:49:00
--  
就是套不出来,才请教的,麻烦根据我的代码给我改写一个代码(应该用SaveFileDialog 保存文件对话框)
[此贴子已经被作者于2011-4-28 10:51:52编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/4/28 11:05:00
--  
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Table文件|*.Table" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    With Tables("产品设置")
           .SaveExcel(dlg.FileName,"产品设置")
     End With
End If
--  作者：红叶
--  发布时间：2011/4/28 11:16:00
--  
狐爸请帮给个代码,我整了半天出没整出来呀
--  作者：狐狸爸爸
--  发布时间：2011/4/28 11:18:00
--  
4楼不是吗？
--  作者：红叶
--  发布时间：2011/4/28 11:37:00
--  
我希望能在保存的时候能设置一个默认的文件名,4楼的代码需要自己写文件名
--  作者：狐狸爸爸
--  发布时间：2011/4/28 11:44:00
--  
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Table文件|*.Table" \'设置筛选器
dlg.FileName = "c:\\abc.table"
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    With Tables("产品设置")
        .SaveExcel(dlg.FileName,"产品设置")
    End With
End If