在前面添加代码 ，忽略错误On Error Resume Next 或者判断一下工作表的属性是不是隐藏的，如果不是再打印！
把隐藏的工作表放在最后面，代码for i = 1 to 显示的工作表数把sheets(工作表名称)改成sheets(i)next
