永发信息网

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

答案:4  悬赏:60  手机版
解决时间 2021-02-03 23:51
一个文件夹里面有100个表格,如何批量打印这100个表格的第一页,在线等
最佳答案
试试这?


全部回答
打印设置,页数1-1打多少份自己决定追问这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、运行上述宏。
这人太难了,批量打印到是简单,可以批量打印第一页就难了。追问能不能实现呢?
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
盐城范公路高架可以到南环路高架吗
鸡的受精卵从母体出生后,胚胎即停止发育的原
你欺负我用英语怎么说
微信为什么没有人和你打咋呼
凯立德地图 都一样通用吗一体机导航仪ce
羌煮的意思是什么啊?知道的请说下!
某铅锌矿2014年销售铅锌矿原矿80000吨,另外
怎么包混沌视频
A.O.史密斯美国热水专家在什么地方啊,我要过
海尔空调的售后服务好,这个可靠吗
这是什么电话十[812]467-56
呼蒲的意思是什么啊?知道的请说下!
金字旁加京是什么字
最近发现脖子右边长出一颗小小红色的痣,这是
伟仔螺庄这个地址在什么地方,我要处理点事
推荐资讯
JACK&JONES(抗建路步行街店)地址在什么地
用kindle读书怎么做读书笔记
致致的意思是什么啊?知道的请说下!
java寄存原理(也就是中间变量)是什么,比如
公交CNG加气站在什么地方啊,我要过去处理事
GIADA地址在哪,我要去那里办事
我的衣坊(016乡道)地址在什么地方,想过去办
长城哈弗h6新款电瓶电压不稳定会影响玻璃主开
老公给他父母花钱大方的很,给我和孩子不舍得,
港版6p怎么用电信卡
下列动物中,进行体外受精的是CA. 鸡B. 猪C.
欣网e家(金港店)地址在哪,我要去那里办事
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?