如何让Access VBA宏自动运行Teradata直通查询无需手动输入数据源？

你遇到的核心问题是：Access的直通查询默认不会自动关联已配置的ODBC数据源，每次执行时都需要手动确认，导致宏无法无交互运行。这里有两个实用的解决思路，你可以根据场景选择：

方法1：直接绑定查询到ODBC数据源 #

这个是一劳永逸的方案，把直通查询和你的Teradata DSN直接绑定：

• 打开Access，找到你的Performance Interval Data直通查询
• 右键选择「设计视图」打开它
• 点击顶部菜单栏的「查询」→「SQL特定查询」→「直通」
• 在弹出的ODBC连接窗口中，选择你已经创建好的Teradata系统DSN，点击确认
• 保存查询后，再运行宏就不会再弹出数据源选择窗口了

方法2：在VBA中动态设置查询连接字符串 #

如果需要更灵活的控制（比如不同环境切换数据源），可以在宏代码里直接给查询指定连接属性，修改你的代码如下：

Function AutoExec()
    On Error GoTo AutoExec_Err
    Dim qdf As QueryDef
    
    ' 获取目标直通查询对象
    Set qdf = CurrentDb.QueryDefs("Performance Interval Data")
    ' 替换成你实际的Teradata ODBC数据源名称
    qdf.Connect = "ODBC;DSN=你的Teradata数据源名称;"
    qdf.Close ' 保存连接配置
    
    DoCmd.OutputTo acOutputQuery, "Performance Interval Data", "ExcelWorkbook(*.xlsx)", _
        "filepath\filename.xlsx", False, "", , acExportQualityPrint
    DoCmd.Quit acExit

AutoExec_Exit:
    Set qdf = Nothing ' 释放对象资源
    Exit Function

AutoExec_Err:
    MsgBox Error$
    Resume AutoExec_Exit
End Function

额外提醒 #

• 优先使用系统DSN而非用户DSN，这样不管哪个用户运行宏，都能正常访问数据源
• 如果Teradata连接需要用户名密码，可在ODBC配置里勾选「保存密码」（需确保安全合规），避免后续弹出登录窗口
• 若不想硬编码DSN名称，可把它存在Access的配置表中，运行时读取，方便后续维护

内容的提问来源于stack exchange，提问作者TommyM