返回列表 上一主題 發帖

[發問] 【VBA-Win11】VBA彈出視窗-(Format)編譯錯誤:找不到專案或程式庫

plogu1314
　暱稱: Len_蓮

中學生Rank: 2

帖子
4 
主題
1 
精華
0 
積分
55 
點名
6  
作業系統
Windows 10 
軟體版本
OFFICE 2019 
閱讀權限
20 
性別
女 
註冊時間
2021-1-28 
最後登錄
2025-9-4 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2024-12-16 23:11 | 只看該作者

[發問] 【VBA-Win11】VBA彈出視窗-(Format)編譯錯誤:找不到專案或程式庫

VBA, win11
小妹我是超級新手:$

有前輩留下抓取各台電腦照片的VBA檔案(檔名是依照"YYYYMMDDHHMMSS-"來抓取的)，
但近期部分電腦強制升級成Win11，
造成前輩的精華檔案會無法運作，
小妹找不到可以解決問題的資料，
來拜託這裡的大神是否有解，很抱歉無法提供電子檔…

如標題，VBA彈出視窗-編譯錯誤:找不到專案或程式庫

點進去看，Format是被反成藍底白字…
收藏 分享

catbears

帖子
18 
主題
0 
精華
0 
積分
68 
點名
56  
作業系統
Windows 10 
軟體版本
Office 365 
閱讀權限
20 
註冊時間
2022-4-20 
最後登錄
2025-4-29 
2#
發表於 2024-12-17 09:34 | 只看該作者
是否有整體的程式碼還是其他資料
Format主要是將某字串轉化為其他用途的東西，八成是將你的年月日重新排序
主要問題恐怕不在該行。

TOP

plogu1314
　暱稱: Len_蓮

中學生Rank: 2

帖子
4 
主題
1 
精華
0 
積分
55 
點名
6  
作業系統
Windows 10 
軟體版本
OFFICE 2019 
閱讀權限
20 
性別
女 
註冊時間
2021-1-28 
最後登錄
2025-9-4 
3#
發表於 2024-12-17 23:53 | 只看該作者
大概是這串代碼
If AOI_NO <> 0 Then
                FullDate = AOIDateTime(RowIndex, 1)
                Img = Format(FullDate, "YYYYMMDDHHMMSS-") & AOILocation(RowIndex, 1) & "-" & Right(AOIBoard(RowIndex, 1), 1) & ".jpg"
                Url = IP(AOI_NO) & "\" & Format(FullDate, "YYYY") & "\" & Format(FullDate, "MM") & "\" & Format(FullDate, "YYYYMMDD") & "\" & Img

                'MsgBox "URL:" & vbCrlf & Url

                Set RightCell = Cell.Offset(, 1)

                If Dir(Url, vbDirectory) <> vbNullString Then
                    Set Pic = RightCell.Parent.Pictures.Insert(Url)
                    Pic.ShapeRange.PictureFormat.Contrast = 0.63
                    Pic.ShapeRange.PictureFormat.Brightness = 0.63
超級新手

TOP

catbears

帖子
18 
主題
0 
精華
0 
積分
68 
點名
56  
作業系統
Windows 10 
軟體版本
Office 365 
閱讀權限
20 
註冊時間
2022-4-20 
最後登錄
2025-4-29 
4#
發表於 2024-12-18 09:38 | 只看該作者
應該是這串代碼有點問題
Format(FullDate, "YYYYMMDDHHMMSS-") 修正為 Format(FullDate, "YYYYMMDDHHMMSS")
如果有需要 "-" 符號請整串修正

Img = Format(FullDate, "YYYYMMDDHHMMSS") & "-" &  AOILocation(RowIndex, 1) & "-" & Right(AOIBoard(RowIndex, 1), 1) & ".jpg"

請確認你的JPG位置是否有年月日小時分秒後又沒有多 "-" 這符號

TOP

plogu1314
　暱稱: Len_蓮

中學生Rank: 2

帖子
4 
主題
1 
精華
0 
積分
55 
點名
6  
作業系統
Windows 10 
軟體版本
OFFICE 2019 
閱讀權限
20 
性別
女 
註冊時間
2021-1-28 
最後登錄
2025-9-4 
5#
發表於 2024-12-21 02:11 | 只看該作者
改了，但是w11跑巨集後還是跳出一樣的視窗與情況，
視窗顯示 編譯錯誤:找不到專案或程式庫 ….
是因為windows 版本的關係嗎？

上班才有辦法看到程式，所以會會比較慢
超級新手

TOP

jackyq

帖子
323 
主題
6 
精華
0 
積分
313 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2025-5-3 
6#
發表於 2024-12-21 18:14 | 只看該作者
本帖最後由 jackyq 於 2024-12-21 18:19 編輯

https://topic.alibabacloud.com/tc/a/excel-vba-prompts-no-project-or-database-found-error-solution_8_8_31994777.html
或

重新安裝 EXCEL 比較有機會能修復
找不到專案或程式庫 通常都發生在 dll 版本錯誤 dll 遺失 之類的
可能是在升級 Win11 後  引發 ActiveX dll 註冊表信息錯誤

TOP

plogu1314
　暱稱: Len_蓮

中學生Rank: 2

帖子
4 
主題
1 
精華
0 
積分
55 
點名
6  
作業系統
Windows 10 
軟體版本
OFFICE 2019 
閱讀權限
20 
性別
女 
註冊時間
2021-1-28 
最後登錄
2025-9-4 
7#
發表於 2024-12-23 18:05 | 只看該作者
重裝嗎?
我再試試!謝謝~
超級新手

TOP

Farnsworth

帖子
53 
主題
9 
精華
0 
積分
68 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2016 
閱讀權限
20 
註冊時間
2015-6-2 
最後登錄
2025-9-25 
8#
發表於 2025-5-22 15:32 | 只看該作者
感谢分享，认真学习中，支持您的努力

TOP

蒼雪

帖子
44 
主題
9 
精華
0 
積分
80 
點名
1  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2025-6-20 
9#
發表於 2025-6-20 21:13 | 只看該作者
回復 5# plogu1314

    之前我有碰過類似情況，對檔案打開Visual Basic後，正常左邊欄位會出現巨集模組or其他表單。
    點兩下選擇時會跳出相對應的程式碼頁面。
    但當執行巨集跳出「找不到專案或程式庫」，再去選擇模組查看程式碼時，該程式碼頁面會打不開。
    也只有唯獨那個檔案有這樣的狀況，我也找不到相關的解方...。

    後面我就養成習慣，三不五時備份檔案...避免一去不回。

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題