VB.NET操作Excel无因失败，请求排查代码错误

错误说明 #

你遇到的错误为：无法创建ActiveX组件（对应截图中的英文错误信息：Cannot create ActiveX component.）

代码问题分析 #

• Workbook实例化方式错误：Excel的Workbook对象不能直接通过New Workbook创建，必须依赖已启动的Excel Application实例，通过Workbooks.Add()方法生成，否则会触发ActiveX组件创建失败。
• SaveAs调用对象错误：SaveAs是Workbook的方法，不是Worksheet的方法，直接调用worksheet.SaveAs会引发额外错误。
• 资源未正确释放：代码未退出Excel应用实例，会导致后台残留Excel进程，造成资源泄漏。

修正后的代码 #

Imports Microsoft.Office.Interop.Excel
Module Module3
    Public Sub OOO()
        Dim excel As Application = New Application()
        ' 通过Excel应用实例创建工作簿
        Dim workbook As Workbook = excel.Workbooks.Add()
        ' 获取工作簿的活动工作表
        Dim worksheet As Worksheet = workbook.ActiveSheet
        worksheet.Name = "Export as Excel Project"
        worksheet.Cells(1, 1) = "Value1"
        worksheet.Cells(2, 1) = "Value2"
        ' 调用Workbook的SaveAs方法保存文件
        workbook.SaveAs("d:\Actor.xls", XlFileFormat.xlWorkbookDefault)
        workbook.Close()
        ' 退出Excel应用并释放COM资源
        excel.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excel)
    End Sub
End Module

额外注意事项 #

• 确保本地已安装Microsoft Excel，且项目引用的Microsoft.Office.Interop.Excel程序集版本与本地Excel版本匹配。
• 检查保存路径的写入权限，若D:\目录无写入权限，建议更换为用户可访问的路径（例如桌面：Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Actor.xls"）。

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