excel怎么自动调整列宽格式

发布网友 发布时间：2022-04-19 19:33

我来回答

共2个回答

热心网友 时间：2022-06-08 16:21

不清楚你的实际文件/情况，仅以问题中的说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起双击运行/*&cls&echo off&cd /d "%~dp0"
rem 将.xls或者.xlsx表格设置为自动调整列宽
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
dir /a-d-h/b|findstr /i "\.xls$ \.xlsx$"|cscript -nologo -e:jscript "%~f0"
echo;%#% +%$%%$%/%_% %z%
pause
exit
*/
var excel=null;
try{
    excel=new ActiveXObject('Excel.Application');
}catch(e){WSH.StdErr.WriteLine('MS Excel is not installed');WSH.Quit();}
excel.DisplayAlerts=false;
excel.Visible=true;

var fso=new ActiveXObject('Scripting.FileSystemObject');
while(!WSH.StdIn.AtEndOfStream){
    var it=WSH.StdIn.ReadLine();
    var file=fso.GetFile(it);
    try{
        var wbook=excel.Workbooks.Open(file.Path);
        var sheetcount=wbook.Worksheets.Count;
        for(var i=1;i<=sheetcount;i++){
            wbook.Worksheets(i).UsedRange.EntireColumn.AutoFit
        }
        wbook.Save();
        wbook.Close();
    }catch(e){}
}
excel.Quit();
WSH.Quit();

热心网友 时间：2022-06-08 17:39

除了宏代码其他只能自己手动设置。就是右击选择格式就可以了。然后全选，粘贴格式就可以了。