Public Shared Function getDateFromBankFile(ByRef fiArr As FileInfo()) As String
Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
xlApp = New Excel.Application
xlWorkBook = xlApp.Workbooks.Open("C:\test.xlsx")
xlWorkSheet = CType(xlWorkBook.Worksheets(1), Excel.Worksheet)
'写自己处理的过程
If (xlApp IsNot Nothing) Then
xlWorkBook.Close()
xlApp.Quit()
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
End If
End Sub
'释放内存
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub