Question

如果我正在运行此代码，则会收到错误消息。我想读取用户的活动目录数据，如用户名，名称，邮件，并将这些信息附加到xlsx文件中，以进行许可证跟踪和订购。

$user = Read-Host "Username"
$data = Get-ADUser -Identity $user -Properties * | select SamAccountName,AdminDisplayName,EmailAddress
$user = $data.SamAccountName
$name = $data.AdminDisplayName
$mail = $data.EmailAddress
$clo = Read-Host "Alter Computername (Nur bei Übertrag)"
$cln = Read-Host "Neuer Computername"

if ($clo -ne '') {
    $out = "Übertrag: $($user), $($name), $($mail), Alter PC: $($clo), neuer PC: $($cln)"
}else {
    $kst = Read-Host "Kostenstelle"
    $out = "$($user), $($name), $($mail), PC: $($cln), KST: $kst"}




$excel_file_path = '"##PATHTOFILE#CENSORED#\test.xlsx"'

## Instantiate the COM object
$Excel = New-Object -ComObject Excel.Application
$ExcelWorkBook = $Excel.Workbooks.Open($excel_file_path)
$ExcelWorkSheet = $Excel.WorkSheets.item("Tabelle1")
$ExcelWorkSheet.activate()

## Find the first row where the first 7 columns are empty
$row = ($ExcelWorkSheet.UsedRange.Rows | ? { ($_.Value2 | ? {$_ -eq $null}).Count -eq 7 } | select -first 1).Row
$ExcelWorkSheet.Cells.Item($row,1) = 'COLUMN 1 Text'
$ExcelWorkSheet.Cells.Item($row,2) = 'COLUMN 2 Text'
$ExcelWorkSheet.Cells.Item($row,3) = 'COLUMN 3 Text'
$ExcelWorkSheet.Cells.Item($row,4) = "$out"
$ExcelWorkSheet.Cells.Item($row,5) = 'COLUMN 5 Text' 
$ExcelWorkBook.Save()
$ExcelWorkBook.Close()
$Excel.Quit(
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel))
Stop-Process -Name EXCEL -Force

Answer 1

以下指令对我来说不会为$ row返回任何值：

$row = ($ExcelWorkSheet.UsedRange.Rows | ? { ($_.Value2 | ? {$_ -eq $null}).Count -eq 7 } | select -first 1).Row

我尝试使用循环浏览工作表，直到找到前7列为空的行。它似乎正在工作。

$lastrow = $ExcelWorkSheet.UsedRange.Rows.Count

for ($row = 1; $row -le $lastrow; $row ++) {
    $test = $true
    foreach ($col in 1..7) {$test = $test -and ($ExcelWorkSheet.Cells.Item($row,$col).Value2 -eq $null)}
    if ($test) {break}
    }

使用Powershell将行附加到Excel文件时出错

1 个答案: