如何在无MS-Access Engine的VB.NET中复刻VBA的Excel连接功能

背景情况 #

我们有个遗留项目正在从VBA迁移到VB.NET，核心功能之一是连接Excel文件。原来的VBA函数不管是32/64位系统，还是Win7/8/10，只要装了Excel就能正常跑；但移植到VB.NET后，相同逻辑的函数在没装MS-Access的机器上直接报错：

System.Runtime.InteropServices.COMException: Provider cannot be found. It may not be properly installed.
报错栈信息：
at Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateCall(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack, Boolean IgnoreReturn)
at Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateCall(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean IgnoreReturn)
at ConsoleApp3.Module1.Main() in ...source\repos\ConsoleApp3\ConsoleApp3\Module1.vb:line 11

关键限制 #

用户没有管理员权限，完全没法安装任何额外软件（包括Access Engine）。

参考代码 #

正常运行的VBA函数 #

Sub workingVBAFunction()
    Dim conn As Object
    Dim connStr As String
    Dim path As String
    path = ThisWorkbook.FullName
    connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
    Set conn = CreateObject("ADODB.Connection")
    Call conn.Open(connStr)
    conn.Close
    Set conn = Nothing
End Sub

仅在装Access的机器上运行的VB.NET函数 #

Sub failingDotNETFunction()
    Dim conn As Object = CreateObject("ADODB.Connection")
    Dim connStr As String
    Dim path As String
    path = Environ("userprofile") & "\desktop\Book1.xlsm"
    connStr = $"Provider=Microsoft.ACE.OLEDB.12.0;Data Source={path};Extended Properties=""Excel 12.0 Xml;HDR=YES;"";"
    conn.Open(connStr)
    conn.Close
End Sub

需求目标 #

要在本地没有Access Engine的情况下，用VB.NET实现和VBA完全兼容的Excel连接能力。

已尝试的无效方案 #

之前试过这些方法，但在无Access的机器上都不管用：

• 修改连接字符串的Provider：
  • Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & path & ";Extended Properties='Excel 8.0 Xml'
  • Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DSN=Excel Files; DBQ=" & path & ";
  • Excel File=" & path & ";
• 调整应用编译架构为Any CPU/x64/x86

可行解决方案 #

核心问题在于：VBA是在Excel进程内部运行，它用的ADODB连接依赖的是Excel自带的ACE驱动（已经嵌入在Excel进程里，不需要系统全局注册）；而VB.NET作为独立进程，调用ADODB需要系统全局注册对应的Provider，没有管理员权限根本做不到。

所以我们换个思路——直接复刻VBA的本质：调用Excel的COM对象来操作文件，完全绕开ADODB/OLEDB驱动的依赖。这样只要机器上装了Excel，就能正常运行，和VBA的兼容性完全一致。

改写后的VB.NET函数 #

Sub WorkingDotNETFunction()
    Dim excelApp As Object = CreateObject("Excel.Application")
    ' 设置为后台运行，不显示Excel窗口
    excelApp.Visible = False
    
    Try
        Dim excelPath As String = Environ("userprofile") & "\desktop\Book1.xlsm"
        Dim workbook As Object = excelApp.Workbooks.Open(excelPath)
        Dim worksheet As Object = workbook.Worksheets(1) ' 取第一个工作表
        
        ' 这里可以添加你的业务逻辑，比如读取单元格数据
        Dim sampleValue As Object = worksheet.Cells(1, 1).Value
        Console.WriteLine($"A1单元格内容：{sampleValue}")
        
        ' 关闭工作簿，不保存更改
        workbook.Close(SaveChanges:=False)
    Catch ex As Exception
        ' 处理异常，比如文件不存在、权限不足等
        Console.WriteLine($"操作出错：{ex.Message}")
    Finally
        ' 必须退出Excel并释放COM对象，避免残留Excel进程
        excelApp.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
        excelApp = Nothing
    End Try
End Sub

为什么这个方案可行？ #

• 完全依赖已安装的Excel，不需要任何额外驱动或软件，和VBA的运行逻辑一致
• 兼容x32/x64位系统以及Win7/8/10所有支持Excel的版本
• 不需要管理员权限，因为只是调用已存在的COM对象

注意事项 #

• 一定要在Finally块里释放COM对象并退出Excel，否则会导致Excel进程在后台残留
• 如果需要处理大量数据，这种方式的性能可能和ADODB接近，但如果是超大数据集，可以考虑分批读取
• 可以根据需求调整工作表索引、读取范围等操作，和VBA里的写法几乎一致

内容的提问来源于stack exchange，提问作者hiichaki