Lỗi "Can't find project or library"

[thivantan]

Mình gặp phải lỗi dưới đây, nhờ các bạn giúp xem đó là lỗi gì và cách khắc phục.Xin chân thành cảm ơn

 

[Po_Pikachu]

Bác sữa thành code như vầy xem!

Debug.Print Err.Number

Nhưng nhìn tổng quan code của bác thì đâu cần hiện thông số lỗi đâu?
Theo em thì có thể viết lại như vầy:

Private Sub cmdPostData_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.Run "InsertInto_GLDATA"
Debug.Print Err.Number
Application.ScreenUpdating = True
End Sub

Dòng này:

Application.Run "InsertInto_GLDATA"

Có thể viết như vầy nếu Macro InsertInto_GLDATA này có tồn tại.

Call InsertInto_GLDATA

Thân.

 

[thivantan]

Bác sữa thành code như vầy xem!

Debug.Print Err.Number

Nhưng nhìn tổng quan code của bác thì đâu cần hiện thông số lỗi đâu?
Theo em thì có thể viết lại như vầy:

Private Sub cmdPostData_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.Run "InsertInto_GLDATA"
Debug.Print Err.Number
Application.ScreenUpdating = True
End Sub

Dòng này:

Application.Run "InsertInto_GLDATA"

Có thể viết như vầy nếu Macro InsertInto_GLDATA này có tồn tại.

Call InsertInto_GLDATA

Thân.

Tôi đã làm theo hướng dẫn của bạn nhưng khi chạy vẫn báo lỗi như hình đính kèm. Mong bạn chỉ giúp nhé!

Tôi chỉ mới tìm hiểu về VBA cho EXCEL nên chưa hiểu được nhiều, tôi thấy các bạn giúp đỡ mọi người trong việc sử dụng EXCEL, tôi rất khâm phục và mong muốn làm sao có thể sử dụng những cách hướng dẫn của các bạn vào công việc, như vậy đã rất thú vị và hiệu quả rồi. Còn về phần lập trình cho EXCEL tôi cũng rất thích tìm hiểu, nhưng trình độ có hạn mong các bạn giúp đỡ và đừng cười nhé. Xin chân thành cảm ơn Ban quản trị diễn đàn, các thành viên đóng góp tích cực cho diễn đàn, đã tạo một diễn đàn có ý nghĩa đóng góp thiết thực cho công tác của bản thân tôi cũng như các bạn đang công tác trên mọi miền tổ quốc. Mong các bạn tiếp tục có những đóng góp để diễn đàn ngày càng trở thành thân thiết và cần thiết đối với tất cả mọi người muốn tìm hiểu về EXCEL. Thân

 

[Po_Pikachu]

Lỗi này thì không thể sữa đơn giản được. Chắc bác phải đưa file bị lỗi đó lên thôi.
Vì nhìn vào mà vẫn không thấy hết code được? Không biết có phải lỗi ký tự không nữa?
Thôi bác đưa file lên đi. Em sữa tiếp cho.
Thân.

 

[thivantan]

Lỗi này thì không thể sữa đơn giản được. Chắc bác phải đưa file bị lỗi đó lên thôi.
Vì nhìn vào mà vẫn không thấy hết code được? Không biết có phải lỗi ký tự không nữa?
Thôi bác đưa file lên đi. Em sữa tiếp cho.
Thân.

Tôi đưa fỉle lên nhờ bạn giúp nhé

 

[cadafi]

Mèn ơi! File này do mình viết cho cty AMG. Làm sao bạn có được vậy!?
Lỗi trên là do máy bạn thiếu Reference Microsoft Window Common controls-2 6.0 (SP4). File đó có tên MSCOMCT2.OCX

Bạn down file này về và chép vào thư mục C\Windows\System32\
Link download free: http://www.ocxdump.com/download-ocx-files_new.php/ocxfiles/M/MSCOMCT2.OCX/6.00.88046/download.html

