.xlsm 到 csv 使用 Powershell

Question

我想将文件夹中的多个文件从 .xlsm 转换为 csv。 Excel 文件包含多张工作表。 因为我对Powershell的了解非常有限，当时我在网上搜索了一个脚本并在Extract and convert all Excel worksheets into CSV files using PowerShell找到了一个

问题是，有几次我设法使这些脚本工作（一个脚本调用另一个脚本），但我还没有弄清楚它何时或如何发生。 我正在从 Powershell ISE 运行脚本并收到以下错误消息：

使用“1”参数调用“Open”的异常：“抱歉，我们找不到 C:\Docs。它可能被移动、重命名或删除了吗？” 在 C:\Docs\xlstocsv.ps1:9 char:5 + $wb = $E.Workbooks.Open($excelFile) + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + CategoryInfo : NotSpecified: (:) [], MethodInvocationException + FullyQualifiedErrorId : ComMethodTargetInvocation

因为我已经成功运行了几次这些脚本，所以假设这些脚本是正确的并且我的 Powershell(?) 设置有问题是正确的吗？ 我的想法已经用完了。

PS 我希望这里允许粘贴到其他网页的链接。

编辑 添加了代码。

脚本一（我从 Powershell ISE 开始的那个）：

$ens = Get-ChildItem "C:\Docs\" -filter *.xlsm
foreach($e in $ens)
{   [threading.thread]::CurrentThread.CurrentCulture = 'en-US'
    ExportWSToCSV -excelFileName $e.BaseName -csvLoc "C:\Docs\Final\"
}

脚本二：

Function ExportWSToCSV ($excelFileName, $csvLoc)

{   [threading.thread]::CurrentThread.CurrentCulture = 'en-US'
    $excelFile = "C:\Docs\"
    $E = New-Object -ComObject Excel.Application
    $E.Visible = $false
    $E.DisplayAlerts = $false
    $wb = $E.Workbooks.Open($excelFile)
    foreach ($ws in $wb.Worksheets)
    {
        $n = $excelFileName + "_" + $ws.Name
        $ws.SaveAs($csvLoc + $n + '.csv', 6)
    }
    $E.Quit()
}
ExportWSToCSV -excelFileName "file" -csvLoc "C:\Docs\Final\"     

我添加了“[threading.thread]::CurrentThread.CurrentCulture = 'en-US'” 部分，我能够成功运行这些脚本，但只能运行一次。所以这基本上似乎我可以从代码中丢弃这一行。

Answer 1

如果您的唯一目标是将文件从 .xlsm 转换为 .csv，您可以这样做（使用示例 sn-ps）：

function Convert-XlsmToCsv {
    param(
        [Parameter(Mandatory, ValueFromPipelineByPropertyName)]
        [ValidateNotNullOrEmpty()]
        [Alias('FullName')]
        [string] $Path
    )
    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) {
            $name = Join-Path -Path $root -ChildPath "${filename}_$($worksheet.Name).csv"
            try {
                $worksheet.SaveAs($name, 6)
            } catch {
                Write-Error -Message "Failed to save csv! Path: '$name'. $PSItem"
            }
        }
    }
    end {
        $excel.Quit()
        $null = [System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel)
    }
}

使用中：

Get-ChildItem -Path C:\Docs -Filter *.xlsm |
    Convert-XlsmToCsv

这做了一些假设，但很容易编辑。