Thiết định References bằng VBA

[Euler]

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.

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.

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

Kết quả:

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:

Sub Sample2()
    Const RefFile As String = "C:\Program Files\Microsoft Office\Office15\MSWORD.OLB"
    ActiveWorkbook.VBProject.References.AddFromFile RefFile
End Sub

Chúng ta sẽ sử dụng phương thức Remove để loại bỏ Microsoft Word 15.0 Object Library như sau:

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

Nguồn tham khảo:

Bạn cần đăng nhập để thấy link