Excel VBA中SQL查询动态表名及循环数据导出问题

我来帮你一步步搞定这个问题，从变量类型选择到SQL动态拼接，再到数据存入工作表，都给你讲得明明白白：

一、变量类型选择：num1用Integer还是String？ #

推荐你把num1声明为Integer，原因很简单：循环1-12的时候用整数更方便，后续需要两位格式（比如"01"），只需要用Format(num1, "00")就能自动补零转成字符串。如果直接用String，你得手动枚举"01"到"12"，反而麻烦。当然如果后续有特殊需求，也可以用String，但Integer是更高效的选择。

二、动态拼接SQL中的表名 #

SQL里不能直接用变量当表名，必须把变量和固定字符串拼接成完整的表名字符串，注意要给表名加上方括号[]，避免SQL把表名识别成关键字或者语法错误。比如你的表名格式是ab0131，拼接逻辑就是：

Dim tableName As String
tableName = "ab" & Format(num1, "00") & Format(num2, "00")
' 对应的SQL语句
sqlStr = "SELECT * FROM [" & tableName & "]"

三、循环逻辑与数据存储实现 #

核心思路是双层循环：外层遍历num1（1-12），内层遍历num2（31-58），每次循环查询对应表的Recordset，然后存入对应num1的工作表。

关键步骤： #

1. 提前准备好ADO连接（假设你连接的是Access或者其他支持ADO的数据源）
2. 外层循环num1从1到12，生成两位格式的工作表标识（比如"01"）
3. 检查对应工作表是否存在，不存在则新建
4. 内层循环num2从31到58，动态拼接表名执行SQL查询
5. 将Recordset的数据复制到对应工作表的指定位置（注意避免覆盖已有数据）

完整代码示例 #

Sub QueryAndSaveData()
    Dim conn As Object
    Dim rs As Object
    Dim sqlStr As String
    Dim tableName As String
    Dim num1 As Integer
    Dim num2 As Integer
    Dim ws As Worksheet
    Dim wsName As String
    Dim nextRow As Long
    
    ' 初始化ADO连接（根据你的数据源调整连接字符串）
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourDatabase.accdb;" ' 替换成你的数据库路径
    
    ' 外层循环：num1从1到12
    For num1 = 1 To 12
        wsName = Format(num1, "00") ' 生成工作表名，比如"01"
        
        ' 检查工作表是否存在，不存在则新建
        On Error Resume Next
        Set ws = ThisWorkbook.Worksheets(wsName)
        On Error GoTo 0
        If ws Is Nothing Then
            Set ws = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
            ws.Name = wsName
        End If
        
        ' 内层循环：num2从31到58
        For num2 = 31 To 58
            tableName = "ab" & Format(num1, "00") & Format(num2, "00") ' 生成表名，比如"ab0131"
            sqlStr = "SELECT * FROM [" & tableName & "]"
            
            ' 执行查询获取Recordset
            Set rs = CreateObject("ADODB.Recordset")
            rs.Open sqlStr, conn, 1, 3 ' 1=adOpenKeyset, 3=adLockOptimistic
            
            ' 写入数据到工作表：如果是第一次写入，先写表头，再写数据；后续写入到下一行
            nextRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
            If nextRow = 2 Then ' 说明是第一行数据，先写表头
                Dim i As Integer
                For i = 0 To rs.Fields.Count - 1
                    ws.Cells(1, i + 1).Value = rs.Fields(i).Name
                Next i
            End If
            
            ' 复制Recordset数据到工作表
            If Not rs.EOF Then
                ws.Cells(nextRow, 1).CopyFromRecordset rs
            End If
            
            ' 关闭Recordset
            rs.Close
            Set rs = Nothing
        Next num2
        
        ' 释放工作表对象
        Set ws = Nothing
    Next num1
    
    ' 关闭连接
    conn.Close
    Set conn = Nothing
    
    MsgBox "数据处理完成！"
End Sub

四、注意事项 #

• 替换代码中的数据库连接字符串，根据你的数据源（Access、SQL Server等）调整
• 如果工作表名不是两位num1，而是其他格式（比如"Sheet01"），修改wsName的生成逻辑即可
• 可以添加错误处理，比如捕获表不存在的异常，避免程序崩溃

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