如何将Excel文件名作为SQL查询的MyValue变量生成定制报表？

一、C# 实现（推荐，批量处理效率高） #

准备工作 #

• 安装NuGet包 EPPlus（用于操作Excel，无需依赖本地Office）
• 确保项目能访问目标SQL Server数据库，配置好正确的连接字符串

完整代码示例 #

using OfficeOpenXml;
using System.Data.SqlClient;
using System.IO;

class Program
{
    static void Main(string[] args)
    {
        // 1. 预定义所有需要生成报表的MyValue列表（可从文本文件/数据库表批量读取）
        var myValues = new[] { "VAL001", "VAL002", "VAL003" /* ... 补充剩余297个值 */ };
        
        // 2. SQL Server连接字符串
        string connString = "Data Source=你的服务器名;Initial Catalog=你的数据库名;Integrated Security=True;";
        
        // 3. 循环处理每个MyValue
        foreach (var value in myValues)
        {
            // 构造带参数的SQL查询（彻底避免SQL注入）
            string sql = "SELECT * FROM MyTable WHERE MyValue = @MyValue";
            
            // 执行查询获取数据
            using (var conn = new SqlConnection(connString))
            {
                conn.Open();
                using (var cmd = new SqlCommand(sql, conn))
                {
                    cmd.Parameters.AddWithValue("@MyValue", value);
                    using (var reader = cmd.ExecuteReader())
                    {
                        // 4. 创建Excel文件并写入数据
                        var filePath = Path.Combine(@"C:\报表输出目录", $"报表_{value}.xlsx");
                        using (var package = new ExcelPackage())
                        {
                            var worksheet = package.Workbook.Worksheets.Add($"数据_{value}");
                            // 将查询结果写入工作表（自动包含表头）
                            worksheet.Cells["A1"].LoadFromDataReader(reader, true);
                            
                            // 保存Excel文件
                            package.SaveAs(new FileInfo(filePath));
                        }
                    }
                }
            }
            
            Console.WriteLine($"已生成报表: {filePath}");
        }
        
        Console.WriteLine("所有报表生成完成！");
    }
}

关键说明 #

• 用参数化查询替代直接拼接字符串，彻底规避SQL注入风险
• 文件名直接嵌入MyValue，确保每份报表唯一可识别
• EPPlus无需依赖Office组件，适合服务器端无人值守批量运行
• 若MyValue数量多，可从文本文件或数据库表批量读取，无需硬编码

二、VBA 脚本实现（适合Excel环境内快速操作） #

准备工作 #

• 打开Excel，按Alt+F11进入VBA编辑器
• 依次点击「工具→引用」，勾选Microsoft ActiveX Data Objects 6.1 Library

完整代码示例 #

Sub 批量生成SQL报表()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim myValues As Variant
    Dim value As Variant
    Dim sql As String
    Dim savePath As String
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 1. 预定义MyValue列表（可从Excel某列读取，比如Range("A1:A300").Value）
    myValues = Array("VAL001", "VAL002", "VAL003" /* ... 补充剩余值 */)
    
    ' 2. SQL Server连接字符串
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=你的服务器名;Initial Catalog=你的数据库名;Integrated Security=SSPI;"
    conn.Open
    
    ' 3. 输出目录（需提前创建，否则会报错）
    savePath = "C:\报表输出目录\"
    
    ' 循环处理每个MyValue
    For Each value In myValues
        ' 构造参数化查询
        sql = "SELECT * FROM MyTable WHERE MyValue = ?"
        
        Set rs = New ADODB.Recordset
        rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText
        rs.Parameters(0).Value = value
        
        ' 创建新工作簿
        Set wb = Workbooks.Add
        Set ws = wb.Sheets(1)
        ws.Name = "数据_" & value
        
        ' 写入表头（CopyFromRecordset默认不生成表头）
        Dim i As Integer
        For i = 0 To rs.Fields.Count - 1
            ws.Cells(1, i + 1).Value = rs.Fields(i).Name
        Next i
        ws.Rows(1).Font.Bold = True
        
        ' 将查询结果写入工作表
        ws.Range("A2").CopyFromRecordset rs
        
        ' 保存文件
        wb.SaveAs savePath & "报表_" & value & ".xlsx"
        wb.Close SaveChanges:=False
        
        rs.Close
        Debug.Print "已生成报表: " & savePath & "报表_" & value & ".xlsx"
    Next value
    
    conn.Close
    MsgBox "所有报表生成完成！"
End Sub

关键说明 #

• 使用?作为参数占位符，避免SQL注入
• 手动写入表头，解决CopyFromRecordset不生成表头的问题
• 输出目录需提前创建，否则保存时会抛出错误
• 若MyValue列表过长，可直接读取Excel某列数据，无需手动录入数组

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