EXCEL2007ではOKですが2003だとエラーになる

質問

よろしくお願いします。
下記のコード（抜粋）がエクセル2007では全く問題なく動くのに、2003だとエラーになってしまうというもので困ってしまいました。
下記は二つのファイルの構成を比較して（OLDBOOKのシートをNEWBOOKと同じ構成にする）追加、削除、並び替えを行うというものです。
残念ながら、当方2003を持ってないので確認が出来ません。（当然配布は互換形式）
各配布先で試してもらったところ、2007のところは問題なし。2003のところはすべてエラーとなり、エラー箇所は抜粋している範囲のさらに2つのファイルを比較し、必要に応じて追加、削除を行う部分です。
Set shDst = OLDBOOK.Sheets(shSrc.Name)
と
Set shSrc = NEWBOOK.Sheets(shDst.Name)
の部分で「454のオブジェクトエラー」となるとのことでした。原因は、そこにあると思いましたが、2007では問題ないので、何が悪いのかさっぱりです。どなたか助けて下さい。

Dim FIRSTBOOK As Workbook
Dim OLDBOOK As Workbook
Dim shSrc As Object
Dim shDst As Object
～省略 ～
'現在の再計算モードの取得
iOldCalculation = Application.Calculation

'再計算モードを手動に設定
Application.Calculation = xlManual

'*****ここから比較*****

' // まず NEWBOOK.xls にあって OLDBOOK.xls にないシートをOLDBOOK.xls に複写
For Each shSrc In NEWBOOK.Sheets
On Error Resume Next
Set shDst = OLDBOOK.Sheets(shSrc.Name)
On Error GoTo 0
If shDst Is Nothing Then
shSrc.Copy After:=OLDBOOK.Sheets(OLDBOOK.Sheets.Count)
End If
Set shDst = Nothing
Next

' // 続いてNEWBOOK.xls　になくてOLDBOOK.xls にあるシートをOLDBOOK.xls　から削除
For Each shDst In OLDBOOK.Sheets
On Error Resume Next
Set shSrc = NEWBOOK.Sheets(shDst.Name)
On Error GoTo 0
If shSrc Is Nothing Then
shDst.Delete
End If
Set shSrc = Nothing
Next

' // シート並べ替え
For Each shDst In OLDBOOK.Sheets
shDst.Move Before:=OLDBOOK.Sheets(NEWBOOK.Sheets(shDst.Name).Index)

shDst.Protect DrawingObjects:=True, Contents:=True, UserInterfaceOnly:=True
Next

'再計算モードの復元
Application.Calculation = iOldCalculation

NEWBOOK.Close (False) '有無を言わずに保存せず閉じる

～省略 ～

回答No.3

redfox63 · ベストアンサー

解決したのであればいったん質問は閉じて新たな質問を投稿した方がいいように思います
というのも、このまま続けていくと他の回答者の目に止まらないかも知れません

私よりもっとスマートなやり方をご存知の方がいる可能性もありますので

> 配列を使わないで ・・・
の部分をもう少し掘り下げて質問した方がご希望により近い回答が得られそうですよ

たとえば シートの並び順がこのようになっていて シートのIndexがこんな感じになっている
これを これこれこのように並び替えたい
といった 具体的な 元データ、希望する結果、現行のコードなどを明示しましょう
また質問の際には 開発環境/実行環境などの情報もお忘れなく

お礼

すいません。今見ました。
そうですね。一旦閉じます。最後まで丁寧に助言頂き、有難うございます。またよろしくお願いします。

回答No.2

redfox63

全く同じではないですが 下記のコードで検証したところ
別段問題なく 2003/2007ともに時実行できました

また インディエイトに表示されるのは
9 インデックスが有効範囲にありません。
といったメッセージです

Option Explicit

Sub Check()
　　Dim newWB As Workbook, oldWB As Workbook
　　Set newWB = Workbooks("NewBook.xls")
　　Set oldWB = Workbooks("OldBook.xls")
　　'Dim shSrc As Worksheet, shDst As Worksheet
　　Dim shSrc As Object, shDst As Object
　　Dim r As Range

　　newWB.Worksheets("Sheet1").UsedRange.Clear
　　Set r = newWB.Worksheets("Sheet1").Range("A1")
　　// OLDBOOKに無いものをコピー
　　For Each shSrc In newWB.Sheets
　　　　On Error GoTo ErrTrap
　　　　Set shDst = Nothing
　　　　Set shDst = oldWB.Worksheets(shSrc.Name)
　　　　On Error GoTo 0
　　　　r.Value = shSrc.Name
　　　　If shDst Is Nothing Then
　　　　　　r.Offset(0, 1).Value = shSrc.Name
　　　　　　shSrc.Copy after:=oldWB.Sheets(oldWB.Sheets.Count)
　　　　End If
　　　　Set r = r.Offset(1)
　　Next