Sau đó đang ký ActiveX này bằng cách từ Excel, ấn Alt+F11, chọn Tool/Reference, chọn tiếp Browse --> chỉ đường dẫn đến file này để đăng ký.

Tuy nhiên, mình lưu ý bạn một chỗ: File này viết chưa hoàn chỉnh (mình nhìn giao diện MENU là biết liền) cho nên có thể có những lỗi kỹ thuật khác phát sinh ngoài việc thiếu thư viện mà mình chưa bẫy hết (file này viết cũng khá lâu rồi).

 

[Po_Pikachu]

File này của bác lỗi tràng giang luôn!
Có những lỗi mà chẳng thể nào hiểu nỗi luôn. Ví dụ như: Format(Now(), "mm/dd/yy hh:mm:ss"): lại báo lỗi Library.
Rồi hàm ChrW() cũng báo lỗi nữa?
Cái này chắc thư viện VBA có vấn đề gì rồi?
Thời gian đã trễ rồi!
Để ngày mai em lại moi ra sữa tiếp vậy!
Nay sữa đến đây thôi.
Thân.

 

[cadafi]

File này của bác lỗi tràng giang luôn!
Có những lỗi mà chẳng thể nào hiểu nỗi luôn. Ví dụ như: Format(Now(), "mm/dd/yy hh:mm:ss"): lại báo lỗi Library.
Rồi hàm ChrW() cũng báo lỗi nữa?
Cái này chắc thư viện VBA có vấn đề gì rồi?
Thời gian đã trễ rồi!
Để ngày mai em lại moi ra sữa tiếp vậy!
Nay sữa đến đây thôi.
Thân.

Thiếu cái ActiveX này thì lỗi tràng giang là phải rồi! Ẹc Ẹc...
Đăng ký nó vào là xong thôi!

 

[dongsongnho]

Dạ lâu lâu em mới mò lên đây.
Em bị dính cái lỗi này làm sao đây ạ?
File này trước đây em tải ở GPE về mà giờ mới có cơ hội để sử dụng vậy mà mở lên nó báo vầy

 

[Kiều Mạnh]

Dạ lâu lâu em mới mò lên đây.
Em bị dính cái lỗi này làm sao đây ạ?
File này trước đây em tải ở GPE về mà giờ mới có cơ hội để sử dụng vậy mà mở lên nó báo vầy

Trong Của sổ VBA: Tools\Refenrences\Missing Bỏ check đi xong ok là hết

 

[dongsongnho]

Dạ em cảm ơn. Hình như máy em bị lỗi gì rồi ( hình đính kèm)
Ngoài ra, emd dã tìm ra file đã fix lỗi này của anh Be09 rồi ạ.
Trân trọng cảm ơn

 

[Kiều Mạnh]

Dạ em cảm ơn. Hình như máy em bị lỗi gì rồi ( hình đính kèm)
Ngoài ra, emd dã tìm ra file đã fix lỗi này của anh Be09 rồi ạ.
Trân trọng cảm ơnView attachment 153829

Bấm nút reset xong Tools\Refenrences\ bỏ check Missing\ok Lưu

 

[Haibh78]

tôi file lỗi VBA, các bạn diễn đàn hãy sửa giúp tôi

 

[hoangtuaotrang_hp_vn]

anh chị giúp em với,
File này mở trên Win 7 (32bit), Office 2016 (32 bit) thì OK
nay em mang sang máy Win 10 (64bit), Office365 thì bị lỗi này,

P/S: trong cửa sổ VBA: Tool\Reference bị mờ luôn ạ, nên ko biết làm thế nào ạ

 

[hoangchilang]

Mình có 1 file access code vba cũng báo y chang như vậy mà k biết thiếu file thư viện nào nữa. Trên máy khác chạy bình thường. Có bác nào chuyên chỉ giúp lỗi này là thiếu file thư viện nào với?

 

[frankliszt]

