エクセルの「コンパイルエラー」

質問

何回か質問させて頂き回答を頂き
判らないながら本を片手に原因究明？理解にはほど遠い感がします。
お教え下さい。
下記がソフトの一部です、全コードを記載出来れば良いのですが、
このような一部分でも何かヒントをいただけますか。
４台のＰＣ中１台のみエラー発生なく動いてます

他はExCEL とOSのバージョンを全く会わせてもＮＧです
「モジュール１でコンパイルエラー」デバッグ　ステップインで
１行目から実行すると（１）で（２）に飛び（３）まで行って
（４）でエラーで止まりますシートとかブックとかが足りない様な気がしますが
構文の書き方が特定のＰＣのみに有効になってるのでしょうか
ＷorkＢook　４行目まで記述されてます
Public Sub Workbook_Open()
label_101:
Call Workbook_Open1-----------(1)
End Sub

「ここからはモジュール１です」

Private Sub WorkSheet_Delete(Target_Sheet0 As String) 'シート削除--(4)この行で黄色の行表示で止まる

On Error GoTo ErrSheetDelete
Application.DisplayAlerts = False
Worksheets(Target_Sheet0).Delete
Application.DisplayAlerts = True
GoTo ExitSheetDelete
ErrSheetDelete:
Error_Number = Err.Number －－－ Error_Number が青色で表示される
Msg = "仮台帳がアクティブにできませんSub WorkSheet_Delete。Error_Number=" & Error_Number
Err.Clear
ExitSheetDelete: '

End Sub

Public Sub Workbook_Open1()
Dim Target_Sheet As String

XLSFile_Dir_Name = ThisWorkbook.Path -----(2)
XLSData_File_Name = XLSFile_Dir_Name & "\" & "工事台帳DB.xls"
XLSSoft_File_Name = XLSFile_Dir_Name & "\" & "工事台帳DB_ソフト.xls"

Target_Sheet = "仮台帳"
Call WorkSheet_Delete(Target_Sheet)------(3)

以下省略

回答No.4

kenpon24 · ベストアンサー

>「コンパイルエラープロジェクトまたはライブラリーが見つかりません」
>「DLL読み込み時のエラーが発生しました。」

のメッセージから察するに、何らかのDLLを参照していて、そのDLLが見つからないということも考えられます。

VBEのメニューバー→参照設定で、「参照不可」になっているものはないでしょうか。
こっちが原因なら環境要因もあり得るかも。
新規にプロジェクト作り直せば直るかもしれませんね。

このあたりを参考に
http://oshiete1.goo.ne.jp/qa1585038.html

補足

お早う御座います、
Msg = "仮台帳がアクティブにできませんSub WorkSheet_Delete。Error_Number=" & Error_Number　をＥｒｒ部分書き換え手見ましたが
エラー表示はでませんが途中で止まって動きませんでした。
「参照不可」がありました、この辺を探してみます、有り難う御座いました。
解消出来ない場合またＵＰさせて頂きますのでその節は宜しくお願い致します

回答No.3

kenpon24

出直してきました。
残念ながら特定PCの話はちょっとわかりませんが。

Error_Number = Err.Number －－－ Error_Number が青色で表示される
Msg = "仮台帳がアクティブにできませんSub WorkSheet_Delete。Error_Number=" & Error_Number
を
Msg = "仮台帳がアクティブにできませんSub WorkSheet_Delete。Error_Number=" & Err.Number

とすることで回避できませんか？どこかで宣言が重複しているのかも。。

コンパイルエラーと一緒に表示されるエラーの内容を書いてくださると、調べやすくなるかもしれません。

補足

早速の回答ありがとうございます。明日さえた頭で書き換えてみます。
エラー表示は「非表示モジュール１内でコンパイルエラー発生しました」の表示のみです。デバッグしてエラー箇所で「コンパイルエラープロジェクトまたはライブラリーが見つかりません」の表示です。また
黄色く表示された行のところでＦ１を押すと「DLL読み込み時のエラーが発生しました。」と表示されます。このエラーがどうして起こるかも自分にはさっぱりわかりません。お分かりになりましたら、お願いいたします。

回答No.2

kenpon24

すいません。思いっきり見落としてました。
宣言されていましたね。

考えて出直してきます・・・

回答No.1

kenpon24

Target_Sheet = "仮台帳"
のTarget_SheetはString型で宣言していますか？

宣言無しだと自動でVariant型になってしまい、エラーすると思います。