下述代码的意思是，历遍某文件夹中的.xlsx，或是.xlsm文件（除了e.Form.Controls("Label4").text和一临时表以外），如果这个文件中有某个名称的sheet，就记录到wjm中。
结果是，如果文件夹中的文件大于20个，就很可能会提示内存耗尽。文件不多时，可以正常运行。
请教这段代码有什么问题吗？需要怎么样优化？
Dim dz2 As String = FileSys.GetParentPath(e.Form.Controls("Label4").text)
Dim wjm As String = "" '文件名
Dim i As Integer
For Each File As String In FileSys.GetFiles(dz2) '历遍dz文件夹中的所有文件
If file <> e.Form.Controls("Label4").text And (File.EndsWith(".xlsx") Or File.EndsWith(".xlsm")) Then
If file.Contains("~$") = False Then
Dim Book1 As New xls.Book(dz2 &"\"& FileSys.GetName(file)) '定义一个XLS对象
Dim sl As Integer = Book1.sheets.count
For i = 1 To sl Step 1
If Book1.sheets(i-1).name = e.Form.Controls("Label12").text Then '如果也存在当前表
wjm = wjm & "|" & FileSys.GetName(file)
End If
Next
End If
End If
Next
加好友 
发短信
Post By：2022/10/22 23:17:00 [显示全部帖子]
