为什么我的代码没有保存正确的工作表？

Question

我有以下 Powershell 脚本将 XLSB 文件的第二张工作表转换为 CSV。

Function XLSBtoCSV ($Path)

{
    foreach($File in (Get-childItem $Path -Filter "*.xlsb"))
        {

        $pwd = $Path

        $excelFile = "$pwd\" + $File

        $Excel = New-Object -ComObject Excel.Application

        $Excel.Visible = $false

        $Excel.DisplayAlerts = $false

        $wb = $Excel.Workbooks.Open($excelFile)
        $ws = $wb.Worksheets.item(2)
        $ws.SaveAs("$pwd\" + $File.BaseName + "-" + $ws.name + ".csv", 6)

        $Excel.Quit()
    }

}


$FilePath = Get-Location

XLSBtoCSV -Path $FilePath

这个脚本曾经可以工作，但不知何故现在它只保存了最后一个工作表（表 3）。我尝试更改为不同的工作表编号，但每次都会保存最后一个工作表。

Answer 1

非常接近。您需要遍历工作表项，而不是像另一个 answer 中所涵盖的那样仅调用 items(2)：

Function XLSBtoCSV ($Path)
{
    foreach($File in (Get-childItem $Path -Filter "*.xlsb"))
        {

        $pwd = $Path

        $excelFile = "$pwd\" + $File

        try{
            $Excel = New-Object -ComObject Excel.Application

            $Excel.Visible = $false

            $Excel.DisplayAlerts = $false

            $wb = $Excel.Workbooks.Open($excelFile)

            # source https://stackoverflow.com/questions/16156951/how-to-iterate-through-excel-worksheets-only-extracting-data-from-specific-colum
            foreach($ws in $wb.Worksheets)
            {
                $ws.SaveAs("$pwd\" + $File.BaseName + "-" + $ws.name + ".csv", 6)
            }
        } 
        finally 
        {
            # close/dispose all the open parts of Excel
            if($Excel) 
            { 
                $Excel.Quit()
            }
        }
    }

}


$FilePath = Get-Location

XLSBtoCSV -Path $FilePath