将代码从 Excel 宏转换为 PowerShell答案

【问题标题】：Convert code from Excel Macro to PowerShell将代码从 Excel 宏转换为 PowerShell
【发布时间】：2015-07-07 22:58:27
【问题描述】：

我在 Excel 中打开一个 CSV 文件并运行此宏来更改背景颜色。我正在尝试将这部分代码转换为 PowerShell。

   lrow = Range("G" & Rows.Count).End(xlUp).Row
    Set MR = Range("G2:G" & lrow)
    For Each cell In MR
        If UCase(Trim(cell.Value)) = "FALSE" Then
            cell.Interior.ColorIndex = 3
        End If
    Next

将此代码转换为 PowerShell 的任何帮助。

谢谢 SR

【问题讨论】：

标签： excel powershell vba

【解决方案1】：

你可以这样写：

$objExcel = New-Object -ComObject Excel.Application

$objExcel.Visible = $true
$objExcel.DisplayAlerts = $false

$filePath = "c:\logs\2015-04-23.csv"

$xlsFilePath = Get-Item -Path $filePath | % { Join-Path (Split-Path $_ -Parent) "$($_.BaseName).xls" } 

$workBook = $objExcel.Workbooks.Open($filePath)
$workSheet = $WorkBook.sheets | select -First 1

$xlup = -4162

$lrow = $workSheet.cells.Range("G" + $workSheet.Rows.Count).End($xlup).Row

$workSheet.cells.Range("G2:G" + $lrow) | % { 
    $value = $_.Text
    if($value.ToUpper() -eq "TRUE"){
       $_.Interior.ColorIndex = 3 
    }
}

$WorkBook.SaveAs($xlsFilePath, 18) 
$objExcel.Quit()

如果您有一个非常大的文件，使用 powershell 搜索值然后更新 Excel 工作表会更快。下面的例子看起来有点滑稽，但执行起来要快得多。

$filePath = "c:\logs\2015-04-23.csv"

$rowAliases = 97..122 | foreach { ([char]$_).ToString().ToUpper() }
$selectedRow = "G"
$selectedName = (Get-Content $filePath -ReadCount 1 -TotalCount 1).Split(",")[$rowAliases.IndexOf($selectedRow)]
$startRow = 2
$rowCount = 1;

$objExcel = New-Object -ComObject Excel.Application

$objExcel.Visible = $true
$objExcel.DisplayAlerts = $false

$xlsFilePath = Get-Item -Path $filePath | % { Join-Path (Split-Path $_ -Parent) "$($_.BaseName).xls" } 

$workBook = $objExcel.Workbooks.Open($filePath)
$workSheet = $WorkBook.sheets | select -First 1

Import-Csv -Path $filePath | % {

    if($rowCount -ge $startRow){
        [string]$value = $_ | select -ExpandProperty $selectedName

        if($value.ToUpper() -eq "TRUE"){
            $workSheet.cells.Item($rowCount + 1, $selectedIndex + 1).Interior.ColorIndex = 3 
        }
    }

    $rowCount ++
}

$WorkBook.SaveAs($xlsFilePath, 18) 
$objExcel.Quit()

【讨论】：