端末でWorkbooks.Open実行時にErr.numberの結果が異なる原因を知りたい

Question

前提・実現したいこと

異なる端末でVBAのWorkbooks.Open(フルパスファイル名, 0)の実行結果が異なり、
一方は、Err.Numberが0になるが、もう一方の端末は、Err.Numberが9になります。
Err.Numberが9になる端末についてもErr.Numberが0で返ってくるようにしたい。

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

Workbooks.Open(フルパスファイル名, 0)を実行するとErr.Numberが9になる端末がある。
同じファイルにも関わらず、もう一方の端末は、Err.Numberに0が返ってくる。

投稿後、追記
Set wb = Workbooks.Open(Me.Range("B6"), 0)のコードが実行されると
Err.Numberが9（インデックスが有効範囲にありません。）になるが、
ErrLabl:に飛ばず、Set ws = wb.Worksheets("sheet1")以降のコードが実行され、
If Err.Number <> 0 Thenの判定で、Err.Numberが9のため、
"データ取込対象のシートが存在しません。"のメッセージが表示される。

該当のソースコード

On Error GoTo ErrLabl

Dim wb As Workbook
Dim ws As Worksheet

errMsg = "" 

'B6セルにファイルのフルパスが入力されている。
Set wb = Workbooks.Open(Me.Range("B6"), 0)
Set ws = wb.Worksheets("sheet1")

Call ws.Range("H8:J16").Copy

Call ThisWorkbook.Worksheets("test").Cells(2, 3).PasteSpecial(xlPasteValues)

Application.CutCopyMode = False

ErrLabl:

If Err.Number <> 0 Then
    errMsg = "データ取込対象のシートが存在しません。"
End If

If Not wb Is Nothing Then
    Call wb.Close(False)
    Set wb = Nothnig
    Set ws = Nothing
End If

試したこと

どちらの端末も参照設定が同じことを確認。
どちらの端末も登録されている拡張子は表示しないにチェックが入っていることを確認。
Workbooks.Open(フルパスファイル名, UpdateLinks:=False )にしたが結果が変わらないことを確認
Workbooks.Openのコードのステップ実行直前は、Err.Numberが0で、
コードをステップ実行するとErr.Numberが9にはなるがファイルは開かれて、ErrLabl:に飛ばないことを確認。
投稿後、追記
エクセルのオプションが同じことを確認。

補足情報（FW/ツールのバージョンなど）

どちらの端末も以下のとおり。
OS:Windows7
Excel2007
投稿後、追記
開くファイルの拡張子は、xlsxで、VBAコードがないものです。

Comments

[otn]

9ということで、開くファイルに含まれるVBAがらみかも知れませんが、そのあたりはどうでしょうか？

[ttyp03]

コードはこれがすべてではないですよね？
Open()ではエラーになりますので。
掲載を省いたところに原因があるかもしれないので、関連しているコードは全て正しく載せるようにしてください。
もちろん見せられないコードは隠して結構です。

[dispatch_worker]

開くファイルは、xlsxファイルで、VBAコードは、ございません。
関連しているコードを全て載せました。

[radames1000]

特定のxlsxファイルだけエラーが出るのでしょうか。
他のxlsxファイルでは問題ありませんか？

[dispatch_worker]

申し訳ございません、問題の端末を頻繁に確認できる状態でなく、
他のxlsxではどうか確認できていません。
私の端末ではおきない（Err.numberが9にならない）ので、
開くファイルに問題はなく、
端末に依存する設定かなにかだと考えていますが、
調べても分からず困っております。

Answer 1

なんか、流れがおかしい気がします。

んと、エラーになったら変数に代入できないので、
その時点で存在確認は出来ているので、
エラーナンバーを確認しなくてもいいのでは？

Option Explicit

Sub test()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim sProm As String

    sProm = "正常に処理しました。"

    On Error Resume Next
    Set wb = Workbooks.Open(Me.Range("B6").Value, 0)
    Set ws = wb.Worksheets("Sheet1")
    On Error GoTo 0

    If ws Is Nothing Then
        sProm = "指定のワークシートが存在しません。"
    Else
        ws.Range("H8:J16").Copy
        ThisWorkbook.Worksheets("test").Cells(2, 3).PasteSpecial (xlPasteValues)
        Application.CutCopyMode = False
    End If

    If wb Is Nothing Then
        sProm = "指定のワークブックが存在しません。"
    Else
        wb.Close False
    End If
    
    MsgBox sProm
End Sub

ファイルやシートの存在確認は「とりあえず変数に代入してみる」で、
一応出来ますが、少し乱暴なので
もっとちゃんと自作関数を作って丁寧にするという考えもあります。
この辺のサンプルはネット上に落ちていると思います。

そもそも、文頭で

On Error GoTo ErrLabl

などとやって、エラーを処理しようとするから、
デバッグが難しくなるのであって、
開く前にファイルが存在するかくらいは確認すれば、
エラーは回避できますよね？

on errar ステートメントは出来るだけ使わないように
まずは考えましょう。
使うにしても限定的な使い方に絞った方がよいかと思います。

Comments

[dispatch_worker]

ご回答ありがとうございます。
ご提示頂いたエラーナンバーを確認しないコードに
書きなおせば、エラー回避できます。
最終的には、エラーナンバーを見ないコードに書き換えようと思っていましたが、
同じプログラムなのに、なぜ、Err.Numberが異なる端末において、
結果が違ってしまうのかわからず、質問した次第です。

[mattuwan]

なぜかは、こちらで動作確認が出来ない状態では、
代わりに調べることができないので、こちらではわかりません。
言えることは、端末により環境が違うからでしょう。
提示のコードではどの行でエラーが発生したかわからないので、
ファイルがないのかシートが無いのかその他の何のインデックスがないのか
の区別の判断材料がないのでわかりません。
ウォッチ式でエラーナンバーを監視してみれば、
どこでエラーが出ているかわかるかも知れませんね。

挙動が違うということは、何かの環境が違うという事でしょう。

Answer 2

Err.Numberが9になる端末

Err.Number 9は「インデックスが有効範囲にありません」ですね

よくあるのが以下ですね。
[ファイル]-[オプション]-[基本設定]-[新しいブックの作成時]-[ブックのシート数]
（※ Application.SheetsInNewWorkbook）
1になっている端末で、3を前提にした作りのマクロ(workbook.addしてworksheet(2)とかしている)をWorkbook_Open()で実行しているとかですかね。

Comments

[dispatch_worker]

ご回答ありがとうございます。
確認しましたが、同じ設定になっていました。

[Y.H.]

あらら:-(
openしようとしているファイルは、直接excelで開いて問題ないんですよね？

[dispatch_worker]

openしようとしているファイルを、
直接excelで開いて問題ございません。

Answer 3

エラーが発生後の行き先を下記にしたらどうでしょうか？

ErrLabl:
  If Err.Number <> 0 Then
    MsgBox Err.Number & vbCr & Err.Description
  End If