PowershellでのExcel操作

Question

実現したいこと

powershellでExcelを操作してソート(かつ降順)

発生している問題・分からないこと

現状、単純にPowerShellでExcelを操作してソートする所までは到達しています。

問題は降順にするオプションの正しい記述を見つけられずに苦労しています。
(あえてこの方法を取るのが稀なようで、csv取り込みやExcel完結でVBAの利用ほど記述が見つかりません)

該当のソースコード

$excel = New-Object -ComObject Excel.Application
$excel.Visible = $true
$TargetBook = $excel.Workbooks.open("パス")
$sheet = $TargetBook.Worksheets.Item(1)
$sheet.Cells.NumberFormatLocal = "0_);[赤](0)"
$sheet.Cells.Item(3,4) = "=(B3+C3)/1024"
$sheet.Range("D3").copy($sheet.Range("D4:D53"))

# 以下からソートの箇所
$Range = $sheet.Range($sheet.Cells(3, 4), $sheet.Cells(3,4))

[void]$Range.Sort($Range.Columns.Item(1),1)

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

VBAのソートに関する記述を参考に変更を加えたのですが上手く動作させる事が出来ませんでした。

補足

PSVersion 5.1.19041.4412
Excel2016

Comments

[yambejp]

VBSの方がやりやすいのでは？

[NK.P0009]

yambejp様、コメントありがとうございます。

単純にソートだけならおっしゃる通りだと思うのですが、これ以外にも色々と処理をする中の一つに
組み込みたいのとどうしてもPowerShellで処理を済ませたいので、有識者の方にあえて
この手法で行う場合の知見をいただきたく質問させていただきました。

[dodox86]

> 問題は降順にするオプションの正しい記述を見つけられずに苦労しています。

まったく試していないしExcelのバージョンにもよるかもしれませんが
"-ComObject Excel.Application"ならVBAのリファレンスが参考になると思います。

[Range.Sort メソッド (Excel)] https://learn.microsoft.com/ja-jp/office/vba/api/excel.range.sort

これのOrder1/XlSortOrderがxlDescending、直値でいうところの2が降順でソート、なのではないでしょうか。

[void]$Range.Sort($Range.Columns.Item(1),1)
上記を、下記のように修正とか。
[void]$Range.Sort($Range.Columns.Item(1),2)

[NK.P0009]

dodox86様　コメントありがとうございます。

返信が遅くなりまして申し訳ありません。
回答に気を取られてコメントを見逃しておりました。

おっしゃる通り2に変更した事で降順でのソートになりました。
参考URLの紹介と合わせてありがとうございます。参考にさせていただきます。

Answer 1

降順

$Range.Sort($Range.Columns.Item(1),1)

• Excel.Range オブジェクトの Sort メソッドの引数 Order1 には XlSortOrder 列挙のいずれかのメンバー定数、または定数と同じ値を渡す。

• 昇順に並べ替える場合は定数 xlAscending （値 1 ）を渡す。

• 降順に並べ替える場合は定数 xlDescending （値 2 ）を渡す。

$excel = New-Object -ComObject Excel.Application
$excel.Visible = $true
$TargetBook = $excel.Workbooks.Open("C:\FolderName\FileName.xlsx")
$sheet = $TargetBook.Worksheets(1)
$TargetRange = $sheet.Range($sheet.Cells(3, 4), $sheet.Cells(53, 4))
$TargetRange.Formula = "=(B3+C3)/1024"
$TargetRange.NumberFormatLocal = "0_);[赤](0)"
$TargetRange = $sheet.Range($sheet.Cells(3, 1), $sheet.Cells(53, 4))
[void]$TargetRange.Sort($TargetRange.Cells(1, 4), 2)

Comments

[NK.P0009]

sk.exe様
ご回答ありがとうございます。

試したところ理想の挙動になりました。
ベストアンサーに選ばせていただきました。