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

原代码

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

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

即达到如下效果

 

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