如何进一步指定范围？
如何进一步指定范围？
提问于 2015-04-02 18:57:03
我对编程很陌生。我希望使用Access中的VBA代码将Access查询导出到现有Excel工作簿中的特定位置。下面的DoCmd对象让我获得了大部分的机会，但是我在进一步指定范围时遇到了困难：
TransferSpreadsheet(TransferType，SpreadsheetType，TableName，FileName，HasFieldNames，Range，UseOA)
现在，我为要将查询粘贴到的工作表指定"raw_data“。如果还没有该名称的工作表，则可以这样做，但是如果工作表名称已经存在，我想进一步告诉Excel覆盖它。
回答 1
Stack Overflow用户
回答已采纳
发布于 2015-04-02 19:15:38
而不是导出查询，转到excel的data选项卡，选择“获取外部数据”并构建链接表。从这里开始，您可以在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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/29420429
复制相关文章
相似问题
腾讯云开发者
