ＰｏｗｅｒＳｈｅｌｌ： Ｅｘｃｅｌブック検索時の条件を指定したい

Question

皆様、宜しくお願い致します。

###前提・実現したいこと

文字通り、Ｅｘｃｅｌブックを開いて、テキスト検索を
行いたい。
このとき、完全/部分一致、数式/値、半角/全角等の
検索条件を指定したい。

###発生している問題・エラーメッセージ

検索条件の指定方法がわからない。
参考にしたサイトより、FindとFindNextの引数として、何らかの書式で
指定すれば好いと思うのですが・・・・。

エラー１：

"FindNext" のオーバーロードで、引数の数が "9" であるものが見つかりません

エラー２：

Range クラスの FindNext プロパティを取得できません。
発生場所 E:\GitRoot\PS1\test_val.ps1:65 文字:13
+             ${FindResult} = $SheetName.Cells.FindNext(${FindResult})
+             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : OperationStopped: (:) [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException
 
HRESULT からの例外:0x800A01A8
発生場所 E:\GitRoot\PS1\test_val.ps1:69 文字:18
+             if ( ${FindFirst}.Address() -eq ${FindResult}.Address() )
+                  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : OperationStopped: (:) [], COMException
    + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

ポイントとなる処理：

        ${first} = ${result} = ${ws}.Cells.Find(${word})
        while (${result} -ne $null) {
            echo "${childPath}[${wsName}][$(${result}.Row), $(${result}.Column)] : $(${result}.Text)"
            ${result} = ${ws}.Cells.FindNext(${result})
            if (${result}.Address() -eq ${first}.Address()) {
                break
            }
        }

こんな感じ？？：

## After
set-variable -name After -value "`$A`$1" -option constant

## LookIn
set-variable -name xlFormulas -value -4123 -option constant
set-variable -name xlValues -value -4163 -option constant
#xlComments

## LookAt
set-variable -name xlWhole -value 1 -option constant
set-variable -name xlPart -value 2 -option constant

## SeachOrder
set-variable -name xlByColumns -value 2 -option constant
set-variable -name xlByRows -value 1 -option constant

## SearchDirection
set-variable -name xlNext -value 1 -option constant
set-variable -name xlPrevious -value 2 -option constant

## MatchCase (True or False)
set-variable -name MatchCase -value $false -option constant

## MatchByte (True or False)
set-variable -name MatchByte -value $false -option constant

## SearchFormat (True or False)
set-variable -name SearchFormat -value $false -option constant


$LookIn = $xlValues #値
$LookAt = $xlPart #部分一致
$SeachOrder = $xlByColumns #列方向に検索
$SearchDirection = $xlNext #全方向に検索

Find(${word},$After,$LookIn,$LookAt,$SeachOrder,$SearchDirection,$MatchCase,$MatchByte,$SearchFormat)

###結果（解決）

		      ${FindFirst} = ${FindResult} = `
						${SheetName}.Range(${CellRange}).Find(${xText},${FirstCell},${LookIn},`
						${LookAt},${SeachOrder},${SearchDirection},${MatchCase},${MatchByte},`
						${SearchFormat})

${SheetName} ： シート名。オープンしたブックから取得するか、事前設定。
${CellRange} ： セル範囲。お約束。Rangeの代わりにCellsでも好いと思うけど、範囲絞る方が？！
${xText} ： 検索語句
${FirstCell} ： 検索開始位置となるセル番号。
${FindFirst} ： 初回検索結果を格納。取得できない時はNull。AddressやらRowやら全部入り。
${FindResult} ：二回目以降の検索結果を格納。取得できない時は・・・以下同文。

###参考にした情報

PowerShellで複数のExcelファイルを一括検索する
http://qiita.com/nejiko96/items/b423e2dda90181ef524e

条件に当てはまるセルを検索する(Find/FindNext/FindPreviousメソッド)
https://www.moug.net/tech/exvba/0050116.html

###補足情報(言語/FW/ツール等のバージョンなど)

Name Value

---

PSVersion 5.0.10586.63
PSCompatibleVersions {1.0, 2.0, 3.0, 4.0...}
BuildVersion 10.0.10586.63
CLRVersion 4.0.30319.42000
WSManStackVersion 3.0
PSRemotingProtocolVersion 2.3
SerializationVersion 1.1.0.1

Answer 1

参考にされたmougにFindメソッドが掲載されてますが、Excel特有の定数がそのままでは使えません。

Excelで例えば"Something"を完全一致で探すとこんな感じになります。

Sub 探す()
    探し物 = "Something"
    アドレス = Sheets(1).Cells.Find(探し物, , , xlWhole).Address
    MsgBox アドレス 'C3が返る
End Sub

で、PowerShellに移植する際はxlWholeを1に直します。

つまり、定数の値が何であるかという情報を調べる必要がありますね。

Excel VBAのVBEditorでCtrl+Gを押すとイミディエイトウインドウが表示されるので、「?xlWhole」と入力してEnterしてみると1が返ります。

「?xlPart」なら2が返ります。

そうやって、mougに書いてある定数を数字に直してPowerShell側で書き換えるとうまく動くと思います。

Comments

[退会済みユーザー]

コメントいただきまして、ありがとうございます。

定数を数値にすることができました。
一歩？前進したように思います。

Answer 2

解決しました。

ごく単純に、$Afterを、検索開始したいセル番号にするだけでした。
（Ａ１から開始なら、Ａ１）