載入dll 時發生錯誤

yangjie

請教大大們
                 Private Sub Workbook_Open()
                            Call myForm1
                End Sub
                Sub myForm1()
                      Dim sheetcount As Integer
                      sheetcount = ActiveWorkbook.Sheets.Count
                      Sheets("XX高職").Activate
                      Sheets("XX高職").Move before:=Sheets(1)
                      For i = sheetcount To 2 Step -1
                                      Sheets(i).Visible = False
                      Next
                     Application.Visible = False
                     UserForm1.Show
            End Sub

                Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
                           If CloseMode <> 1 Then Cancel = 1
                End Sub
在少數電腦上(五台有三台)(2003,2010均有)一執行巨集
就出現  "載入dll 時發生錯誤"之視窗
就教高手們，有此現象經驗嗎?是少或  ?.dll不見了或無法連結
，應如何處理?
                                                謝謝

stillfish00

回復 1# yangjie
工具>設定引用項目  是否有勾選特別的項目，是否有遺失，可以檢查看看。

yangjie

回復 2# stillfish00
謝謝
設定引用項目前6項均以圈選
尚未解決

yangjie

是否   Set d = CreateObject("Scripting.Dictionary") 未能連結

Dim d As Object
    Dim a As Range
    Sheets("學生資料").Activate
    Set d = CreateObject("Scripting.Dictionary")

Scripting.Dictionary應如何由我主動連結？

yangjie

出現      
        " 編輯錯誤
           找不到專案或程式庫 "
不知在什麼情況下匯出現如此?

GBKEE

回復 5# yangjie
再看看設定引用項目的勾選