　　Set r = r.Offset(1)
　　// NEWBOOKに無いものをコピー
　　For Each shSrc In oldWB.Sheets
　　　　On Error GoTo ErrTrap
　　　　Set shDst = Nothing
　　　　Set shDst = newWB.Worksheets(shSrc.Name)
　　　　On Error GoTo 0
　　　　r.Offset(0, 1).Value = shSrc.Name
　　　　If shDst Is Nothing Then
　　　　　　r.Value = shSrc.Name
　　　　　　shSrc.Copy after:=newWB.Sheets(newWB.Sheets.Count)
　　　　End If
　　　　Set r = r.Offset(1)
　　Next
　　Exit Sub
ErrTrap:
Debug.Print Err.Number, Err.Description
Resume Next
End Sub

shSrc、shDstをWorkSheetで型指定しても動作は変わらずでした

>「454のオブジェクトエラー」
の454って 何でしょう
Err.Number ってことですか … そうなると相手はMACかなってことですが

お礼

原因が解りました。まったく別の問題で、メモリーの問題でした。シート数が約30枚を超えるとシートカウントが狂うようです。シートには数式がぎっしり詰まっており。それを配列処理させているので重くて途中からシートの認識が狂うようです。（今回のコードとは別にシートを貼り付けて行く作業で検証したところ　ワークシートカウントが1から順次進み30の次に7になってしまう）←シート50枚あるにもかかわらず。
たまたま2003を使用している営業所は社員数（社員数分のシート数）が多いところでしたので、2007と2003の違い？と思い込んでしまいました。お騒がせいたしました。誠に申し訳ありません
' // まず NEWBOOK.xls にあって OLDBOOK.xls にないシートをOLDBOOK.xls に複写
For Each shSrc In NEWBOOK.Sheets
On Error Resume Next
Set shDst = OLDBOOK.Sheets(shSrc.Name)
On Error GoTo 0
If shDst Is Nothing Then
shSrc.Copy After:=OLDBOOK.Sheets(OLDBOOK.Sheets.Count)
End If
Set shDst = Nothing
Next

' // 続いてNEWBOOK.xls　になくてOLDBOOK.xls にあるシートをOLDBOOK.xls　から削除
For Each shDst In OLDBOOK.Sheets
On Error Resume Next
Set shSrc = NEWBOOK.Sheets(shDst.Name)
On Error GoTo 0
If shSrc Is Nothing Then
shDst.Delete
End If
Set shSrc = Nothing
Next

' // シート並べ替え
For Each shDst In OLDBOOK.Sheets
shDst.Move Before:=OLDBOOK.Sheets(NEWBOOK.Sheets(shDst.Name).Index)

shDst.Protect DrawingObjects:=True, Contents:=True, UserInterfaceOnly:=True
Next
これと同じことを軽い処理（配列を使わず）にするにはどういうのが一番有効でしょうか？引き続き最初の質問とは変わってしまいましたがご教示願えませんか？

補足

redfox63さん　ご返答ありがとうございます。
誤記入でした。454は424でした。すいません。今配布先が居ないので詳しくは解りませんが。実行時のオブジェクトエラーとデバック画面に出ると言っていたような気がします。
また、同じ会社の各営業所に送っているものなので、XPを使用していることは間違いありません。
そこで424のオブジェクトが無いというエラーならば、今回は、BOOKの中のSHEETが明示されていないということなのかと思うのですが、2007では認識されて動いているのになぜ？という疑問があるのです。どうも腑に落ちないのです。同じコードの同じ場所で2003を使用している各営業所のエクセルは同じ内容の実行時424エラーとなるし、2007はスルー。何故なんでしょうか？
それとredfox63さんが検証された類似しているコードもこれから見させて頂きます。
よろしくお願いします。

回答No.1

n-jun

変数OLDBOOKとNEWBOOKに対してのセットの仕方がまずいとか？
（当方も2007はもってなく憶測ですけど）
例えば比較する双方のBookが2003に対応していないとか。

補足

n-junさん、早速お相手して下さり有難うございます。
変数OLDBOOKとNEWBOOKについては、すでに省略してある部分で何度も使用していて問題なく来ていることと、今回の部分を追加（構成の比較及び整合化の部分）する前のものは半年位2003でも動かしてもらっていて問題なかったのですよ。
更に比較する2つのファイルは、この作業の中で作らせてたり、開いたりして、コードもこの部分までたどり着いて来ているので問題は無し（2003互換の　.XLS　拡張子）なのですよ。問題の作業を追加前も同じ用にファイルを作成したり、開いたり、閉じたりしてきました。（2003で）
なにより皆のパソコンで2007だと普通に動くし。でも2003だとダメだし。
なので今回の抜粋部分の追加の記入の仕方のどこかが2003だとまずいのかなぁ？という次第なんです。う～ん。助けて！