Bobby/SharepointXLStoXLSX
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: Improve Excel COM object handling with try-finally and GC cleanup

Browse Source
This commit is contained in:
Bobby Abellana (aider) 2025-02-21 10:47:07 -08:00
parent a5057f2a0d
commit 3a2cb289db
1 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
SharePointFunctions.ps1
View File

@ -443,21 +443,29 @@ function Convert-Files {
$xlsxFileName = $originalFileName -replace "\.xls[m]?$", ".xlsx" $xlsxFileName = $originalFileName -replace "\.xls[m]?$", ".xlsx"
$xlsxPath = "$env:TEMP\$xlsxFileName" $xlsxPath = "$env:TEMP\$xlsxFileName"
try { try {
# Open the Excel file # Open Excel
$excel = New-Object -ComObject Excel.Application $excel = New-Object -ComObject Excel.Application
$excel.Visible = $false # Keep Excel hidden $excel.Visible = $false
$workbook = $excel.Workbooks.Open($downloadPath) $excel.DisplayAlerts = $false # Suppress Excel alerts
# Save as XLSX try {
$workbook.SaveAs($xlsxPath, 51) # 51 is the code for XLSX format $workbook = $excel.Workbooks.Open($downloadPath)
$workbook.Close()
$excel.Quit() # Save as XLSX
$workbook.SaveAs($xlsxPath, 51) # 51 = xlOpenXMLWorkbook (*.xlsx)
# Clean up COM objects $workbook.Close($false)
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel) | Out-Null }
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($workbook) | Out-Null finally {
Remove-Variable excel, workbook # Proper cleanup of Excel COM objects
$excel.Quit()
if ($workbook) {
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook) | Out-Null
}
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()
}
$script:txtStatus.Text += "Successfully converted to: $xlsxFileName`n" $script:txtStatus.Text += "Successfully converted to: $xlsxFileName`n"
} }
catch { catch {