vb.net以隐身模式打开多个excel文件

时间:2016-06-01 15:18:35

标签: vb.net excel

这是我打开多个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))

那么,我该怎么做?

0 个答案:

没有答案