如何进一步指定范围？

Question

我是编程新手。我想使用 Access 中的 VBA 代码将 Access 查询导出到现有 Excel 工作簿中的特定位置。以下 DoCmd 对象让我了解了大部分内容，但我无法进一步指定范围：

TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA)

现在我为我希望 Access 将查询粘贴到的工作表指定 "raw_data"。如果还没有该名称的工作表，此方法有效，但我想进一步告诉 Excel 如果工作表名称已存在，则覆盖它。

Answer 1

不要导出查询，而是转到 excel 的数据选项卡和 select "Get External Data" 并构建链接 table。从这里您可以在 Access DB 或 Excel 中使用 public 函数来刷新并执行您需要完成的任何其他操作。

或者，这里有一些代码可用于导出对 excel 的访问：

Private Sub excelReport(criteria() As String, reportNumber As Integer,  Optional rstINTL As DAO.Recordset, Optional INTLHQ)

   Dim xlApp As Object
   Dim xlWb As Object
   Dim xlWs As Object


   Set xlApp = CreateObject("Excel.Application")
   '''switch reference upon emplimintation'''
   Set xlWb = xlApp.Workbooks.Open("C:\USER\FileLocation\" & reportNumber & ".xlt")

   xlApp.Visible = True

   Set xlWs = xlWb.Sheets("Data")
   xlWs.Cells(2, 1).copyfromrecordset Me.RecordsetClone 'result of a query

   End Sub

如何进一步指定范围？

How Do I Further Specify Range?

excel

vba

ms-access

automation

export