Проблема с производительностью: конвертировать csv в excel с помощью Powershell

Question

Я использую ниже код оболочки питания для преобразования csv в excel. Но производительность кажется плохим, для файла csv размером 200 мб я ждал 20 минут. У каждого есть идея, как улучшить производительность. Или мне нужно делать прагматично (используя java, используя библиотеку apache poi)?

function convertToExcel { 
    param($fileName, $outputDir) # the two parameters. 
    #generate OutputFileName 
    $outputFilename = -join($fileName.BaseName, ".xlsx"); 

    #prepare excel sheet 
    $excel = New-Object -ComObject Excel.Application 
    #$excel.visible = $true 
    $workbook = $excel.workbooks.add() 
    $sheets = $workbook.sheets 
    $sheetCount = $Sheets.count 
    $mySheet = 1 
    $mySheetName = "Sheet" + $mySheet 
    $s1 = $sheets | where{$_.name -eq $mySheetName} 
    $s1.Activate() 

    #Delete all other Sheets 
    If ($sheetCount -gt 1) { 
     $Sheets | ForEach { 
      $tmpSheetName = $_.Name 
      $tmpSheet = $_ 
      If ($tmpSheetName -ne "Sheet1") { 
       $tmpSheet.Delete() 
      } 
     } 
    } 

    #copy paste data from csv 
    #$s1.Name = $fileName.BaseName 
    $s1.Name = "sheet1" 
    $s1.Activate() 
    $s1Data = Import-Csv $file.FullName -Delimiter '^' 
    $s1Data | ConvertTo-Csv -Delimiter "`t" -NoTypeInformation | Clip 
    $s1.cells.item(1,1).Select() 
    $s1.Paste() 

    $workbook.SaveAs("$outputDir\$outputFilename") 
    $excel.Quit() 
    } 

    #Read Input from Arguments 
    if ($args.length -ne 3){ 
    }else{ 
    $fileName = $Args[0] #read fileName 
    $inputFolder = $Args[1] #read inputFolder 
    $outputFolder = $Args[2] #read outputFolder 

    $files = dir -Path $inputFolder $fileName 

    ForEach ($file in $files) { 
    convertToExcel $file $outputFolder 
    } 
} 

Answer 1

Вы пытались открыть файл CSV в Excel? Это, вероятно, самый быстрый метод.

$app = New-Object -ComObject Excel.Application 
$app.Visible = $true 
$app.DisplayAlerts = $False 
$app.Workbooks.Open("yourcsvfile.csv") 

Другой путь будет читать файл по строкам и добавлять целые строки, но это будет медленнее.

Однако преобразование в объект PS и запись ячейки по ячейке всегда будут самыми медленными.

Редактировать: Вот полная функция ...

function ConvertToExcel { 
    param($fileName)  
    $outputFilename = -join($fileName.split('.')[0], ".xls") 
    $excel = New-Object -ComObject Excel.Application 
    #$excel.Visible = $true 
    $excel.DisplayAlerts = $False 
    $wb = $excel.Workbooks.Open($fileName) 
    $wb.SaveAs("$outputFilename", [Microsoft.Office.Interop.Excel.XlFileFormat]::xlExcel8) 
    Start-Sleep -Milliseconds 200 
    $excel.Quit() 
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) 
    Remove-Variable excel 
} 

ConvertToExcel "D:\tst\serverlist.csv"