公司经常要把多个xls文件合并到一个里面,电脑使用的是office2010,找了半天也没找到合并多个表格的设置。
在网上看到有人说,先把xls文件转为csv格式,然后通过cmd命令合并。我借鉴网上的代码写了两个脚本文件来处理,一个bat一个vbs,vbs主要是将xls转为csv,bat就是将文件批量操作,最后再合并。
具体操作,把bat和vbs两个脚本放在同一个文件夹下(位置随意),然后把要合并的xls文件放在同一个文件夹下(路径不能有中文),将放有xls的文件夹拖放到bat文件上。
bat脚本
@echo off
setlocal enabledelayedexpansion
echo %1
pause
set path=%1\
for %%i in (%path%*.xls) do (
echo %%i
set a=%%i
hebing.vbs !a! !a!
)
pause
copy %path%*.csv %path%out.csv
vbs脚本。文件命名为hebing.vbs文章来源:https://www.toymoban.com/news/detail-439142.html
Dim NewExcel
Set NewExcel = CreateObject("Excel.Application")
Dim NewBook
Set NewBook = NewExcel.Workbooks.Open(Wscript.Arguments.Item(0))
i = 0
do while i < NewExcel.Worksheets.Count
i=i+1
NewExcel.Worksheets(i).Activate
NewBook.SaveAs WScript.Arguments.Item(1) & ".csv", 6
loop
NewBook.Close False
NewExcel.Quit文章来源地址https://www.toymoban.com/news/detail-439142.html
到了这里,关于Office2010 把多个excel合并成一个的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!