Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10590 / 13644 ツリー ←次へ | 前へ→

【20845】オートメーションエラー megu 04/12/22(水) 13:24 質問[未読]
【20846】Re:オートメーションエラー IROC 04/12/22(水) 13:42 回答[未読]
【20847】Re:オートメーションエラー Asaki 04/12/22(水) 14:24 発言[未読]
【20956】Re:オートメーションエラー megu 04/12/28(火) 15:23 お礼[未読]

【20845】オートメーションエラー
質問  megu  - 04/12/22(水) 13:24 -

引用なし
パスワード
   こんにちわ。
どうしても不可解なエラーが出たので分かる方がいたら教えてください。

極稀な環境で、Excelファイル(私が作ったファイル)を開いただけで、
『オートメーションエラーです。エラーを特定できません。』
というエラーメッセージがでるのです。
私が動作チェックをした環境ではそのようなエラーが出たことは無かったので、非常に困っています。
ちなみに、そのエラーが出た環境はWindowsXP(Pro)+Excel2002です。
私がWindowsXP(Pro)+Excel2002で動作チェックした時にはそのような現象は起きませんでした。
パソコンの機種によってそのような現象が起きたりするということはあるのでしょうか。

ちなみに、Excelファイルを開いた時に実行されるマクロは、バージョン番号をSheet1に表示するための、このマクロだけです。

Private Sub Workbook_Open()
  If Worksheets("Sheet1").ProtectContents = False Then
    Worksheets("Sheet1").Range("AQ66").Value = 1.00
  End If
End Sub

他に影響しそうなマクロがあるとしたら、各シートにシート名変更防止マクロを入れてあるくらいでしょうか。(http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=13640;id=excel)

Private Sub Worksheet_Calculate()
Dim ShName As String, MyPos As Long
  ShName = Me.Range("CZ2").Value
  MyPos = InStr(ShName, "]")
  ShName = Right(ShName, Len(ShName) - MyPos)
  If ShName <> "Sheet1" Then
    MsgBox "シート名の変更は出来ません"
    Me.Name = "Sheet1"
  End If
End Sub

どうしても、エラーの原因が分からなくて困っています。
分かる方がいましたら、ぜひお願いします。

【20846】Re:オートメーションエラー
回答  IROC  - 04/12/22(水) 13:42 -

引用なし
パスワード
   エラーの発生する環境で、ブックを作り直して、確認してみてはいかがですか?
そうすればマクロが原因なのか、
ファイルの破損などの偶発的な不具合なのは判断できるかもしれません。

ひょっとするとXPだとSPのバージョンの違いなども影響があるかもしれません。

【20847】Re:オートメーションエラー
発言  Asaki  - 04/12/22(水) 14:24 -

引用なし
パスワード
   こんにちは。

IROC さんのご提案を確認する前に、
問題の端末で、一度コンパイルしてみてください。
たまに、直ることがあります。

【20956】Re:オートメーションエラー
お礼  megu  - 04/12/28(火) 15:23 -

引用なし
パスワード
   IROCさん、Asakiさん、いつもありがとうございます。

やはり問題の起こる端末で確認するしかなさそうですね・・・。
問題の起こる端末がかなり遠いところにある為に、確認に行くことができないので、一時的に他の端末で対応することにします。
謎は迷宮入りっぽいですけどね・・・(汗

回答ありがとうございました。
また、原因が分かった時は投稿させていただきます。

10590 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free