首先：Worksheets("sheet8").name="销售日报8" （显示下标越界）这个错误是你的表格中sheet8的名字已经改成别的了，系统找不到。Worksheets ("sheet2") .Visible = Ture.（“编译错误，缺少结束语句”）这个错误是你的True后面多了个句号"."。改成 Worksheets ("sheet2") .Visible = Ture 即可...
难道是第二个冒号打成分号了？嗯，应该就是的，把textbox2=“”后边的分号改成冒号应该就对了。实在不行就把三个语句分三行运行肯定没问题。