Question

我想从表/查询中将名称放入访问的特定单元格中。我有一张检查表，其他单元格中有大量数据，顶部有人名。我想要一个可以单击的按钮，打开该文件并通过VBA将所需名称插入其中。我知道如何使用VBA对带有书签的单词doc进行此操作，但现在确定如何为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

它有效，但我查询返回两个字段，Fullname和位置，我需要在excel单元格中只有FullName。

Answer 1

您可以使用

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

从记录中提取值。记录集从位置0开始。如果您想要第二列，则使用rsquerytest(1).Value。

source

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

1 个答案: