Access 2010 使用 VBA 将查询导出到特定的 Excel 范围答案

【问题标题】：Access 2010 Export Query to Specific Excel Range using VBAAccess 2010 使用 VBA 将查询导出到特定的 Excel 范围
【发布时间】：2014-02-06 18:54:54
【问题描述】：

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

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

【问题讨论】：

我不应该发现我认为代码代表了我希望在此处执行的操作：accessmonster.com/Uwe/Forum.aspx/access-externaldata/489/… 但我收到错误 5 与无效输入参数有关以下行：objXLSheet.Range(strCellRef).CopyFromRecordset rs
试试：stackoverflow.com/questions/10184342/…
您可能想在下面发布您已解决的答案。
好点，我只是没有 100% 完成，但当我完成时，我会的。我只是在解决一些问题。
问题是没有代码我只能猜测发生了什么，如果你在这里发布代码，它在这个阶段改变了太多的问题。

标签： export-to-excel ms-access-2010

【解决方案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

【讨论】：