为什么在停止 excel 进程后出现 'The remote procedure call failed' 错误？

Question

我有以下代码可将 excel 工作表转换为 csv 文件。如果 csv 文件不 exist/or 已经存在但未被使用（例如在 excel 中打开），脚本会成功生成 csv 文件（如果它们已经存在则覆盖它们）！

但是，如果在 excel 中打开 csv 文件，我会收到一个错误 "Can't access csv file"，我确定这是因为 excel（打开时）正在使用它。我知道这是 100% 的原因，因为如果我在记事本中打开现有的 csv 文件，脚本仍然会覆盖 csv 文件，运行成功。

所以我尝试实施一个自动解决方案，即 Get-Process 'exce[l]' | Stop-Process -Force ，虽然它确实停止了进程（关闭 excel），但我得到了另一个错误：

Convert-ExcelSheetsToCsv : Failed to save csv! Path: 'C:\Users\Documents\Folder1\CSV_Files\COS.csv'. The remote
procedure call failed. (Exception from HRESULT: 0x800706BE)

Convert-ExcelSheetsToCsv : Failed to save csv! Path: 'C:\Users\Documents\Folder1\CSV_Files\.csv'. The RPC server is
unavailable. (Exception from HRESULT: 0x800706BA)

经过一番研究，我禁用了我的COM-Excel Addins，再次运行脚本，异常仍然出现...

这是为什么？

$currentDir = $PSScriptRoot

$csvPATH = Join-Path -Path $currentDir -ChildPath CSV_Files
New-Item -ItemType Directory -Force -Path $csvPATH | out-null

function Convert-ExcelSheetsToCsv {
    param(
        [Parameter(Mandatory, ValueFromPipelineByPropertyName, Position=1)]
        [ValidateNotNullOrEmpty()]
        [Alias('FullName')]
        [string]$Path,
        [Parameter(Mandatory = $false, Position=0)]
        [bool]$AppendFileName,
        [Parameter(Mandatory = $false, Position=2)]
        [bool]$ExcludeHiddenSheets,
        [Parameter(Mandatory = $false, Position=3)]
        [bool]$ExcludeHiddenColumns
    )
    Begin {
        $excel = New-Object -ComObject Excel.Application -Property @{
            Visible       = $false
            DisplayAlerts = $false
        }
    }
    Process {
        #$root = Split-Path -Path $Path
        $filename = [System.IO.Path]::GetFileNameWithoutExtension($Path)
        $workbook = $excel.Workbooks.Open($Path)

        foreach ($worksheet in ($workbook.Worksheets | Where { <# $_.Visible -eq -1 #> $_.Name -ne 'Security' -and $_.Name -ne 'Notes' })) {        
            if($ExcludeHiddenColumns) {
                $ColumnsCount = $worksheet.UsedRange.Columns.Count
                for ($i=1; $i -le $ColumnsCount; $i++)
                {
                    $column = $worksheet.Columns.Item($i).EntireColumn #$worksheet.sheets.columns.entirecolumn.hidden=$true
                    if ($column.hidden -eq $true)
                    {   
                        $columnname = $column.cells.item(1,$i).value2

                        if ($worksheet.Visible -eq 0) #worksheet hidden
                        {
                            "`r`nHidden column [{0}] found in hidden [{1}] worksheet. Deleting..." -f $columnname, $($worksheet.name)
                        }
                        else {
                            "`r`nHidden column [{0}] found in [{1}] worksheet. Deleting..." -f $columnname, $($worksheet.name)
                        }

                        try {
                            $column.Delete() | out-null

                            "`r`nHidden column [{0}] was Deleted! Proceeding with Export to CSV operation...`r`n" -f $columnname
                        }
                        catch {
                            Write-Error -Message "`r`nFailed to Delete hidden column [$columnname] from [$($worksheet.name)] worksheet! $PSItem"
                            #$_ | Select *
                        }

                        #$i = $i - 1
                    }
                }
            }

            if ($ExcludeHiddenSheets) {
                if ($worksheet.Visible -eq -1) #worksheet visible
                {
                    $ws = $worksheet
                }
            }
            else {
                $ws = $worksheet
            }

            if ($AppendFileName) {
                $name = Join-Path -Path $csvPATH <# $root #> -ChildPath "${filename}_$($ws.Name).csv"
            }
            else {
                $name = Join-Path -Path $csvPATH <# $root #> -ChildPath "$($ws.Name).csv"
            }

            try {
                $ws.SaveAs($name, 6) #6 to ignore formatting and convert to pure text, otherwise, file could end up containing rubbish
            } 
            catch {
                if ($error[0].ToString().Contains("Cannot access"))
                {
                    "`r`n'{0}' is currently in use.`r`n Attempting to override usage by trying to stop Excel process..." -f $name

                    try {
                        #Only 'excel' will be matched, but because a wildcard [] is used, not finding a match will not generate an error.
                        #

                        Get-Process 'exce[l]' | Stop-Process -Force

                        "`r`nExcel process stopped! Saving '{0}' ..." -f $name

                        $ws.SaveAs($name, 6)
                    }
                    catch {
                        Write-Error -Message "Failed to save csv! Path: '$name'. $PSItem"
                    }
                }
                else {
                    Write-Error -Message "Failed to save csv! Path: '$name'. $PSItem"
                }
            }
        }
    }
    End {
        $excel.Quit()
        $null = [System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel)
    }
}

Get-ChildItem -Path $currentDir -Filter *.xlsx | Convert-ExcelSheetsToCsv -AppendFileName 0 -ExcludeHiddenSheets 1 -ExcludeHiddenColumns 1 #0 for false, so that filename of excel file isnt appended, and only sheet names are the names of the csv files

Answer 1

那是因为 excel 对象最终也被销毁了。正确的方法是在实例化 excel 对象之前结束进程：

Begin {
    Get-Process 'exce[l]' | Stop-Process -Force

为什么在停止 excel 进程后出现 'The remote procedure call failed' 错误？

Why am I getting 'The remote procedure call failed' error after stopping excel process?

csv

excel

powershell-5.0