在Excel中将一个字段从访问导出到特定的单元格

我想从一个表/查询名称从访问特定的单元格。 我有一个在其他单元格中有大量数据的检查表,顶部有顶部的人名。 我想要一个可以点击的button,打开THAT文件,并通过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单元格中具有FullName。

您可以使用

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

从logging中提取价值。 logging集从位置0开始。如果您想要第二列,则可以使用rsquerytest(1).Value

资源