載入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

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-7-12 18:32 | 只看該作者

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

TOP

yangjie

中學生 Rank: 2

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

3^#

發表於 2013-7-13 11:12 | 只看該作者

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

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