如何用
excel
vba
批量打印文件
有时候一个文件夹内有很多
excel
文件,几十个,上百个,如果一个个的打开,
然后再打印,显然重复劳动,效率低下。sub
copy_data()dim
wb
as
workbook,
rng
as
range,
sht
as
worksheetdim
sht_name,
thedatesht_name
=
"sheet1"
'假设所有报表文件中的数据都在
sheet1set
sht
=
activesheet
'保存当前工作表对象fn
=
dir(thisworkbook.path
&
"\报表-*.xls",
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024