Office2010 把多个excel合并成一个

公司经常要把多个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

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

最后

以上就是多情云朵为你收集整理的Office2010 把多个excel合并成一个的全部内容，希望文章能够帮你解决Office2010 把多个excel合并成一个所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。