[文本处理] bat能否把预设文字，批量添加到多个的Excel文件的指定的单元格里？

var shell = WScript.CreateObject('WScript.Shell'),
    fso = WScript.CreateObject('Scripting.FileSystemObject'),
    curDir;
curDir = shell.CurrentDirectory = fso.GetParentFolderName(WScript.ScriptFullName);
var aExcelFiles = ['1.xlsx', '2.xls', '3.xlsx', '4.xls'];
var oInsertStr = {
    'B3': '文字一',
    'B4': '文字二',
    'B5': '文字三'
};
try {
    var oExcelApp = WScript.CreateObject('ET.Application');
} catch (e) {
    try {
        oExcelApp = WScript.CreateObject('Excel.Application');
    } catch (e) {
        showError(e, 'Cannot create Excel.Application and ET.Application');
        WScript.Quit(11);
    }
}
oExcelApp.AutomationSecurity = 3;
oExcelApp.DisplayAlerts = false;
for (var i = 0; i < aExcelFiles.length; ++i) {
    try {
        var oWorkbook = oExcelApp.Workbooks.Open(curDir + '\\' + aExcelFiles[i], 0, false);
        var oWorksheet = oWorkbook.Worksheets(1);
        for (var key in oInsertStr) {
            oWorksheet.Range(key).Value = oInsertStr[key];
        }
        oWorkbook.Close(true);
    } catch (e) {

    }
}
oExcelApp.Workbooks.Close();
oExcelApp.Quit();
复制代码

$Excel=New-Object -ComObject Excel.Application
$Excel.Visible=$false
Get-ChildItem ".\*" -Include *.xlsx,*.xls -Recurse|%{
	$Workbook=$Excel.Workbooks.Open($_.FullName)
	#脚本只修改第一页
	$Sheet=$Workbook.WorkSheets.Item(1)
	$Sheet.Cells.Item(3,2)='文字一'
	$Sheet.Cells.Item(4,2)='文字二'
	$Sheet.Cells.Item(5,2)='文字三'
	$Workbook.WorkSheets.item(1).Name='第1页修改'
	$Workbook.Close()
	$Excel.Quit()
}
Gps|?{$_.Name -match "Excel"}|Select $_|Stop-Process
pause
复制代码

$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $false
$Excel.AutomationSecurity = 3;
$Excel.DisplayAlerts = $false;
Get-ChildItem . -Filter *.xls -Include *.xlsx, *.xls -Recurse| % {
    $Workbook = $Excel.Workbooks.Open($_.FullName)
    #脚本只修改第一页
    $Sheet = $Workbook.WorkSheets.Item(1)
    $Sheet.Cells.Item(3, 2) = '文字一1'
    $Sheet.Cells.Item(4, 2) = '文字二2'
    $Sheet.Cells.Item(5, 2) = '文字三3'
    # $Workbook.WorkSheets.item(1).Name = '第1页修改'
    $Workbook.Close($true)
}
$Excel.Quit()
复制代码

...
	$Sheet.Cells.Item(3,2)='文字一'
	$Sheet.Cells.Item(4,2)='文字二'
	$Sheet.Cells.Item(5,2)='文字三'
	$Workbook.Save()
	$Workbook.Close()
	$Excel.Quit()
}
复制代码

...
	$Sheet.Cells.Item(3,2)='文字一'
	$Sheet.Cells.Item(4,2)='文字二'
	$Sheet.Cells.Item(5,2)='文字三'
	$Workbook.Save()
	$Workbook.Close()
}
$Excel.Quit()
复制代码