如何用另存为对话框保存一指定文件
各位网友好，现相利用另存为对话框保存程序文件夹中一指定文件（如TT.XLS,把指定文件另存到另外一地方）。我作了另存为对话框，但使用时发现，只显示另存界面，好象与原要保存的文件无关。不能完成设想的操作。是不是对话框界面就仅仅是个界面，实际操作要写代码。请问，要把指定的在程序中的文件（如TT.XLS）利用另存为对话框保存到另外一地方（用另存为对话框选择保存位置），如可操作，代码如何书写。请指导，谢谢
另存为 和 打开文件一样，对话框只是一个界面，利用这个可视化界面返回一些值（路径，文件名等）
再另写程序保存
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为保存路径+文件名)