excel - 如何在提供列表分隔符的同时使用 Powershell 在 Excel 中打开 CSV

Question

您好我正在使用一个简单的 Powershell 脚本将 CSV 文件转换为 XLSX 文件。但是 Excel 会忽略列表分隔符并将所有数据放在第一列中。

• 列表分隔符配置正确（开始 > 控制面板 > 区域和语言选项 -> 附加设置）
• 从 Windows 资源管理器手动打开文件可以正常工作。

但是，在 Excel 中打开 CSV 时，使用：

Function Convert-toExcel {
   $xl = new-object -comobject excel.application
   $xl.visible = $true
   $Workbook = $xl.workbooks.OpenText("$csvfile")
   $Worksheets = $Workbooks.worksheets
}

一切都放在第一列...

根据 Powershell，列表分隔符配置正确：

(Get-Culture).textinfo
ListSeparator  : ,

Answer 1

尝试将DataType参数添加到OpenText方法中。它似乎需要神奇的论据。

VBA： Workbooks.OpenText filename:="DATA.TXT", dataType:=xlDelimited, tab:=True

我猜在powershell中它接受一个哈希，所以：

$xl.Workbooks.OpenText(@{Filename = $CSVFile; dataTyype = "xlDelimited", other = $true; otherchar=':' })

但是，我目前无法对此进行测试。

Answer 2

以下脚本适用于我。我对功能所做的一项更改是将 Excel.visible 设置为 false。

Function Export-CSVToXLS {
Param( 
   [String]$CsvFileLocation
  ,[String]$ExcelFilePath
)
If (Test-Path $ExcelFilePath )
{
    Remove-Item -Path $ExcelFilePath
}

$FixedFormat = [Microsoft.Office.Interop.Excel.XlFileFormat]::xlWorkbookDefault 
$Excel = New-Object -ComObject excel.application 

$Excel.visible = $false 
$Excel.Workbooks.OpenText($CsvFileLocation)
$Excel.ActiveWorkbook.SaveAs($ExcelFilePath,$FixedFormat) 
$Excel.Quit() 
Remove-Variable -Name Excel 
[gc]::collect() 
[gc]::WaitForPendingFinalizers()
}

Export-CSVToXLS -CsvFileLocation "C:\Temp\CSV.csv" -ExcelFilePath "C:\Temp\XLS.xlsx"

我根据以下网页上的信息进行了编译：

http://blogs.technet.com/b/heyscriptingguy/archive/2010/09/09/copy-csv-columns-to-an-excel-spreadsheet-by-using-powershell.aspx

https://social.technet.microsoft.com/Forums/en-US/919459dc-3bce-4242-bf6b-fdf37de9ae18/powershell-will-not-save-excel-file?forum=winserverpowershell

Answer 3

您的原始代码工作正常。我的猜测是您在excel中的分隔符不是“，”。我已经看到这出错了很多时间。ps文化与此无关

Answer 4

使用 `t（制表符的 Powershell 代码）而不是 ,（逗号）。

Excel 在打开时默认使用文本到列导入，以制表符作为分隔符。