这是我打开多个excel文件的代码,根据其内容进行一些计算。
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop
Module Module1
Sub Main()
Dim xlApp As Excel.Application
Dim wb1 As Excel.Workbook
Dim wb As Excel.Workbook
Dim w As Excel.Worksheet
xlApp = New Excel.Application
xlApp.Visible = True
wb1 = xlApp.Workbooks.Open("E:\xls\f.xls")
wb = xlApp.Workbooks.Open("E:\xls\b.xls")
w = wb1.ActiveSheet
End Sub
End Module
此代码运行且没关系,但我想不显示excel应用程序,并取消注释设置xlApp.Visible=True
的行。但是发生此异常:
ConsoleApplication12.exe中发生未处理的“System.Runtime.InteropServices.COMException”类型异常
其他信息:服务器引发了异常。 (来自HRESULT的异常:0x80010105(RPC_E_SERVERFAULT))
那么,我该怎么做?