#&cls&@powershell -v 2 -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & pause&exit

#用户设置
$src_dir = './'; #源目录
$txt = './输出.txt'
#==============================================================
$files = Get-ChildItem -Path './' -Filter '*.xls' -Recurse

$xl=New-Object -ComObject Excel.Application
$xl.Visible = $false
$xl.displayAlerts = $false
[System.Collections.ArrayList] $ret=@()
foreach($file in $files)
{
    $wb=$xl.workbooks.open($file.FullName,3)#打开表格
    $sheets = $wb.worksheets
    [void]$ret.Add($file.FullName)
    for($i=1;$i -le $sheets.Count;$i++)
    {
        [void]$ret.Add($sheets.Item($i).Name)
    }
    $xl.Workbooks.close()
}
$xl.Quit()
$xl = $null
[GC]::Collect()
Out-File -FilePath $txt -InputObject $ret -Encoding default
复制代码