如何在VBA连接脚本中使用DSN文件？

Question

我有使用连接字符串与SQL Server通信的VBA代码。我想使用外部DSN文件进行此连接，纯粹是为了适应性。

当前代码：

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
strConn = "DRIVER=SQLServer;SERVER=x;APP=Microsoft Excel;DATABASE=x;Trusted_Connection=Yes"
cn.Open strConn

代码有效，但对于我们的用户来说，dsn文件会更合适。

.DSN文件：

[ODBC]
DRIVER=SQL Server
Database=x
APP=Microsoft Office 2013
Trusted Connection=Yes
SERVER=x
Description=x

Answer 1

您可以使用File Name限定符来指定UDL或DSN文件。例如：

cn.Open "File Name=c:\path\to\my.dsn;"