PowerShellでExcel画面を最前面に

質問

PowerShellを使いExcel操作の方法を勉強しております。別のソフトからPowerShellのコマンドをps1ファイルにエクスポートしスクリプトを実行することによりExcelを開いたり閉じたり等の簡単な操作までは出来るのですが、Excelがアクティブになっているにもかかわらずスクリプトを実行したプログラムの後ろになったままです。2つだけの場合実行プログラムを最小化するように設定すればどうにかExcelだけがウィンドウに残るのでなんとかなるのですが、他のプログラムも同時に実行している場合後ろになったままです。
VBScriptの場合
Createobject("WScript.Shell").AppActivate("VBS_01.xlsx")
で最前面になりますがPowerShellの場合どうすれば出来るのか御教示お願いします。

回答No.3

ballville · ベストアンサー

これでもいけます
add-type -assembly microsoft.visualbasic
[microsoft.visualbasic.interaction]::AppActivate("ウインドウのタイトル")

お好きなほうで

お礼

色々ご迷惑をおかけします。出来ました！！
# Excelを操作する為の宣言
$excel = New-Object -ComObject Excel.Application
# 可視化する
$excel.Visible = $true

# 既存のExcelファイルを開く
$book = $excel.Workbooks.Open("I:\TEST\ABC.xlsx")
$book.AppActivate("I:\TEST\ABC.xlsx")
#シートの選択
$sheet = $excel.Worksheets.Item(2)
#選択したシートをアクティブに
$sheet.Activate()
#セル番号を指定してテキストを書き込む
$sheet.Cells.Item(3,6) = "PowerShellでExcelファイル1939"
# Excelを前面に
add-type -assembly microsoft.visualbasic
[microsoft.visualbasic.interaction]::AppActivate("ABC.xlsx")
#変数を開放(消去)
Remove-Variable excel
[GC]::Collect()
PowerShellからVB.NETの機能・・何とか迄は検索で出ていたのですが、当方のプログラムの知識レベル皆無に等しため全く内容が理解できず、直接的表現であちこち探し回り質問に至った次第です。本当に有難うございます。

回答No.2

ballville

>new-object -com ("WScript.Shell").AppActivate("I:\TEST\ABC.xlsx")
↓↓↓↓↓↓↓↓↓↓↓↓↓↓
(new-object -com "WScript.Shell").AppActivate("I:\TEST\ABC.xlsx")

補足

度々の回答有難うございます
(new-object -com "WScript.Shell").AppActivate("I:\TEST\ABC.xlsx")
は最初に追加して出来なかったので、何か間違っていたのか試行した最後のものをそのままコピペしたもので申し訳ありません。

回答No.1

ballville

vbsと同じです。
(new-object -com "WScript.Shell").AppActivate("VBS_01.xlsx")

補足

早速の回答有難うございました。下記のようにコマンドを書き
# Excelを操作する為の宣言
$excel = New-Object -ComObject Excel.Application
# 可視化する
$excel.Visible = $true
# 既存のExcelファイルを開く
$book = $excel.Workbooks.Open("I:\TEST\ABC.xlsx")
new-object -com ("WScript.Shell").AppActivate("I:\TEST\ABC.xlsx")　#追加したコマンド
#シートの選択
$sheet = $excel.Worksheets.Item(2)
#選択したシートをアクティブに
$sheet.Activate()
#セル番号を指定してテキストを書き込む
$sheet.Cells.Item(3,6) = "PowerShellでExcelファイル1939"
#変数を開放(消去)
Remove-Variable excel
[GC]::Collect()
試してみました。
結果、残念ながら最前面にはなりませんでした。コードの書き方が間違っている気がする
$を付けないといけない？
# 最前面に表示：する
$form.Topmost = $True
みたいに
VBSの場合には直接、コマンドのエクスポートと同時にVBSファイルを実行が出来ましたが、PowerShellの場合エクスポートと同時にPS1ファイルが起動できないため新たに起動命令を入れる必要がある等条件が違うので何とも言えない環境ですが・・
なお、前の方法でも最小化の前にスクリプト停止時間を加えると最前面ではないが2番目になるのでExcelが前面になる。