摘要: 同一文件夹内N个工作簿,每个工作簿中一个工作表,最终合并到一个工作簿内分工作表显示的代码。 假设放置以下代码的文件命名为“合并.xlsm“,并与待合并文件在同一文件夹内。 Sub Sample() Application.DisplayAlerts = False Dim MyWb As Workb 阅读全文
posted @ 2022-03-04 14:43 熬肥妖 阅读(465) 评论(0) 推荐(0) 编辑
摘要: 实际这个问题不需要用VBA,因为可以直接选取所有工作表后再开始打印,但如此一来页码的设置会出现问题。 例如一个工作簿内共12个工作表,每个工作表单独打印页码为1-2页不等,全部选取后一起打印,页码会完全连续,如第三个工作表应该是“第1页,共2页”,却显示成了“第4页,共20页”这样的。 Sub Pr 阅读全文
posted @ 2022-03-04 14:22 熬肥妖 阅读(684) 评论(0) 推荐(0) 编辑