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