excel 的问题。换成：for each sh in sheets if sh.name<>"a" then sh.visible =false end ifnext
把你那个出错的工作表，先复制，再粘贴，再删除，把粘贴的工作表改名为原来的表。
