请教VBA代码哪里错了？

RuthWan1 · 发表于 2019-9-19 10:15

本帖最后由 RuthWan1 于 2019-9-19 10:17 编辑

初学VBA，下面代码不运行，也不提示错误，请教大神哪里有错误？
Sub Change_Worksheets_Name()
' On Error GoTo error
' Change Worksheets Name
'For n = IncomeStmt
'Sheets(n).Name = Sheets(n).Cell("Contents", D6)
'Next
error:

End Sub

这个宏是想把自动插入的7个File根据每个File里面D6的内容更改为Worksheet的名，以方便公式的自动计算。谢谢啦！

Incomestmt是File从系统里自动下载后原Worksheet名。

wcs98 · 发表于 2019-9-19 10:51

把前面的单引号去掉试试

maditate · 发表于 2019-9-19 10:54

楼主明白单引号的含义吗？

DevilW · 发表于 2019-9-19 10:56

单引号是注释，不运行的

RuthWan1 · 发表于 2019-9-19 10:58

取消单引号提示: Compile error: Expected: end of statement

killq · 发表于 2019-9-19 11:03

建议楼主换个问法：代码哪里对了

认真讲：除了关键词拼对了外，真的就没有对的了

petergaod · 发表于 2019-9-19 11:05

愣是没看懂

RuthWan1 · 发表于 2019-9-19 11:21

谢谢批评，小白初学啥也不会。大神可以直接告诉我正确的代码就好了，需要实现在插入在7个Worksheet之后将原Worksheet名IncomeStmt，IncomeStmt(2)，IncomeStmt(3).....改为以每个File里面D6的内容为Worksheet名，谢谢啦！

wj2368 · 发表于 2019-9-19 11:28

本帖最后由 wj2368 于 2019-9-19 11:29 编辑

循环不是怎么写的

petergaod · 发表于 2019-9-19 11:47

RuthWan1 发表于 2019-9-19 11:21
谢谢批评，小白初学啥也不会。大神可以直接告诉我正确的代码就好了，需要实现在插入在7个Worksheet之后将原 ...

File是什么鬼

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

[求助] 请教VBA代码哪里错了？