标题：如何在这样的代码中加入打开文件对话框

原代码

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

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

即达到如下效果

 

此主题相关图片如下：qq截图20110428104148.png

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

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

 

就是套不出来,才请教的,麻烦根据我的代码给我改写一个代码(应该用SaveFileDialog 保存文件对话框)

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

狐爸请帮给个代码,我整了半天出没整出来呀

4楼不是吗？

我希望能在保存的时候能设置一个默认的文件名,4楼的代码需要自己写文件名

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