powershellでExcelワークシートの最終行を取得する方法

powershellでExcelワークシートの最終行を取得する方法を模索しています。

VBAでは下記のとおりにコードを書くことで、最終行を簡易にかつ、高速に取得することができました。

VBA
1Cells(Rows.Count, 1).End(xlUp).Row

そのため、powershellでもComObjectを使用し、下記のとおりにコードを書いて実行しました。

powershell(ComObject使用)
1$excel = New-Object -ComObject Excel.Application
2$excel.Workbooks.Open("C:\work\sample.xls")
3$excel.Cells($excel.Rows.Count, 1).End($excel.xlUp).Row

結果、下記のとおり、エラーとなってしまいます。

HRESULT からの例外:0x800A03EC
発生場所 C:\work\GetSendList.ps1:14 文字:1
+ $excel.Cells($excel.Rows.Count, 1).End($excel.xlUp).Row
    + CategoryInfo          : OperationStopped: (:) [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

■質問事項
A.どのようにすればエラーを回避することが可能でしょうか？
B.（Aの回避策が無い場合）他の代替え方法で、
最終行を極力簡易に、かつ、高速に取得する方法はないでしょうか？

■環境
powershell：5.0.10240.16384
OS：Windows 10 Home

以上、よろしくお願いいたします。

行動規範の内容に同意します

回答1件

ベストアンサー

VBAとPowerShellは全く別物なので操作も別物と考えてください。

比較的近いやり方だと以下のようになります。

# Excelを起動する
$excel = New-Object -ComObject Excel.Application

# ブックを開く
$book = $excel.Workbooks.Open("C:\work\sample.xls")

# シートを取得
$sheet = $book.Worksheets.Item(1)

# 最終行の行数取得
$lastRowIndex = $sheet.UsedRange.Rows.Count

# 最終行を取得
$lastRow = $sheet.UsedRange.Rows.Item($lastRowIndex)

# カンマで結合して出力
Write-Output ($lastRow.Formula -join ",")

# Excelを終了する
$excel.Quit()
[System.Runtime.InteropServices.Marshal]::FinalReleaseComObject($excel) | Out-Null

PowerShellらしくやるなら

# Excelを起動する
$excel = New-Object -ComObject Excel.Application

# ブックを開く
$excel.Workbooks.Open("C:\work\sample.xls") | %{
    # シートを取得
    $_.Worksheets| %{
        # 最終行を取得
        $_.UsedRange.Rows.Item($_.UsedRange.Rows.Count) | %{
            # カンマで結合して出力
            Write-Output ($_.Formula -join ",")
        }
    }
}

# Excelを終了する
$excel.Quit()
[System.Runtime.InteropServices.Marshal]::FinalReleaseComObject($excel) | Out-Null

注：こちらは全シート分の最終行が出るようにしています。

投稿2015/09/01 02:39

編集2015/09/01 02:40