excel用宏从一个工作薄中导出指定的几个工作表另存

Question

关键是导出时不自动保存，而是手动选择保存地址和文件名，相当于复制另存。

Answer 1

把当前工作簿中的几个表复制到一个新工作簿中，用VBA一行代码就可以实现：
Sheets(Array("输入表","输出表","年级排名表")).Copy
实现新建工作簿的另存为，需要两个语句，一个是选择文件名：
fn = Application.GetSaveAsFilename
下一个语句就是保存：
ActiveWorkbook.SaveAs fn
当然，这两个语句可能需要更细化，例如选择文件夹时候指定默认位置、文件类型，保存前检查文件是否覆盖、名字后缀是否正确等。