Public Sub killExcelProcess()
'结束 Excel 进程
Dim xlProcess As New System.Diagnostics.Process
For Each xlProcess In System.Diagnostics.Process.GetProcesses
If xlProcess.ProcessName.ToUpper.Equals("EXCEL") Then
'结束 excel 进程
xlProcess.Kill()
End If
Next
End Sub
Microsoft.Office.Interop.Excel.Application app = new
Microsoft.Office.Interop.Excel.Application();
Microsoft.Office.Interop.Excel.Workbook book = app.Workbooks.Open(System.Web.HttpContext.Current.Request.PhysicalApplicationPath+@"OutFiles\questionTemplate.xls",Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing) as Microsoft.Office.Interop.Excel.Workbook;
book.SaveAs(System.Web.HttpContext.Current.Request.PhysicalApplicationPath+@"OutFiles\"+filename
,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlShared,Type.Missing,Type.Missing,Type.Missing,Type.Missing,Type.Missing);
Microsoft.Office.Interop.Excel.Worksheet sheet = book.Sheets[1] as Microsoft.Office.Interop.Excel.Worksheet;