ProtectedSub Button4_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button4.Click
Dim xlApp As Microsoft.Office.Interop.Excel.Application
xlApp =CType(CreateObject("Excel.Application"),
Microsoft.Office.Interop.Excel.Application)
Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
xlBook = xlApp.Workbooks.Open(savepath)
Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
xlSheet = xlBook.Worksheets("Sheet1")
xlBook.Save()
xlBook.Close()
xlApp.Workbooks.Close()
xlApp.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
xlBook =Nothing
xlApp =Nothing
GC.Collect()
End Sub
本人在VS中右击页面>>>在浏览器中查看 使用正常
但是在IIS中调试出现以下错误: 无法创建 ActiveX 组件。
说明: 执行当前 Web 请求期间,出现未处理的异常。请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息。
异常详细信息: System.Exception: 无法创建 ActiveX 组件。
源错误: 行 24: Dim xlApp As Microsoft.Office.Interop.Excel.Application 行 25: xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application) 行 26: Dim xlBook As Microsoft.Office.Interop.Excel.Workbook 行 27: xlBook = xlApp.Workbooks.Open(savepath)