使用ADODB与EXCEL的连接，将这么多行读入记录集，因为Excel文件的B列中使用了单元格；

编程问答 2022-08-11

问题描述

最重要的是，代码是用Word VBA编辑器编写的，并且是从Word .docm文件中获取的。

从这个Word .docm文件中，我正在连接到用作客户端数据库的Excel文件（使用ADODB连接），并且正在从该文件（工作表名称=“数据”）中读取整个工作表到动态数组，稍后将进行搜索。

问题是，在此Excel文件中，A列中有一个索引号，该索引号是手动填充的，使用系列填充，直到第70000行。同时，从B列开始的实际数据仅填充182行。

所以问题是：如何仅检索有效填充的行数（B列中最后使用的行）到从该文件中提取的记录集中-当然不打开文件。并在EXCEL中使用ADODB连接。

我问这个问题，因为在代码的后面，我需要记录集中的行数才能将其写入动态数组（使用ReDim语句），稍后我将需要搜索并填充单词文件自动。

这是我到目前为止获得的代码：（宏将从Word文件中午餐）

Option Explicit

Private Sub UseADOSelect()

Dim connection As New ADODB.connection
Dim recSet As New ADODB.Recordset    'All the results of the query are placed in a record set;
Dim exclapp As Excel.Application
Dim exclWorkbk As Excel.Workbook
Dim mySheet As Excel.Worksheet
Dim wordDoc As Word.Document
Dim cntCntrl As ContentControl
Dim strPESELfromWord As String
Dim strQuery As String
Dim intWiersz As Integer
Dim intRemainder As Integer
Dim intRow As Integer
Dim arraySize As Integer
Dim strSexDigit As String
Dim strArray() As String
Dim i As Integer

Set wordDoc = Word.ActiveDocument
Debug.Print wordDoc

strPESELfromWord = Trim(Selection.Text)
Debug.Print strPESELfromWord
Word.Application.Visible = True

strSexDigit = Mid(strPESELfromWord,10,1)      'Extract 10th digit from PESEL number
Debug.Print strSexDigit
intRemainder = strSexDigit Mod 2
Debug.Print intRemainder

connection.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = X:\Roesler\Excel\FW 1\custdb.xlsm;" & _
                "Extended Properties=""Excel 12.0 Macro;HDR=YES;IMEX=1;"";"                 'Now it works
                                                             

strQuery = "SELECT * From [data$]"     '[data$]   is the table name; in this case it's the sheet name;
'recSet.Open strQuery,connection
recSet.Open strQuery,connection,adOpenStatic        ' Or specify adOpenStatic in the Open method directly.
Debug.Print " RecordCount = " & recSet.RecordCount             'https://www.geeksengine.com/article/recordcount-ado-recordset-vba.html
Debug.Print recSet.EOF      'Returns a value that indicates whether the current record position is after the last record in a Recordset object.
                            'At the moment the value is "False".
                            
                            
Debug.Print " RecordCount = " & recSet.RecordCount             'https://www.geeksengine.com/article/recordcount-ado-recordset-vba.html


arraySize = recSet.RecordCount   'I wanted to assign total number of records to arraySize variable to use it later in ReDim statement.
Debug.Print arraySize

ReDim strArray(1 To arraySize)
For i = 1 To arraySize
   strArray(i) = recSet(i)
Next i

intRow = 2

'  For Each cntCntrl In ActiveDocument.ContentControls
'    If cntCntrl.Title = "02KlientPelneImie" Then cntCntrl.Range.Text = objExcel.Sheets("data").Cells(intWiersz,4)
'    If cntCntrl.Title = "02KlientNrDowodu" Then cntCntrl.Range.Text = objExcel.Sheets("data").Cells(intWiersz,9)
'  Next

假设我的Excel文件（Worksheets（“ data”））中有效填充了182行-B或C列中没有空白单元格，直到B或C列中的第一个空单元格都将是“ B183”和“ C183”，但这些列中的第一个空单元格会发生变化，因为新的客户数据会填充随后的行。

但是永远不会出现这样的情况：B和C列中有空白单元格，而不是这些列中的第一个空单元格。

解决方法

您的连接字符串表示您的列在单元格的第一行中都有名称。

假设列B被称为“ mycolumn”

然后您需要更改

strQuery = "SELECT * From [data$]"

到

strQuery = "SELECT * From [data$] WHERE mycolumn <> ''"

或者您可能需要

strQuery = "SELECT * From [data$] WHERE mycolumn <> '' AND mycolumn IS NOT NULL"
adoexcelexcelms-word