Bình thường khi chúng ta thiết định thư viện tham chiếu cho VBA chúng ta sẽ vào VBE, vào Tools, sau đó vào References, tại đây hiện ra cửa sổ và chúng ta sẽ tích chọn thư viện để VBA sử dụng.
Những thư viện nào đang được tích chọn? Đoạn code dưới đây giúp chúng ta thu thập thông tin nhanh chóng.
Kết quả:
Đối với việc tích chọn thêm thư viện trong References, chúng ta sẽ sử dụng phương thức AddFromFile.
Đoạn code dưới đây chúng ta sẽ thêm Microsoft Word vào thư viện:
Chúng ta sẽ sử dụng phương thức Remove để loại bỏ Microsoft Word 15.0 Object Library như sau:
Nguồn tham khảo:
Bạn cần đăng nhập để thấy đính kèm
Những thư viện nào đang được tích chọn? Đoạn code dưới đây giúp chúng ta thu thập thông tin nhanh chóng.
Mã:
Sub Sample1()
Dim Ref, buf As String
For Each Ref In ActiveWorkbook.VBProject.References
buf = buf & Ref.Name & vbTab & Ref.Description & vbCrLf
Next Ref
MsgBox buf
End Sub
Bạn cần đăng nhập để thấy đính kèm
Đối với việc tích chọn thêm thư viện trong References, chúng ta sẽ sử dụng phương thức AddFromFile.
Đoạn code dưới đây chúng ta sẽ thêm Microsoft Word vào thư viện:
Mã:
Sub Sample2()
Const RefFile As String = "C:\Program Files\Microsoft Office\Office15\MSWORD.OLB"
ActiveWorkbook.VBProject.References.AddFromFile RefFile
End Sub
Mã:
Sub Sample3()
Dim Ref
With ActiveWorkbook.VBProject
For Each Ref In ActiveWorkbook.VBProject.References
If Ref.Description = "Microsoft Word 15.0 Object Library" Then
.References.Remove Ref
End If
Next Ref
End With
End Sub
Bạn cần đăng nhập để thấy link