2023年7月9日发(作者：)

将两个excel⽂件合并到⼀个新的Excel⽂件中1、⾸先需要安装autoit，这个⽹上应该有很多2、创建两个⽂件，⾥边写⼀些东西3、脚本编写#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: myName Script Function: Template AutoIt script.#ce ----------------------------------------------------------------------------; Script Start - Add your code below here#include <3>#include <3>#include-once#include "3"#include "3"Local $oExcel = _Excel_Open()Local $filePath = $CmdLine[1]Local $oWorkBook = _Excel_BookOpen($oExcel,$filePath)Local $targetPath = $CmdLine[2]Local $oWorkBook1 = _Excel_BookOpen($oExcel,$targetPath)Local $oWorkBook2 = _Excel_BookNew($oExcel,Default)Local $oSheetList = _Excel_SheetList($oWorkBook)Dim $iFor $i=1 To UBound($oSheetList) Local $oSheet = _Excel_SheetCopyMove($oWorkbook,$i,$oWorkBook2,$i,False,Default) $ = "a" & $iNextLocal $oSheetList1 = _Excel_SheetList($oWorkBook1);_Excel_BookSaveAs($oWorkBook2,"d:/")Dim $jFor $j=1 To UBound($oSheetList1) $toIndex = UBound($oSheetList) + $j Local $oSheet1 = _Excel_SheetCopyMove($oWorkbook1,$j,$oWorkBook2,$toIndex,False,Default) $ = "a" & $toIndexNext_Excel_BookSaveAs($oWorkBook2,"d:/")_Excel_SheetDelete($oWorkBook2,1);_Excel_Close($oExcel)MsgBox(64,"提⽰","执⾏完成")4、按照本机的位数，编译成相关的exe⽂件

5、最后进⼊到cmd，执⾏ d:/ d:/

合并后的⽂件路径脚本⾥有写 合并后的⽂件

补充：将多个Excel⽂件合并到⼀个⽂件中#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: myName Script Function: Template AutoIt script.#ce ----------------------------------------------------------------------------; Script Start - Add your code below here#include <3>#include-once#include "3"#include "3"Local $source = $CmdLine[1]Local $sourceArray = StringSplit($source,",")Local $target = $CmdLine[2]Local $oExcel = _Excel_Open()Local $tWorkBook = _Excel_BookNew($oExcel,Default)Dim $sum = 0For $i = 1 To $sourceArray[0] Local $item = $sourceArray[$i] Local $itemWorkBook = _Excel_BookOpen($oExcel,$item) Local $itemSheetList = _Excel_SheetList($itemWorkBook) For $j = 1 To UBound($itemSheetList) $toIndex = $sum + 1 Local $itemSheet = _Excel_SheetCopyMove($itemWorkBook,$j,$tWorkBook,$toIndex,False,Default) $ = "a" & $toIndex $sum = $sum + 1 NextNext_Excel_BookSaveAs($tWorkBook,$target)_Excel_SheetDelete($tWorkBook,1)_Excel_Close($oExcel)

执⾏⽅式

⼤致流程：就是将第⼀个参数切割成数组，然后循环添加到新创建的Excel⽂件中