將多個CSV文件保存爲XLS

Question

我是PS的總noob，並且在嘗試將CS​​V文件的文件夾保存到XLS或XLSX時遇到問題。我可以做一個單一的文件，但不能解決我做錯了多次。

CLS 
$path = "H:\My Documents\" 
$files = Get-ChildItem $path -include *.csv -recurse 
echo $files 
foreach($file in $files) { 
$objExcel=New-Object -com "Excel.Application" 
$objWorkbook=$objExcel.workbooks.open($file) 
$objWorksheet=$objWorkbook.Worksheets.Item(1) 

#insert COUNTIF formula into cell A8 
$strFormula = "=COUNTIF(I6:I1000," + [char](34) + ">0" + [char](34) + ")" 
$objExcel.Cells.Item(1, 8).Formula = $strFormula 

#Save as XLS 
$xlout=$file.Replace('.csv','xlsx') 
$objWorkbook.SaveAs($xlOut,51) 

$objWorkbook.Close() 
$objExcel.Quit() 
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($objExcel) 
} 

有人可以幫我嗎？

Answer 1

嗯，我沒有看到任何根本性的錯誤，但它可能與快速連續的Excel打開和關閉有關的問題。嘗試在打開和關閉Excel的時間範圍內移動循環。

CLS 
$path = "H:\My Documents\" 
$files = Get-ChildItem $path -include *.csv -recurse 
echo $files 
$objExcel=New-Object -com "Excel.Application" 
foreach($file in $files) { 
    $objWorkbook=$objExcel.workbooks.open($file) 
    $objWorksheet=$objWorkbook.Worksheets.Item(1) 

    #insert COUNTIF formula into cell A8 
    $strFormula = "=COUNTIF(I6:I1000," + [char](34) + ">0" + [char](34) + ")" 
    $objExcel.Cells.Item(1, 8).Formula = $strFormula 

    #Save as XLS 
    $xlout=$file.FullName.Replace('.csv','.xlsx') 
    $objWorkbook.SaveAs($xlOut,51) 

    $objWorkbook.Close() 
} 
$objExcel.Quit() 
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($objExcel) 

編輯：
我更新$ xlout拉動全名元素，並固定它的更換，因爲它正在失去.，基本改變「somefile.csv」到「somefilexlsx」。