EXCEL中如何实现每打印一份就自动保存当前工作表到当前工作簿中
打印一次工作表就自动保存一个工作簿我可以搞了，但是这样不现实，打印多了工作簿太多，所以想实现每打印一次首工作表，就自动保存一张工作表到当前工作簿最后，文件名为打印那份表格的指定单元格名，这样后期就好管理，也能调用了，怎么实现呢？比如图中打印后，自动保存了一张名称为单元格C2“胜利”的表格.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Cancel = False Then
ActiveSheet.Copy After:=Sheets(Sheets.Count)
End If
ActiveSheet.Name = [c2].Text
End Sub
将代码放在工作簿事件下
温馨提示：答案为网友推荐，仅供参考
第1个回答 2019-08-02
可以去自学下按键精灵，做个辅助脚本来完成，或者花钱去做一个脚本，小任务花不了几个钱
按键精灵里有个懒人插件，专门协助处理office软件的本回答被网友采纳
按键精灵里有个懒人插件，专门协助处理office软件的本回答被网友采纳
第2个回答 2019-08-02
可以实现，需要编程，需要文档
第3个回答 2020-05-02
运行之后，选择那个“文件2”，点确定，就把“文件2”里"sheet3"的a1：l1000复制到运行文档“sheet1”的b2：m1001了~
附件文档的模块1里，按alt+f11打开编辑器
http://pan.baidu.com/s/1c2kxq9q
sub
a()
dim
a
with
application.filedialog(msofiledialogfilepicker)
.allowmultiselect
=
false
.initialfilename
=
thisworkbook.path
if
.show
=
-1
then
set
a
=
workbooks.open(.selecteditems(1))
a.sheets("sheet3").autofiltermode
=
false
a.sheets("sheet3").range("a1:l1000").copy
thisworkbook.sheets("sheet1").range("b2")
a.close
false
end
if
end
with
end
sub
附件文档的模块1里，按alt+f11打开编辑器
http://pan.baidu.com/s/1c2kxq9q
sub
a()
dim
a
with
application.filedialog(msofiledialogfilepicker)
.allowmultiselect
=
false
.initialfilename
=
thisworkbook.path
if
.show
=
-1
then
set
a
=
workbooks.open(.selecteditems(1))
a.sheets("sheet3").autofiltermode
=
false
a.sheets("sheet3").range("a1:l1000").copy
thisworkbook.sheets("sheet1").range("b2")
a.close
false
end
if
end
with
end
sub
相似回答