借助VBA在MS Access表单文本框中从多份Excel文件检索指定单元格值

阿华AIGC实验室

2026-5-28

解决方案：Access VBA 批量检索Excel文件中的银行名称

我来帮你搞定这个需求，核心思路是用**ADO（ActiveX Data Objects）**连接Excel文件——不用打开文件就能读取数据，然后遍历所有171个文件查找匹配的IFSC代码。下面是完整的VBA代码和关键说明：

步骤1：编写按钮点击事件的VBA代码

打开Access表单的设计视图，右键点击cmdSearchBankName按钮，选择「事件生成器」，粘贴以下代码：

Private Sub cmdSearchBankName_Click()
    Dim conn As Object
    Dim rs As Object
    Dim filePath As String
    Dim searchIFSC As String
    Dim connStr As String
    Dim sqlQuery As String
    
    ' 获取输入的IFSC代码，去除首尾空格
    searchIFSC = Trim(Me.txtIFSC.Value)
    
    ' 检查输入是否为空
    If searchIFSC = "" Then
        MsgBox "请输入要查询的IFSC代码！", vbExclamation
        Me.txtIFSC.SetFocus
        Exit Sub
    End If
    
    ' 初始化ADO连接和记录集
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 设置Excel文件路径的起始位置，匹配所有IFSCB2009_开头的xls文件
    filePath = Dir("C:/IFSC/IFSCB2009_*.xls")
    
    ' 遍历所有匹配的Excel文件
    Do While filePath <> ""
        ' 构建ADO连接字符串（针对Excel 97-2003格式的xls文件）
        connStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                  "Data Source=C:/IFSC/" & filePath & ";" & _
                  "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
        
        On Error Resume Next
        conn.Open connStr
        If Err.Number <> 0 Then
            MsgBox "无法打开文件：" & filePath & vbCrLf & "错误信息：" & Err.Description, vbCritical
            filePath = Dir ' 跳过当前文件，继续下一个
            conn.Close
            Resume Next
        End If
        On Error GoTo 0
        
        ' 构建查询SQL：查找IFSC列匹配的行，获取对应的BankName
        ' 替换单引号避免SQL语法错误
        sqlQuery = "SELECT BankName FROM [Sheet1$] WHERE IFSC = '" & Replace(searchIFSC, "'", "''") & "'"
        
        rs.Open sqlQuery, conn, 1, 3
        
        ' 如果找到匹配记录
        If Not rs.EOF Then
            Me.txtBankName.Value = rs("BankName").Value
            rs.Close
            conn.Close
            MsgBox "已找到匹配的银行名称！", vbInformation
            Exit Do ' 找到后立即停止遍历，节省时间
        End If
        
        ' 关闭当前文件的连接和记录集
        rs.Close
        conn.Close
        
        ' 获取下一个文件
        filePath = Dir
    Loop
    
    ' 如果遍历完所有文件都没找到匹配
    If filePath = "" Then
        Me.txtBankName.Value = ""
        MsgBox "未找到匹配的IFSC代码！", vbExclamation
    End If
    
    ' 释放对象，避免内存泄漏
    Set rs = Nothing
    Set conn = Nothing
End Sub

关键细节说明：

ADO连接字符串：针对xls格式（Excel 97-2003）使用Microsoft.Jet.OLEDB.4.0驱动；如果是xlsx格式，需要换成Microsoft.ACE.OLEDB.12.0驱动，同时修改Extended Properties为Excel 12.0 Xml;HDR=Yes;IMEX=1。
HDR=Yes：告诉驱动Excel的第一行是表头（对应你的B1=IFSC、E1=BankName），这样可以直接用列名写查询语句。
IMEX=1：强制将混合数据类型的列作为文本读取，避免IFSC代码因为格式问题（比如部分是文本、部分是数字）无法匹配。
提前终止循环：一旦找到匹配的记录就停止遍历剩余文件，不用浪费时间检查剩下的100多个文件。