Liệt kê các kết nối Connection files on this computer

[loinguyen212]

Chào mọi người,

Như tiêu đề thì em cần một đoạn code liệt kê được tất cả các kết nối được hiển thị ra trong phần Connection files on this computer.
(https://stackoverflow.com/questions/36749616/list-all-computer-connection-from-excel-vba)
Link trên có cả hình ảnh lẫn nội dung vấn đề, em đưa lên để mọi người dễ hình dung.
Với code:

Private Sub ListWorkBookConnections()
    Dim cnn As WorkbookConnection
    For Each cnn In ActiveWorkbook.Connections
        Debug.Print cnn.Name
    Next cnn
End Sub

thì chỉ lấy được các kết nối của phần Connection in this workbook.