У меня есть файл Excel, который содержит серию соединений ODBC DSN, использующих несколько сводных таблиц. Я пытаюсь удалить все пароли из подключений после обновления данных. Я попробовал этот код ниже, чтобы изменить пароль на пустой и получил ошибку времени выполнения при установке моего соединения oledbcn. Есть идеи, где я ошибся?
Public Sub RemovePasswordByNamePrefix()
Dim cn As Object
Dim oledbCn As OLEDBConnection
Dim regEx As New RegExp
regEx.Pattern = "Password=[^;]*;"
For Each cn In ThisWorkbook.Connections
Set oledbCn = cn.OLEDBConnection
oledbCn.SavePassword = False
oledbCn.Connection = regEx.Replace(oledbCn.Connection, "")
oledbCn.CommandText = "" 'My app repopulates this after open
Next
End Sub