VBA如何清除所有外部数据连接,多谢!

情冇独钟

1. Sub Macro2()
   
2.     ActiveWorkbook.Connections("连接1").Delete
   
3.     ActiveWorkbook.Connections("连接2").Delete
   
4.     ActiveWorkbook.Connections("连接3").Delete
   
5. End Sub

复制代码

连接数名字及个数不确定, 这个是录制宏所得, 可以正常执行.

1. Sub Macro1()
   
2. For Each a In ActiveWorkbook.Connections
   
3.    ActiveWorkbook.Connections(a).Delete
   
4. Next
   
5. End Sub

复制代码

试了下这个方式, 不行, 提示下标越界, 请问代码该怎么写, 多谢了..

dnbc

Sub 删除外部数据连接()
    If Application.ActiveWorkbook.Connections.Count > 0 Then
       Dim i As Integer
       Dim SjLj As Object
       For i = 1 To Application.ActiveWorkbook.Connections.Count
           Set Lj = Application.ActiveWorkbook.Connections.Item(i)
           SjLj.Delete
       Next
    End If
End Sub

taller