Excel 如何进一步指定范围?
我是编程新手。我想使用Access中的VBA代码将Access查询导出到现有Excel工作簿中的特定位置。下面的DoCmd对象在很大程度上帮助了我,但我在进一步指定范围时遇到了问题: TransferSpreadsheetTransferType,SpreadsheetType,TableName,FileName,HasFieldName,Range,UseOAExcel 如何进一步指定范围?,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将查询粘贴到的工作表指定原始数据。如果没有使用该名称的工作表,则此操作有效,但如果工作表名称已存在,则我想进一步告诉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
您可能需要事先检查工作表名称。如果存在,则让代码选择其他名称。