你完全没有必要每次生成一个文件，将每次的数据保存在一个单独sheet里面，每次运行这个表格，就去找最大的编号再加1就是本次的编号 。这样同时也就没有你的第二个问题和第三个问题，直接查看历史记录即可。
按ALT+F11 ,复制
PrivateSub Workbook_BeforePrint(Cancel As Boolean)
n = Val(Replace([a1], "单据编号", ""))
[a1] = "单据编号" & n + 1
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024