返回列表下一主題上一主題發帖

載入dll 時發生錯誤

yangjie

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

樓主熱帖

yangjie

中學生 Rank: 2

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

2^#

發表於 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

3^#

發表於 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

中學生 Rank: 2

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

4^#

發表於 2013-7-18 00:17 | 顯示全部帖子

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

TOP

靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。

返回列表下一主題上一主題