flashercs

是修改第一个表格Sheet1吗?
保存 修改Excel.js 到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();
复制代码

flashercs

回复 4# xczxczxcz


    好像Excel.Quit() 早了

flashercs

回复 6# xczxczxcz

$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()
复制代码

ps里的excel com quit失败.....什么情况?