載入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不見了或無法連結
，應如何處理?
                                             謝謝

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-7-18 06:19 | 只看該作者

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

5^#

發表於 2013-7-18 00:17 | 只看該作者

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

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

4^#

發表於 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應如何由我主動連結？

TOP

yangjie