excel用宏从一个工作薄中导出指定的几个工作表另存
答案:1 悬赏:80
解决时间 2021-03-13 05:40
- 提问者网友：辞取
- 2021-03-12 16:59
excel用宏从一个工作薄中导出指定的几个工作表另存
最佳答案
- 二级知识专家网友：你可爱的野爹
- 2021-03-12 17:38
把当前工作簿中的几个表复制到一个新工作簿中，用VBA一行代码就可以实现：
Sheets(Array("输入表","输出表","年级排名表")).Copy
实现新建工作簿的另存为，需要两个语句，一个是选择文件名：
fn = Application.GetSaveAsFilename
下一个语句就是保存：
ActiveWorkbook.SaveAs fn
当然，这两个语句可能需要更细化，例如选择文件夹时候指定默认位置、文件类型，保存前检查文件是否覆盖、名字后缀是否正确等。
Sheets(Array("输入表","输出表","年级排名表")).Copy
实现新建工作簿的另存为，需要两个语句，一个是选择文件名：
fn = Application.GetSaveAsFilename
下一个语句就是保存：
ActiveWorkbook.SaveAs fn
当然，这两个语句可能需要更细化，例如选择文件夹时候指定默认位置、文件类型，保存前检查文件是否覆盖、名字后缀是否正确等。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