EXCEL中如何实现每打印一份就自动保存当前工作表到当前工作簿中

发布网友发布时间：2022-04-30 23:01

我来回答

共4个回答

热心网友时间：2022-06-20 00:30

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

将代码放在工作簿事件下

热心网友时间：2022-06-20 00:30

可以去自学下按键精灵，做个辅助脚本来完成，或者花钱去做一个脚本，小任务花不了几个钱
按键精灵里有个懒人插件，专门协助处理office软件的

热心网友时间：2022-06-20 00:31

可以实现，需要编程，需要文档

热心网友时间：2022-06-20 00:31

运行之后，选择那个“文件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