vb.net操作完excel之后,为什么总是生成无法杀掉的excel进程?怎么解决?着急多谢
vb.net操作完excel之后,为什么总是生成无法杀掉的excel进程?如何解决?着急~~谢谢。
代码如下:
Dim xlApp As New Excel.Application '创建一个excel应用程序对象
Dim xlBooks As Excel.Workbooks '声明一个workbooks对象
Dim xlbook As Excel.Workbook '声明一个xlbook对象
Dim xlSheets As Excel.Sheets
Dim xlSheet As Excel.Worksheet '声明一个xlSheet对象
Dim sheetlist As New ArrayList
xlBooks = xlApp.Workbooks
Dim spath, strpath As String
xlbook = xlBooks.Add
strpath = "\养护报表\修保养工程数量表.xls "
spath = Server.MapPath(strpath)
xlbook = xlBooks.Open(spath)
xlSheet = xlbook.Worksheets.Item(1)
sheetlist.Add(xlSheet)
xlSheet.Activate() '-----------------------------------------------打开sheet1
Dim conn As OleDbConnection
conn = dbcon.createcon
conn.Open()
Dim cmm As New OleDbCommand
cmm.Connection = conn
Dim no, name, unit, remark As String
Dim i As Int32
With xlSheet
For i = 453 To 453
Dim a As Excel.Range = .Cells(i, 1)
Dim b As Excel.Range = .Cells(i, 2)
Dim c As Excel.Range = .Cells(i, 3)
Dim d As Excel.Range = .Cells(i, 7)
no = CType(a.Value, String)
代码如下:
Dim xlApp As New Excel.Application '创建一个excel应用程序对象
Dim xlBooks As Excel.Workbooks '声明一个workbooks对象
Dim xlbook As Excel.Workbook '声明一个xlbook对象
Dim xlSheets As Excel.Sheets
Dim xlSheet As Excel.Worksheet '声明一个xlSheet对象
Dim sheetlist As New ArrayList
xlBooks = xlApp.Workbooks
Dim spath, strpath As String
xlbook = xlBooks.Add
strpath = "\养护报表\修保养工程数量表.xls "
spath = Server.MapPath(strpath)
xlbook = xlBooks.Open(spath)
xlSheet = xlbook.Worksheets.Item(1)
sheetlist.Add(xlSheet)
xlSheet.Activate() '-----------------------------------------------打开sheet1
Dim conn As OleDbConnection
conn = dbcon.createcon
conn.Open()
Dim cmm As New OleDbCommand
cmm.Connection = conn
Dim no, name, unit, remark As String
Dim i As Int32
With xlSheet
For i = 453 To 453
Dim a As Excel.Range = .Cells(i, 1)
Dim b As Excel.Range = .Cells(i, 2)
Dim c As Excel.Range = .Cells(i, 3)
Dim d As Excel.Range = .Cells(i, 7)
no = CType(a.Value, String)