我可以将通配符添加到连接(I)中吗

Question

我有一个宏，它可以进行查询和一个数据透视表。我需要在中添加通配符

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

其中CCD_ 1和数字CCD_。我想用外卡代替号码。

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。