Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何进一步指定范围?_Excel_Vba_Ms Access_Automation_Export - Fatal编程技术网

Excel 如何进一步指定范围?

Excel 如何进一步指定范围?,excel,vba,ms-access,automation,export,Excel,Vba,Ms Access,Automation,Export,我是编程新手。我想使用Access中的VBA代码将Access查询导出到现有Excel工作簿中的特定位置。下面的DoCmd对象在很大程度上帮助了我,但我在进一步指定范围时遇到了问题: TransferSpreadsheetTransferType,SpreadsheetType,TableName,FileName,HasFieldName,Range,UseOA 现在,我为希望Access将查询粘贴到的工作表指定原始数据。如果没有使用该名称的工作表,则此操作有效,但如果工作表名称已存在,则我想

我是编程新手。我想使用Access中的VBA代码将Access查询导出到现有Excel工作簿中的特定位置。下面的DoCmd对象在很大程度上帮助了我,但我在进一步指定范围时遇到了问题:

TransferSpreadsheetTransferType,SpreadsheetType,TableName,FileName,HasFieldName,Range,UseOA


现在,我为希望Access将查询粘贴到的工作表指定原始数据。如果没有使用该名称的工作表,则此操作有效,但如果工作表名称已存在,则我想进一步告诉Excel覆盖它。

不要导出查询,而是转到Excel的“数据”选项卡,选择“获取外部数据”并构建链接表。在这里,您可以在Access DB或Excel中使用公共函数来刷新和执行任何需要执行的操作

或者,您可以使用以下代码从access导出到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

您可能需要事先检查工作表名称。如果存在,则让代码选择其他名称。