Anh em ơi,
Mình cũng bị lỗi tương tự, anh em giúp với

 

[nguyentan85]

anh chị giúp em với,
File này mở trên Win 7 (32bit), Office 2016 (32 bit) thì OK
nay em mang sang máy Win 10 (64bit), Office365 thì bị lỗi này,

P/S: trong cửa sổ VBA: Tool\Reference bị mờ luôn ạ, nên ko biết làm thế nào ạ

View attachment 197357

Mình cũng bị y như bạn máy mình chạy Win 7 64 bit cài office 2016. File là do mình làm ra nhưng mỗi lần bị lỗi như vậy là lại phải mang sang máy 32 bit save lại thì mới dùng được >>> vào tìm file missing nhưng khi vào reference thì chuột cứ quay trắng ko vào đc để tìm sửa>>> bạn đã khắc phục được chưa mách mình cách với

Bài đã được tự động gộp: 14/5/19

Em bị thêm món này nữa xong là lỗi file luôn >>> cũng phải chuyển sang máy 32 bit save lại xong mới chuyển sang máy 64 bít dùng >>> bác nào biết cách chữa chỉ giúp em với

Bài đã được tự động gộp: 14/5/19

Em bị thêm món này nữa xong là lỗi file luôn >>> cũng phải chuyển sang máy 32 bit save lại xong mới chuyển sang máy 64 bít dùng >>> bác nào biết cách chữa chỉ giúp em với

 

[cando129]

Anh em ơi,
Mình cũng bị lỗi tương tự, anh em giúp với
View attachment 208900

Mình cũng mới bị lỗi và cách khắc phục mà mình làm được là:
bác copy file này qua win7 và sài office phiên bản cũ, vào và save as đuôi xlsm (enable macro)
và thử xem được chưa nhé.

 

[NguyenthiH]

Em có file Excel có Form, khi nhấn nút hiện form thì bị lỗi "Can't find Project or Library"

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WS_SYSMENU As Long = &H80000
Private Const GWL_STYLE As Long = -16&

Private Sub CommandButton1_Click()
 Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim hWnd As Long, dw As Long
    dw = &H84080080
    hWnd = FindWindow("ThunderDFrame", Me.Caption)
    SetWindowLong hWnd, -16, dw
    Me.Height = Me.Height + 1: Me.Height = Me.Height - 20

    With Cb_CN
        .ColumnWidths = "50"
     Arr = Sheet1.Range(Sheet1.[H1000].End(xlUp), Sheet1.[H4]).Value
        .List() = Arr
    End With
    
With Cb_MH
        .ColumnWidths = "50"
        Arr = Sheet1.Range(Sheet1.[A4], Sheet1.[A65536].End(xlUp)).Value
        Set dic = CreateObject("Scripting.Dictionary")
        For k = 1 To UBound(Arr)
            If Not dic.exists(Arr(k, 1)) Then dic.Add Arr(k, 1), ""
        Next
        .List() = WorksheetFunction.Transpose(dic.keys)
        Set dic = Nothing
    End With
    
With Cb_TO
    .ColumnWidths = "50"
        Arr = Sheet1.Range(Sheet1.[I4], Sheet1.[I65536].End(xlUp)).Value
        Set dic = CreateObject("Scripting.Dictionary")
        For k = 1 To UBound(Arr)
            If Not dic.exists(Arr(k, 1)) Then dic.Add Arr(k, 1), ""
        Next
        .List() = WorksheetFunction.Transpose(dic.keys)
        Set dic = Nothing
    End With

     With Me.ListBox1
        .ColumnCount = 3
        .ColumnWidths = "25;260;60"
     End With
End Sub

 

[ndu96081631]

Em có file Excel có Form, khi nhấn nút hiện form thì bị lỗi "Can't find Project or Library"

Ba cái lỗi tương tự vậy thì việc đầu tiên cứ tìm trong Tools\References xem có mục nào MISSING không rồi tính tiếp