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

　暱稱: Len_蓮

帖子: 4
主題: 1
精華: 0
積分: 55
點名: 69
作業系統: Windows 10
軟體版本: OFFICE 2019
閱讀權限: 20
性別: 女
註冊時間: 2021-1-28
最後登錄: 2024-12-23

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2024-12-16 23:11 | 只看該作者

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

VBA, win11

小妹我是超級新手:$

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

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

點進去看，Format是被反成藍底白字…

catbears

帖子: 7
主題: 0
精華: 0
積分: 57
點名: 6
作業系統: Windows 10
軟體版本: Office 365
閱讀權限: 20
註冊時間: 2022-4-20
最後登錄: 2024-12-25

2^#

發表於 2024-12-17 09:34 | 只看該作者

是否有整體的程式碼還是其他資料
Format主要是將某字串轉化為其他用途的東西，八成是將你的年月日重新排序
主要問題恐怕不在該行。

　暱稱: Len_蓮

帖子: 4
主題: 1
精華: 0
積分: 55
點名: 69
作業系統: Windows 10
軟體版本: OFFICE 2019
閱讀權限: 20
性別: 女
註冊時間: 2021-1-28
最後登錄: 2024-12-23

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

超級新手

catbears

帖子: 7
主題: 0
精華: 0
積分: 57
點名: 6
作業系統: Windows 10
軟體版本: Office 365
閱讀權限: 20
註冊時間: 2022-4-20
最後登錄: 2024-12-25

4^#

發表於 7 天前 09:38 | 只看該作者

應該是這串代碼有點問題
Format(FullDate, "YYYYMMDDHHMMSS-") 修正為 Format(FullDate, "YYYYMMDDHHMMSS")
如果有需要 "-" 符號請整串修正

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

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

　暱稱: Len_蓮

帖子: 4
主題: 1
精華: 0
積分: 55
點名: 69
作業系統: Windows 10
軟體版本: OFFICE 2019
閱讀權限: 20
性別: 女
註冊時間: 2021-1-28
最後登錄: 2024-12-23

5^#

發表於 4 天前 02:11 | 只看該作者

改了，但是w11跑巨集後還是跳出一樣的視窗與情況，
視窗顯示編譯錯誤:找不到專案或程式庫 ….
是因為windows 版本的關係嗎？

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

超級新手

jackyq

帖子: 320
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-12-21

6^#

發表於 4 天前 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 註冊表信息錯誤

　暱稱: Len_蓮

帖子: 4
主題: 1
精華: 0
積分: 55
點名: 69
作業系統: Windows 10
軟體版本: OFFICE 2019
閱讀權限: 20
性別: 女
註冊時間: 2021-1-28
最後登錄: 2024-12-23

7^#

發表於前天 18:05 | 只看該作者

重裝嗎?
我再試試!謝謝~

超級新手