我可以在Connections（i）中添加通配符吗？

Question

我有一个用于查询和一个数据透视表的宏。我需要在

中添加外卡

For i = 2 To ThisWorkbook.Connections.Count
Set qr = ThisWorkbook.Connections("Connection2").ODBCConnection
    qr.CommandText = iSql

其中("Connection2")数字2是什么变化。我想使用外卡而不是数字。

Answer 1

我不知道在连接名称中使用通配符的方法。但即使你能够解决特别是在循环中它可以解决的目的是什么？它总会给你相同的名字。

替代？

Sub Sample()
    Dim i As Long

    For i = 1 To ThisWorkbook.Connections.Count
        If ThisWorkbook.Connections(i).Name Like "Connection*" Then
            Set qr = ThisWorkbook.Connections(ThisWorkbook.Connections(i).Name).ODBCConnection
        End If
    Next i
End Sub

但就像我说的那样，如果有两个连接说Connection1和Connection2。您将始终获得上述Connection1。