Sql 将access中的一个字段导出到excel中的特定单元格

我想从access将表/查询中的名称放置到特定单元格中。我有一张检查表，上面有很多其他单元格中的数据，上面有人的名字。我想一个按钮，可以点击，将打开该文件，并插入所需的名称到它通过VBA。我知道如何使用VBA对带有书签的word文档执行此操作，但现在可以确定如何在excel中为单元格定义“书签”

这就是我目前所拥有的

Private Sub Cmdopentarget1_Click()
Dim xl As Excel.Application
Dim wbTarget1 As Workbook
Dim qdfquerytest As QueryDef
Dim rsquerytest As Recordset
Set qdfquerytest = CurrentDb.QueryDefs("query1")
Set qdfsecondquery = CurrentDb.QueryDefs("query2")
Set rsquerytest = qdfquerytest.OpenRecordset()
Set rssecondquery = qdfsecondquery.OpenRecordset()
Set xl = CreateObject("Excel.application")
xl.Visible = True
Set wbTarget1 = xl.Workbooks.Open("C:\Users\Owner\Dropbox\Target1.xlsx")
'Set wbTarget1 = xl.Workbooks.Open("C:\Users\Dennis\Dropbox\Target1.xlsx")
'wbTarget1.Worksheets("Sheet1").Cells(8, 1).CopyFromRecordset rsquerytest
wbTarget1.Worksheets("Sheet1").Range("A1").CopyFromRecordset rsquerytest
wbTarget1.Worksheets("Sheet1").Range("C5").CopyFromRecordset rssecondquery

它可以工作，但我的查询返回两个字段：全名和职位，我只需要在excel单元格中有全名。

您可以使用

[variable or object] = rsquerytest(0).Value

从记录中提取值。记录集从位置0开始。如果需要第二列，可以使用

rsquerytest（1）.Value

您可以使用

[variable or object] = rsquerytest(0).Value

从记录中提取值。记录集从位置0开始。如果需要第二列，可以使用

rsquerytest（1）.Value

---

我不知道该放在哪里。那会在射程线之内吗？我需要的数据将是0值，1值是位置字段，不需要。

…工作表（“Sheet1”）。范围（“A1”）。值=rsquerytest（0）。值应将单元格
A1
设置为返回的
全名
。这是可行的，但每次我都会收到空白excel表的调试错误。我确信这是我的错误处理或整体语法。我见过这么多不同的方法，我不知道该放在哪里。那会在射程线之内吗？我需要的数据将是0值，1值是位置字段，不需要。
…工作表（“Sheet1”）。范围（“A1”）。值=rsquerytest（0）。值应将单元格
A1
设置为返回的
全名
。这是可行的，但每次我都会收到空白excel表的调试错误。我确信这是我的错误处理或整体语法。我见过很多不同的方法。