Sql server 使用VBA刷新Excel中与SQL Server的连接（使用密码）

我有10个Excel文件通过OLEDB连接到SQL Server，我需要每天手动逐个刷新它们。当我刷新它们时，我需要插入密码。我试图制作一个宏来自动化这个过程，但没有成功。我执行此功能是为了使我的一本工作簿自动化：

Sub updateABC()
  Workbooks("Teste").Connections("SQL Server_Azure1").OLEDBConnection.Refresh
End Sub

Excel将询问SQL Server登录的密码。有没有办法使用vba自动输入此密码

---

谢谢。

在Excel中有一种不使用VBA的方法：

您可以转到数据连接

单击顶部连接上的属性

单击“定义”选项卡

在下半部分有一个勾选框“保存密码”，您将得到一个提示，提示密码未加密存储

答应这个

单击“确定”

对所有连接执行相同的操作

然后，您可以刷新所有连接，系统将提示您输入每个连接的密码。 完成此操作并保存文档后，它将不再要求您输入密码

---

您还可以在“使用”选项卡上勾选“打开文件时刷新数据”，以便在打开工作簿时刷新连接。

密码是否始终相同？我不完全确定你想在这里做什么。密码提示是否自动出现供你键入？换句话说，是否不需要点击？也许您可以设置为延迟自动击键？我想您需要查看

ADO

和

连接字符串

。抱歉延迟。所有工作簿的密码都相同。每次刷新工作簿时，都会出现一个“自动提示”窗口，询问sql server登录的密码。