需要登录凭据时刷新OLAP（数据透视表）

Question

我通过Excel连接的OLAP多维数据集之一是一个安全的OLAP，需要在刷新时输入登录ID和密码。我知道我可以使用＆＃34;保存密码＆＃34;连接属性中的选项，但不安全，因为它以非加密格式存储在连接中。

我想通过VBA刷新数据透视，并可以从文本文件中读取以获取ID /密码。使用法线：

ActiveSheet.PivotTables("PT1").PivotCache.refresh

触发密码输入框以弹出。有没有办法触发刷新并在命令中传递凭据？

Answer 1

最简单的解决方案是标记＆＃34;保存密码＆＃34;在连接属性，选项卡定义中。 如果由于某种原因，您不想这样做，则每次刷新时都需要创建新连接。使用您的连接字符串并传递您的凭据。

Dim myCn As New Connection
myCn.Open (ConnectionString as String, UserID as String, Password as String)

您可以从现有连接中复制连接字符串。