如何批量修改多个文件中的excel文件

 我来答
BAIXINGR

2016-12-20 · TA获得超过3万个赞
知道大有可为答主
回答量:2.9万
采纳率:89%
帮助的人:8817万
展开全部
方法/步骤
首先打开excel表格,你可能要处理一堆表格,如

点击其中一张工作表,在视图页面,找到“宏”的命令符。

点击【宏】,然后点击【录制宏】

在【录制宏】界面,你可以为新建的宏命名,同时也可以为其设置快捷键,注意不要与office原有的快捷键冲突。小编一般命名为ctrl+n,然后点击确定。

接下来,你所进行的每一步操作都会被【宏】所记忆,注意要操作准确,不然会加大计算量,免不了出错。例如修改字体,调整页面布局等。

等这些操作进行完之后,点击【宏】,停止录制。

接下来你就可以在另一张表格中按照宏定义来修改格式了。点击【宏】,查看宏

在查看宏界面,找到你定义宏名称,然后点击【执行】就可以了,你会发现原来的格式都统一发生了变化。如果你定义了快捷键的话,也可以直接按快捷键,如ctrl+n,也能很快地改过来。
匿名用户
2016-12-20
展开全部
这个问题用批处理难以完成,用vbs吧,将下面的代码复制保存为扩展名是“vbs”的文件,放到与要处理的excel文件同目录下运行即可得到名字为“总表.xls”的文件,这就是结果:

'═════代═══码═══开═══始═════
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
set oexcel=CreateObject("excel.application")
set oexcel2=CreateObject("excel.application")
name=fso.getfolder(".")&"\总表.xls":i=1
oexcel.workbooks.add
oexcel.activeworkbook.saveas(name)
oexcel.DisplayAlerts = False
oexcel2.DisplayAlerts = False
oexcel.visible=false
set fs=fso.getfolder(".").files
for each f in fs
ext=LCase(right(f.name,4))
if (ext=".xls" or ext="xlsx") and left(f.name,2)<>"~$" and f.path<>name then
oexcel2.workbooks.open(fso.getfolder(".")&"\"&f.name)
oexcel2.Worksheets(1).Rows(1).copy
oexcel.Worksheets(1).paste(oexcel.Worksheets(1).Rows(i))
i=i+1
oexcel2.activeworkbook.close
end if
next
oexcel.activeworkbook.save
oexcel.activeworkbook.close
msgbox "处理完毕!"
'Created By escortmnm from VBS团队
'═════代═══码═══结═══束═════

根据表的数量,需要的时间可能不同,请耐心等待结果!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式