仅需要2列即可从Access数据库中的查询中拉出/导出到excel

如何解决仅需要2列即可从Access数据库中的查询中拉出/导出到excel

我有一个宏，可将查询从Access数据库导出到excel。但是，我需要宏仅将2列（前2列）导出到excel中，我无法确定，请帮忙。下面是数据库的屏幕截图和代码。

Option Compare Database
Option Explicit

Public Sub ExportToExcel()

Dim xl As Excel.Application
Dim wbtarget As Workbook

Dim qdAGC As QueryDef
Dim rsAGC As Recordset

'Set up reference to the query to export

Set qdAGC = CurrentDb.QueryDefs("qdAGC")

'Debug.Print qdAGC.sql

'Set up the parameter
'Execute the query

Set rsAGC = qdAGC.OpenRecordset()

'programetically reference exel
Set xl = CreateObject("Excel.Application")
'set ref to the export workbook

Set wbtarget = xl.Workbooks.Open("Path")

'Clear excel sheet
wbtarget.Worksheets("Sheet1").Cells.ClearContents

'use paste from recordset to put in excel sheet
wbtarget.Worksheets("Sheet1").Cells(1,1).copyFromrecordset rsAGC

'save workbook
wbtarget.Save

wbtarget.Close

Set wbtarget = nothing
Set xl = nothing

Set qdAGC = nothing



End Sub

解决方法

这应该超级简单

打开此查询：qdAGC

记下查询中前两列的名称。

然后将您的代码更改为此（显然更改名称）：

     Set qdAGC = CurrentDb.Openrecordset("SELECT ColumnOne,ColumnTwo FROM qdAGC")

还有另一种方法可以做同样的事情。检出：

     DoCmd.TransferSpreadsheet