问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

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

发布网友 发布时间:2022-04-25 04:06

我来回答

4个回答

热心网友 时间:2023-10-24 22:12

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

将代码放在工作簿事件下

热心网友 时间:2023-10-24 22:12

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

热心网友 时间:2023-10-24 22:13

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

热心网友 时间:2023-10-24 22:13

运行之后,选择那个“文件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
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
美国在多少个国家有驻军? 美国在哪些国家有驻军? 美国在哪些国家派有驻军? 美国在其本土以外的驻军有多少 美国都在哪些国家有驻军 空调制热的正确调法 守捉郎与侠客行 《长安十二时辰》乱弹之五 小孩子给母亲节的祝福 孩子送给妈妈的母亲节祝福语句子2024 中国篮球a级教练都是谁 打印空白表格怎么保留 求职哪个软件好用谁有好的找工作网说一下? 哪个招聘软件比较靠谱,大家都在哪找工作对于求职迷茫的人哪里有成功率高的工作? 现在找工作用什么软件比较靠谱呢? 找工作平台哪个靠谱些? 那些招聘软件比较靠谱,现在找工作是不是挺难想钱多事少用什么软件... 《金牌调解》是个怎样的节目?它的宗旨是什么? 《金牌调解》节目中总能摆平各种风波,这类节目是否会收到观众喜爱? 我想问一下,金牌调解怎么参加,我有家庭矛盾需要调解,报了名要等多久才能帮到我,需要多少钱? 江西卫视金牌调解调家庭矛盾需要多少钱? 金牌调解让儿媳守家规哪一期? 金牌调解得多少钱?在哪里呢?是不是真的… 《金牌调解》的节目主持人是谁? 《金牌调解》是真人真事吗? 金牌调解那些故事是真的还是假的? 谁能告诉我江西台《金牌调解》团队的所有人员名单? 怎么修改access数据库的内容? 无假体隆鼻多少钱? 隆鼻多少钱一次 一般隆鼻大概多少钱? 打印的时候怎么保持标题 打印整个工作表原来设置的页码怎么保留 Excel大表筛选后成小表,如何保存和打印该小表 怎么制作表格,然后怎么打印保存 没有打印机,怎样保存网页上需要打印的表格? WPS表格怎么保存打印预览后的表格?也就是说制作完的表格,想保存单独做的这个表格?请高人指点,谢谢! excel标题栏如何在打印的时候保留到下一页 如何在打印时的第二页仍然保持第一页第一行内容 EXCEL中如何可以打印后自动保存在另外的工作表中 农行农行房贷十万贷等额本金十年还总利息是多少 请各位大哥帮忙,我在中国农业银行贷了51万元商业住房贷款,10年还清,总利息是多少,急。 中国农业银行房屋银行贷款利率是多少?贷款27万,十年还清 农行贷款十年33万,利息是多少? 用房产从农业银行贷款十万 十年要多少利息 冷暖两用小空调的价格多少?冷暖两用小空调的优点有哪些 冷暖两用小空调99元 冷暖两用空调如何开暖气?【急】 我买的是冷暖两用挂机空调为什么制热效果差? 冷暖两用空调为什么既能制冷有能制热 谁知道哪有功率为200瓦左右的空调(冷暖两用的)