如何用另存为对话框保存一指定文件

另存为 和 打开文件一样，对话框只是一个界面，利用这个可视化界面返回一些值（路径，文件名等）
再另写程序保存
xlbook.saveas .....

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("D:\A.xls")
CommonDialog1.Filter = "所有文件|*.*|Excel文件|*.xls"    '要显示的文件类型
CommonDialog1.Showsave
选择保存路径，输入保存文件名，确定返回
xlBook.Saveas CommonDialog1.FileName (FileName为保存路径+文件名)