0

次のエラー ハンドラーが機能していない場合でも、「IsError」変数が定義されていないという例外がスローされます。

  If not IsError(objExcel1.Application.Match(ParentID, ob3.Columns(1), 0)) Then    
    ParentMatchRowNum = objExcel1.Application.Match(ParentID, ob3.Columns(1), 0)
  Else
     '-- do something
  End if

スナップショット

ここに画像の説明を入力

ここで私を助けてください、それを修正する方法はありますか?

ありがとう、

4

1 に答える 1

2

私の知る限り、IsErrorはVBscript関数ではありません。裏付けとなる証拠：VBScript関数とVBScript関数の使用。あなたIsErrorは行方不明に注意するでしょう。

代わりに、エラートラップを実行する必要があります。このようなものが適しているはずです。

On Error Resume Next
ParentMatchRowNum = objExcel1.Application.Match(ParentID, ob3.Columns(1), 0)
If err then
   err.clear
   'Do something
end if
on Error Goto 0
于 2012-12-24T04:24:14.093 に答える