ＶＢアプリでExcelファイル内の文字が置換された事を確認する方法

質問

環境：OS.Win2000、Excel2000VBA

ＶＢアプリでフォルダ、検索文字列、置換文字列を入力するとExcelファイ
ルを探し出し、順に置換していく処理をしようと思っています。置換した
ファイルの名前をリストにするため置換されたかどうか必要があります。
しかし.Replaceメソッドは置換に成功しても失敗してもTrueを返すとなっ
ています。

そこで検索にヒットしたファイルを置換すればいいのではと思い以下のよ
うにテストしてみました（この様な使い方をして良いのか解りませんが）

Dim ChkVal As Boolean
Dim a

'検索
Set ret = xlBook.Application.Cells.Find(What:=Text1.Text, _
After:=xlApp.ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False)

a = ret.Value '！！！エラー発生ポイント
'Emptyかチェックする
ChkVal = IsEmpty(a)
If ChkVal <> True Then
MsgBox "見つけた"
Else
MsgBox "なし"
End If

動作結果
(1)テキストボックスに何も入力せず実行 ⇒ 正常に動作
(2)ファイル内に存在する文字列を入力して実行 ⇒ 正常に動作
(3)ファイル内に存在しない文字列を入力して実行 ⇒ 異常終了

(3)では「オブジェクト変数または With ブロック変数が設定されていませ
ん(Error 91)」とでます。

そこで質問です。
1.置換されたか確認するには、どのような方法が適当か
2.動作結果の(2)ではエラーにならないのに(3)ではなぜエラーになるのか
3.検索⇒置換⇒置換されたファイルの一覧作成という流れを皆さんだったら
どのような組み立てをするか

質問が複数になってしまいましたがよろしくお願いします。

回答No.3

tsukasa-12r · ベストアンサー

＞しかしExcelのＶＢＡでNothingを比較できても、ＶＢ６ではNothingを式で
＞使う事はできないので困ってしまっています。

そうですか？

Set ret = xlBook.Application.Cells.Find(What:=Text1.Text, _
After:=xlApp.ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False)

If ret Is Nothing Then
MsgBox "なし"
Else
MsgBox "見つけた"
End If

としてみてください。正しく判定できると思うのですが・・・。（一応、ＶＢ６で確認しました。）

お礼

まさに今そこの部分を調べていたところです。おっしゃる通り目的の動作
をしてくれました。tsukasa-12rさん最後まで丁寧に教えて下さって有り
難うございます。

回答No.2

tsukasa-12r

失礼しました。勘違いしていたのは私の方でした。m(_ _)m

以前、開いている全てのワークブックの全てのワークシートに対して Replace 処理を行うマクロを作ったことがあったのですが、今、見てみたら、
(1) Find で検索
(2) 戻り値が Nothing かどうかをチェック
　　戻り値が Nothing でなければ Replace
という処理をしていました。

補足

いえいえ、とんでもありません。やはりNothingを見てますよね。
しかしExcelのＶＢＡでNothingを比較できても、ＶＢ６ではNothingを式で
使う事はできないので困ってしまっています。この辺を詳しくご存知でした
ら教えてください。

回答No.1

tsukasa-12r

＞しかし.Replaceメソッドは置換に成功しても失敗してもTrueを返すとなっています。

何か勘違いされているような気がします。
Excel 2002 ですが、ヘルプで調べてみたら

＞Replace 関数の戻り値は次のとおりです。
＞
＞条件 　　　　　　　　　　　　　Replace の戻り値
＞expression is zero-length　　長さ 0 の文字列 ("")
＞expression is Null 　　　　　　エラー
＞find is zero-length 　　　　　expression のコピー
＞replace is zero-length 　　　find がすべて削除された ＞expression のコピー
＞start > Len(expression) 　　　長さ 0 の文字列 ("")
＞count is 0 　　　　　　　　　　expression のコピー

となっていました。たしか、Excel 2000 でも同じだったと思います。

＞2.動作結果の(2)ではエラーにならないのに(3)ではなぜエラーになるのか

2. では、何も入力されていないセル（空白のセル）がヒットして ret に空白のセルが返ってくるが、3. だと ret は Nothing になってるので、Nothing の ret に対して .Value を参照しようとしてもできなくてエラーになるんですね。

お礼

Replace関数の方では確かに戻り値が複数設定されていますが、この場合は
Replaceメソッドです。

""で空白の行が見つかったという事になるんですか・・・しっくり来ました
有り難うございます。