PowershellでのExcel操作

実現したいこと

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

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

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

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

該当のソースコード

powershell
1
2$excel = New-Object -ComObject Excel.Application
3$excel.Visible = $true
4$TargetBook = $excel.Workbooks.open("パス")
5$sheet = $TargetBook.Worksheets.Item(1)
6$sheet.Cells.NumberFormatLocal = "0_);[赤](0)"
7$sheet.Cells.Item(3,4) = "=(B3+C3)/1024"
8$sheet.Range("D3").copy($sheet.Range("D4:D53"))
9
10# 以下からソートの箇所
11$Range = $sheet.Range($sheet.Cells(3, 4), $sheet.Cells(3,4))
12
13[void]$Range.Sort($Range.Columns.Item(1),1)

試したこと・調べたこと

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

上記の詳細・結果

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

補足

PSVersion 5.1.19041.4412
Excel2016

yambejp

2024/05/24 03:02

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

NK.P0009

2024/05/24 04:07

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

dodox86

2024/05/24 04:34

> 問題は降順にするオプションの正しい記述を見つけられずに苦労しています。まったく試していないし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

2024/05/24 06:58

dodox86様　コメントありがとうございます。返信が遅くなりまして申し訳ありません。回答に気を取られてコメントを見逃しておりました。おっしゃる通り2に変更した事で降順でのソートになりました。参考URLの紹介と合わせてありがとうございます。参考にさせていただきます。

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

回答1件

ベストアンサー

降順

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

Excel.Range オブジェクトの Sort メソッドの引数 Order1 には XlSortOrder 列挙のいずれかのメンバー定数、または定数と同じ値を渡す。
昇順に並べ替える場合は定数 xlAscending （値 1 ）を渡す。
降順に並べ替える場合は定数 xlDescending （値 2 ）を渡す。

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