標題: 載入dll 時發生錯誤 [打印本頁]

---

作者: yangjie    時間: 2013-7-12 17:02     標題: 載入dll 時發生錯誤

請教大大們
                 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    時間: 2013-7-12 18:32

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

---

作者: yangjie    時間: 2013-7-13 11:12

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

---

作者: yangjie    時間: 2013-7-13 11:18

本帖最後由 yangjie 於 2013-7-13 11:20 編輯

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

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

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

---

作者: yangjie    時間: 2013-7-18 00:17

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

---

作者: GBKEE    時間: 2013-7-18 06:19

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)