我想将Access中的一些数据加载到Excel Userform ListBox中.我现在正在做的是首先创建ADODB.Connection来连接访问并创建ADODB.Recordset来存储数据.其次,我使用Range("xx").CopyFromRecordset将数据复制到Excel工作表.第三,将excel范围命名为"ResultSet".第四,使用Me.ListName.RowSource="ResultSet"将数据从excel工作表复制到ListBox.
I want to load some data from Access into Excel Userform ListBox. What I am doing now is creating ADODB.Connection to connect access and create ADODB.Recordset to store data, firstly. Secondly, I use Range("xx").CopyFromRecordset to copy the data to excel sheet. Thirdly, name that excel range as "ResultSet". Fourthly, use Me.ListName.RowSource="ResultSet" to copy data from excel sheet to ListBox.
如您所见,我使用四个步骤来完成这项工作.是否可以跳过第2步和第3步,将数据直接从Access复制到ListBox?
As you can see, I use four steps to finish this job. Is there a way to skip step 2 and step 3, copying data from Access to ListBox directly?
谢谢
推荐答案我找到了一篇文章.下面是代码,这是链接.
I found one article. Below is the code and this is the link.
With rs .MoveLast NoOfRecords = .RecordCount .MoveFirst End With 'Set the number of ListBox columns = number of fields in the recordset ListBox1.ColumnCount = rs.Fields.Count 'Load the listbox with the retrieved records ListBox1.Column = rs.GetRows(NoOfRecords)谢谢
更多推荐
如何从Access表单直接将数据加载到Excel Userform Listbox?
发布评论