将导出结果集至TXT的VBA逻辑整合到Excel单元格SQL执行代码中

没问题，我帮你把这两段VBA的功能整合到一起了！下面是完整的代码，还有详细的说明，你可以直接套用：

Sub ExecuteSQLFromCellAndExportToTXT()
    ' 配置参数 - 根据你的需求修改这些值
    Dim sqlCell As Range
    Set sqlCell = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 存储SQL语句的单元格
    Dim txtSavePath As String
    txtSavePath = "C:\Your\Target\Folder\QueryResult.txt" ' TXT文件保存路径
    
    ' 数据库连接相关对象
    Dim conn As Object
    Dim rs As Object
    Dim cmd As Object
    Dim connStr As String
    
    ' 初始化连接（这里以SQL Server为例，你可以根据实际数据库修改连接字符串）
    Set conn = CreateObject("ADODB.Connection")
    connStr = "Provider=SQLOLEDB;Data Source=YourServerName;Initial Catalog=YourDatabase;Integrated Security=SSPI;" ' Windows身份验证
    ' 如果是SQL Server身份验证，用这个：
    ' connStr = "Provider=SQLOLEDB;Data Source=YourServerName;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword;"
    
    On Error GoTo Cleanup ' 错误处理，确保资源能释放
    
    ' 打开连接并执行SQL
    conn.Open connStr
    Set cmd = CreateObject("ADODB.Command")
    cmd.ActiveConnection = conn
    cmd.CommandText = sqlCell.Value ' 读取单元格中的SQL语句
    Set rs = cmd.Execute
    
    ' 导出结果到TXT文件
    Dim fso As Object
    Dim txtFile As Object
    Dim i As Integer
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtFile = fso.CreateTextFile(txtSavePath, True) ' True表示覆盖已有文件
    
    ' 写入表头
    For i = 0 To rs.Fields.Count - 1
        txtFile.Write rs.Fields(i).Name
        If i < rs.Fields.Count - 1 Then txtFile.Write vbTab ' 用制表符分隔列
    Next i
    txtFile.WriteLine ' 换行
    
    ' 写入结果行
    Do While Not rs.EOF
        For i = 0 To rs.Fields.Count - 1
            txtFile.Write rs.Fields(i).Value
            If i < rs.Fields.Count - 1 Then txtFile.Write vbTab
        Next i
        txtFile.WriteLine
        rs.MoveNext
    Loop
    
    MsgBox "查询执行完成，结果已导出到：" & txtSavePath, vbInformation
    
Cleanup:
    ' 关闭并释放所有对象，避免内存泄漏
    If Not rs Is Nothing Then rs.Close
    If Not conn Is Nothing Then conn.Close
    Set rs = Nothing
    Set cmd = Nothing
    Set conn = Nothing
    Set txtFile = Nothing
    Set fso = Nothing
    
    If Err.Number <> 0 Then
        MsgBox "执行出错：" & Err.Description, vbCritical
    End If
End Sub

1. 先改配置参数 #

你得先调整代码开头的两个核心设置：

• sqlCell：把Sheet1和A1改成你实际存储SQL语句的工作表和单元格位置
• txtSavePath：替换成你想要保存TXT文件的路径，注意要确保这个文件夹已经存在，不然会报错

2. 适配你的数据库 #

代码里默认用的是SQL Server的连接字符串，你可以根据自己的数据库类型替换：

• Access数据库：用这个连接字符串："Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Your\Access\File.accdb;"
• MySQL数据库：需要先装ODBC驱动，然后用类似这样的字符串："Driver={MySQL ODBC 8.0 Unicode Driver};Server=YourServer;Database=YourDB;User=YourUser;Password=YourPass;"
• Oracle数据库：可以用"Provider=OraOLEDB.Oracle;Data Source=YourOracleSID;User ID=YourUser;Password=YourPass;"

3. 导出TXT的逻辑说明 #

• 用Scripting.FileSystemObject来处理文件操作，CreateTextFile的第二个参数True表示如果目标文件已经存在，直接覆盖它
• 先写入SQL结果的表头（也就是字段名），用制表符vbTab分隔列，这样你之后用Excel打开TXT时，能直接自动分列
• 然后循环遍历结果集的每一行，逐个写入字段值，写完一行就换行

4. 错误处理和资源清理 #

• 加了On Error GoTo Cleanup的错误捕获，就算执行过程中出错，数据库连接、结果集和文件对象都会被正确关闭和释放，不会占用系统资源
• 执行成功会弹出提示告诉你文件保存路径，失败的话会弹出错误详情，方便排查问题

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