Question

标题几乎说明了一切，我正在寻找一种方法将此查询导出到excel中的特定列，这样我就不必创建一堆单独的excel文件。

查询本身使用日期进行计算，我想在一年中的每个月运行它。所以在伪代码中就像：

For i = 1 to 13  
  Export Query with to cell i with parameters 
    StartDate = DateSerial(Me.txtYear, i, 1), 
    EndDate = DateSerial(Me.txtYear, i+1, 1)
  i++
Next

此刻，calc也被称为As Month，但如果我能够动态更改并将实际月份作为字段标题，我会很棒。

Answer 1

如果您可以创建创建数据的查询，那么this的内容应该会有所帮助。

在我用来将数据丢弃到excel的代码中，我使用它来编写标题：

fldCount = rs.Fields.Count
For iCol = 1 To fldCount
    xlWs.Cells(1, iCol).value = rs.Fields(iCol - 1).Name
Next

然后将数据写入A2中的工作表

xlWs.Cells(2, 1).CopyFromRecordset rs

使用VBA访问2010导出查询到特定Excel范围

1 个答案: