一个文件夹里面有100个表格,如何批量打印这100个表格的第一页,在线等...

如题所述

用VBA写个程序配合处理吧:
1、先在CMD命令状态中进入该 文件夹,用dir aaa.txt命令,将文件夹内的文件名列到aaa.txt中,
2、用EXCEL打开aaa.txt文件,分列,将文件名分拆开,删除不要的内容,将纯文件名放在A1开始的A列中,
3、按键盘组合键“Alt+F11”或切换至“开发工具”功能区并点击“Visual Basic”按钮进入VBA环境。
4、在VBA环境下,右击“Microsoft Excel对象”,从弹出的菜单中选择“插入”-“模块”项。
5、在打开的模块窗口中,输入以下代码:
Sub?宏1()
For?i?=?1?To?100????'从1到100
????Workbooks.Open?Filename:="E:\File\"??Cells(i,?1)???'选择打开指定目录E:\FILE\目录的A列上单元格的文件
????ActiveWindow.SelectedSheets.PrintOut?From:=1,?To:=1,?Copies:=1,?Collate?_
????????:=True,?IgnorePrintAreas:=False?????'打印首页
????????ActiveWorkbook.Close????'关闭这文件
????Windows("901.xlsm").Activate?'重新选择这个有宏和文件名的文件
Next????'下一循环
End?Sub
文档另存为901.xlsm
6、运行上述宏。
温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

大家正在搜

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网