如何将 Powershell 对象属性值返回到 Excel 单元格

Question

所以我正在运行一个 Powershell 脚本，它将返回指定文件夹中所有共享文件夹的所有用户及其访问权限。我的问题是，我试图让 Powershell 将信息直接转储到打开的 excel 文件中。到目前为止，脚本运行输出到具有正确信息的 CSV 文件，但是当我尝试将其转储到 excel 中时，它不起作用。这是因为我不知道如何将单元格值设置为 Object 属性值。

这是代码

#Get Folder Permissions

$xl = [Runtime.Interopservices.Marshal]::GetActiveObject('Excel.Application')
$targetWBpath = 'C:\<Path>\test_dump.xlsx'
$targetWbName = Split-Path $targetWbpath -Leaf
$targetWB = $xl.Workbooks.Item($targetWBName)
$targetWS = $targetWB.Sheets.Item('Test_1')
$cells = $targetWS.Cells
$row = 1
$col = 1

"User","Folder","Access" | foreach {
    $cells.item($row,$col)=$_
    $cells.item($row,$col).font.bold=$True
    $col++
}

$row = 2

Get-childitem "<Path to Target Folder>" -recurse | where{$_.psiscontainer} |

Get-Acl | % {

$path = $_.Path

$_.Access | % {

New-Object PSObject -Property @{

Folder = $path.Replace("Microsoft.PowerShell.Core\FileSystem::","")

Access = $_.FileSystemRights

User = $_.IdentityReference

} 

$col = 1
$cells.item($row,$col) = User <How do I get the Property Value Here for the User property>
$col++
$cells.item($row,$col) = Folder <How do I get the Property Value Here for the Folder property>
$col++
$cells.item($row,$col) = Access <How do I get the Property Value Here for the Access property>
$col++
$row++
}
}

$xl.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($xl)

如果我能弄清楚如何执行 Foreach 循环来检索属性值，那就太好了，但我也想不通。仅供参考，这是我的第一个 Powershell 脚本，所以如果这是一个不那么具有挑战性的问题，我深表歉意。 总体目标是从 VBA 脚本调用它，并将输出放在运行脚本的工作簿中。

谢谢你的帮助，京东

Answer 1

我对 Excel 互操作的工作不多，但就访问属性而言，您需要先将对象分配给一个变量，然后才能引用其属性：

$aclObj = New-Object PSObject -Property @{
  Folder = $path.Replace("Microsoft.PowerShell.Core\FileSystem::","")
  Access = $_.FileSystemRights
  User = $_.IdentityReference
} 

那么，访问它们很简单：

$col = 1
$cells.item($row,$col) = $aclObj.User
$col++
$cells.item($row,$col) = $aclObj.Folder
$col++
$cells.item($row,$col) = $aclObj.Access
$col++

或者，你真的需要创建一个对象吗？如果这就是您要做的全部，为什么不直接将您想要的值分配给 Excel？

$_.Access | % {
  $col = 1
  $cells.item($row,$col) = $_.IdentityReference
  $col++
  $cells.item($row,$col) = $path.Replace("Microsoft.PowerShell.Core\FileSystem::","")
  $col++
  $cells.item($row,$col) = $_.FileSystemRights
  $row++
}