vba输入代码重命名工作薄时显示“下标越界”，执行“显示当前工作表”时显示“编译错误，缺少结束语句”

Question

增加的1~10张工作表重命名时只有sheet8
Worksheets("sheet8").name="销售日报8" （显示下标越界）
Worksheets ("sheet2") .Visible = Ture.（“编译错误，缺少结束语句”）

Answer 1

首先：
Worksheets("sheet8").name="销售日报8" （显示下标越界）
这个错误是你的表格中sheet8的名字已经改成别的了，系统找不到。

Worksheets ("sheet2") .Visible = Ture.（“编译错误，缺少结束语句”）
这个错误是你的True后面多了个句号"."。
改成
Worksheets ("sheet2") .Visible = Ture
即可

Answer 2

你下标越界的问题，你要确认一下是否存在名叫“sheet8”的工作表。
第二错误嘛，你得发全部的代码才能看出来。你给出的那句代码中间有空格，直接会变红的