|
Sub CuQ()
Dim var, str As String
str = "Verbindungen: " & vbCrLf & vbTab
For Each var In ThisWorkbook.Connections
str = str & var.Name & vbCrLf & vbTab
Next
str = str & vbCrLf & "Abfragen:" & vbCrLf & vbTab
For Each var In ThisWorkbook.Queries
str = str & var.Name & vbCrLf & vbTab
Next
Debug.Print str
End Sub
|