见如下代码，如何在操作完每个sheet时或操作完每个EXCEL文件时释放内存？
Dim path As String = args(0)
Dim file As Object
'//开始翻译
For Each file In FileSys.GetFiles(path)
try
Dim Book As New XLS.Book(file)
For k As Integer = 0 To Book.Sheets.Count-1 '//多个sheet的处理
Dim Sheet = Book.Sheets(k)
If Sheet.Cols.Count < 500 Then
'Application.DoEvents()
For i As Integer = 0 To Sheet.Rows.Count-1
For j As Integer = 0 To Sheet.Cols.Count -1
If sheet(i,j).text > "" Then
If Forms("提取工具").Controls("CBox").Checked = True AndAlso System.Text.RegularExpressions.Regex.Match((sheet(i, j).Text),"[\u4e00-\u9fa5]+").Tostring()>"" =True Then
Dim dr As DataRow = DataTables("排重表").AddNew
dr("第一列") = sheet(i,j).Text
ElseIf Forms("提取工具").Controls("CBox").Checked = False Then
Dim dr As DataRow = DataTables("排重表").AddNew
dr("第一列") = sheet(i,j).Text
End If
End If
Next
Next
加好友 
发短信
Post By：2016/4/15 15:47:00 [显示全部帖子]
