0

标题几乎说明了一切，我正在寻找一种方法将此查询导出到 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

同样，现在计算被称为月份，但如果我能知道如何让它动态变化并将实际月份作为字段标题，我会很棒。

4

1 回答 1

2

如果您可以创建创建数据的查询，那么类似的东西应该会有所帮助。

在我用来将数据拖放到 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
于 2012-08-08T20:38:42.360 回答