使用VBA输出Excel查询结果遇问题：仅生成带列标题的空表

以下是最可能导致问题的原因及对应解决方法：

• 查询语句本身无返回数据
  先脱离VBA，把你写的SQL语句复制到数据库原生工具（比如Access查询编辑器、SQL Server SSMS）里执行一遍。如果本身就没有结果，那问题出在SQL逻辑上：检查条件是否合理，比如日期格式是否匹配数据库要求、字符串条件是否加了单引号、表名/字段名是否拼写错误。

• 记录集未正确初始化或读取
  确认Recordset的打开参数是否正确，比如使用adOpenStatic类型的游标更适合导出数据：rs.Open strSQL, conn, adOpenStatic, adLockReadOnly。另外，不要在写入数据前误判rs.EOF就退出，应该先判断是否有数据再执行写入逻辑。

• 数据写入范围错误
  如果用CopyFromRecordset方法，要确保从表头的下一行开始写入，比如表头在第1行，就用ws.Range("A2").CopyFromRecordset rs。如果是手动循环写入，要保证循环条件是Do While Not rs.EOF，并且每写入一行后执行rs.MoveNext，避免遗漏数据。

• 数据库连接或权限问题
  检查连接字符串是否正确，比如Access的驱动版本是否对应（32/64位）、SQL Server是否指定了正确的服务器和数据库名。部分数据库需要显式指定Schema，比如SELECT * FROM dbo.YourTable，否则可能无法正确读取表数据。

修正后的示例代码 #

Sub ExportQueryToNewSheet()
    Dim conn As Object, rs As Object
    Dim strSQL As String
    Dim newWs As Worksheet
    Dim colIndex As Integer
    
    ' 创建新工作表
    Set newWs = ThisWorkbook.Sheets.Add
    newWs.Name = "查询结果"
    
    ' 初始化数据库连接（以Access为例）
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourDatabase.accdb;"
    
    ' 你的查询语句
    strSQL = "SELECT 字段1, 字段2, 字段3 FROM 目标表 WHERE 查询条件"
    
    ' 打开记录集
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open strSQL, conn, adOpenStatic, adLockReadOnly
    
    ' 写入列标题
    For colIndex = 0 To rs.Fields.Count - 1
        newWs.Cells(1, colIndex + 1).Value = rs.Fields(colIndex).Name
    Next colIndex
    
    ' 写入查询数据（仅当有结果时执行）
    If Not rs.EOF Then
        newWs.Range("A2").CopyFromRecordset rs
    End If
    
    ' 清理资源
    rs.Close: conn.Close
    Set rs = Nothing: Set conn = Nothing
    
    ' 自动调整列宽
    newWs.Columns.AutoFit
End Sub

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