從Excel工作表讀取值

Question

$filepath = "C:\Users\Desktop\New folder\Tangent.xlsx"
$sheetname = "sheet"
$objExcel = New-Object -ComObject Excel.Application
$objExcel.Visible = $false
$WorkBook = $objExcel.Workbooks.Open($filepath)
$WorkBook.sheets | Select-Object -Property Name
$WorkSheet = $WorkBook.Sheets.Item($sheetname)
$myObj = [PSCustomObject][ordered]@{
    john  = $WorkSheet.Range("B1").Text
    Rebel = $WorkSheet.Range("B2").Text
    MArk  = $WorkSheet.Range("B3").Text
    Susan = $WorkSheet.Range("B4").Text
    Patty = $WorkSheet.Range("B5").Text
}

我已經將所有名稱硬編碼到了代碼中，這是一種奇怪的方式。 我希望它從使用命令直接執行的Excel中讀取。 誰能幫我嗎？

Answer 1

創建一個空的哈希表，並在迭代Excel工作表中的行時填充它，然后創建對象。

$ht = @{}
$i = 1
while ($WorkSheet.Cells.Item($i, 1).Text) {
    $ht[$WorkSheet.Cells.Item($i, 1).Text] = $WorkSheet.Cells.Item($i, 2).Text
    $i++
}
$obj = [PSCustomObject]$ht

未經測試，因為我這里沒有Excel。