如何将多个Excel文件中的数据进行批量处理? 10
有一个Excel数据模版,里面有四个SHEET都需要修改,100多个Excel文件,每个都要弄成和模版一样的表,懂VBA的大神赐教!...
有一个Excel数据模版,里面有四个SHEET都需要修改,100多个Excel文件,每个都要弄成和模版一样的表,懂VBA的大神赐教!
展开
2个回答
2016-12-14
展开全部
这个问题用批处理难以完成,用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团队
'═════代═══码═══结═══束═════
根据表的数量,需要的时间可能不同,请耐心等待结果!
'═════代═══码═══开═══始═════
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团队
'═════代═══码═══结═══束═════
根据表的数量,需要的时间可能不同,请耐心等待结果!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询