在VBA中，如何修改保存EXCEL对话框中的文件名？

各位大侠！
小弟在编EXCEL的VBA中，在执行下句后，
OpenTxtMessage = Application.Dialogs(xlDialogSaveAs).Show
遇到这个问题，如何在程序中修改保存对话框中的文件名？
请大家帮忙！

就这么写就行了：

OpenTxtMessage = Application.Dialogs(xlDialogSaveAs).Show("aaa.txt")

如果想了解更详细的，请看微软的参考手册：
object.SaveAs 文件名, fileFormat、 密码、 writeResPassword、 readOnlyRecommended, createBackup)

dim fn as string fn = application.getsaveasfilename thisworkbook.saveas fn