为VBA方式统计多表数据，增加检测

yessanya

Dim Fso, Fld, Fl
Dim arr, brr(1 To 2, 1 To 13), i%, j%
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fld = Fso.getfolder(ThisWorkbook.Path & "\数据\")
If Fld.Files.Count > 0 Then
   Application.ScreenUpdating = False
   For Each Fl In Fld.Files
       Workbooks.Open (Fl)
       arr = ActiveWorkbook.Worksheets(1).[B6:N7]
       For i = 1 To 2 '逐行
           For j = 1 To 13 '逐列
               If IsNumeric(arr(i, j)) Then brr(i, j) = brr(i, j) + arr(i, j)
           Next
       Next
       ActiveWorkbook.Close
   Next
   Application.ScreenUpdating = True
   ThisWorkbook.Worksheets(1).[B6:N7] = brr '写数据
   MsgBox "汇总完成"
Else
   MsgBox "没有找到任何工作簿文件"
End If

请教：
1、需要写入验证：导入了哪些表（可单独建一个工作表sheet1，A1为序号，B1为统计的文件名，C1为导入后处理状态）