[已解决]判断“统计”文件所在目录中，所有工作薄中“报表”工作表的样式是否一致，

zjdh · 发表于 2014-3-29 15:56

或则将
Set AD = Sheets("报表").UsedRange
改成
Set AD = Sheets("报表").Range("A1:W100")
预设区域大一点，不过运算速度会慢一点。

yjwdjfqb · 发表于 2014-4-10 13:42

zjdh 发表于 2014-3-28 10:51
Sub test()
Set AD = Sheets("报表").UsedRange
FL = Dir(ThisWorkbook.Path & "\*.xls")

老师，今天刚发现的问题

判断　工作表　（只判断合并单元格是不是完全一致）

应该是　工作薄1　和工作薄7　不一样

只提示，是　工作薄1　不一样，（工作薄6有只读密码，密码111）

判断样式是否一致.rar (53.89 KB, 下载次数: 3)

zjdh · 发表于 2014-4-10 14:03

yjwdjfqb 发表于 2014-4-10 13:42
老师，今天刚发现的问题

判断　工作表　（只判断合并单元格是不是完全一致）

没错啊，提示7.xls格式不一致！

yjwdjfqb · 发表于 2014-4-10 16:17

zjdh 发表于 2014-4-10 14:03
没错啊，提示7.xls格式不一致！

还在　工作薄1

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