导入excel,执行app.quit命令，excel在进程中并没有完全退出，是什么原因？如何解决？Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\Users\wuyong\Desktop\试验数据\A.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
Dim x As Integer = Rg.Rows.Count
Dim y As Integer = Rg.Columns.Count
Dim arr1(0 To x,0 To y) As Object
arr1 = Rg.value
Dim arr(0 To x-1,0 To y-1) As String
For h1 As Integer =1 To x
For h2 As Integer =1 To y
arr(h1-1,h2-1)=arr1(h1,h2)
Next
Next
arr1 = Nothing
wb.save
App.Quit
加好友 
发短信
Post By：2018/11/21 0:58:00 [只看该作者]
