请各位帮忙增加检测语句

yessanya · 发表于 2015-12-28 23:23

本帖最后由 yessanya 于 2016-1-4 13:57 编辑

请教：
   需要在以下语句中加入检测语句，验证：导入了多少条表、表名称、以及是否导入成功
（可单独建一个工作表sheet1，A1为序号，B1为统计的文件名，C1为导入后处理状态）
   谢谢各位！

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

测试.rar (28.94 KB, 下载次数: 6)

橘子红 · 发表于 2015-12-28 23:37

附件

yessanya · 发表于 2015-12-28 23:53

本帖最后由 yessanya 于 2015-12-29 10:26 编辑

谢谢2楼版主帮助，但不能打开文件，报错，能重新传吗，谢谢！

yessanya · 发表于 2015-12-29 10:27

版主请重新传下文件

爱疯 · 发表于 2015-12-29 10:40

汇总表2.rar (9.76 KB, 下载次数: 2)

yessanya · 发表于 2015-12-29 13:25

谢谢超级版主了

yessanya · 发表于 2015-12-29 13:37

本帖最后由 yessanya 于 2015-12-29 15:04 编辑

但是好像只有“处理成功”语句，没有验证成功语句？
比如:确定表头是不是在第二行，表中的“本部”是否下一行就是“公司”，M5是否为”合计“等

返回的表有可能被改动过，但其中返回数据的那两行应该没问题
所以需要确定表中”本部“和”公司“在那个位置，在取它的行的后几列的数据
就是判断并确认如下表的” i “ 和” j “的正确位置
   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
能不能再请版主看看，谢谢！

		自动登录	找回密码
密码			注册

请各位帮忙增加检测语句

相关帖子

评分