Command to retrieve all non-empty block-content from Excel workbooks? - excel

Question

I have a sheet DataRepo about the size of 300 rows and 10 rows, about 300 such Excel files in XLSX format. I need to read each Excel file and store it as a CSV (because original XLSX files are corrupted with KeyError, other methods in Python/R resulting to KeyError unless resaving manually with Excel).
I am currently using $Sheet.Cells.Item(row, col).Text to get single value as text but the need over the whole block: either I need to 2-loop over the block and save it CSV or find some ready method for the $Sheet, any ready PowerShell method available? Which looping options available in PowerShell?
How can I retrieve all non-empty content in an Excel sheet with PowerShell?
$XLSDoc = 'C:\Users\hhh\Desktop\1.xlsx'
$SheetName = "DataRepo"
$Excel = New-Object -ComObject "Excel.Application"
$Workbook = $Excel.Workbooks.Open($XLSDoc)
$Sheet = $Workbook.Worksheets.Item($SheetName)
#Get data:
$Sheet.Cells.Item(1,2).Text
Can I do something similar to VBA in PowerShell?
Dim i As Integer
Dim j As Integer
i = 1
j = 1
Do While i < 10
Do While j < 10
Sheet.Cells.Item(i, j).Text
j = j + 1
Loop
i = i + 1
Loop

Answer 1

Use something like this to export each worksheet to a separate CSV:
$wbName = $Workbook.Name
$wbPath = $Workbook.Path
$Workbook.Worksheets | ForEach-Object {
$csvName = Join-Path $wbPath ('{0}_{1}.csv' -f $wbName, $_.Name)
$_.SaveAs($csvName, 6)
}

Answer 2

The following code creates a function out of the code here and then loop over all of the xlsx files in the directory, replacement and trimming added to avoid 216 chars limit per file. Then it outputs the CSV files to the directory of each sheet.
Function ExportXLSXToCSVs ($XLSDoc)
{
$Excel = New-Object -ComObject "Excel.Application"
$Workbook = $Excel.Workbooks.Open($XLSDoc)
$wbName = $Workbook.Name
$wbPath = $Workbook.Path
$Workbook.Worksheets | ForEach-Object {
$csvName = Join-Path $wbPath ('{0}_{1}.csv' -f $wbName, $_.Name)
#Trim/replacements added to avoid the limit 216 chars per file
$csvName = $csvName.Trim().Replace(" ", "")
$_.SaveAs($csvName, 6) #CSV
}
}
#DEMO 1 over a single file
#ExportXLSXToCSVs('C:\Users\hhh\Desktop\1.xlsx')
#DEMO 2 over all files in a directory
Get-ChildItem "C:\Users\hhh\Desktop\Data\" -Filter *.xlsx | ForEach-Object {
$myFile = $_.DirectoryName +"\"+ $_.Name
ExportXLSXToCSVs($myFile)
}