[已解决]WORKSHEET重命名怎么写？

a8598048 · 发表于 2013-7-26 14:46

我有一个表里面有30个SHEET
我想把他们命名为 GOOD 1 GOOD 2...
我自己写了代码不好用请高人指点
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & i & ".xlsx"
For q = 1 To 30
Sheets(q).Select
ActiveSheet.name = "Good & q"
Next q
为啥不对呢？

最佳答案

月排行榜 / 总排行榜

zwb86

2013-7-26 14:54

"Good & q"改成"Good "& q

跳转到最佳答案楼层

a8598048 · 发表于 2013-7-26 14:47

{:021:}

a8598048 · 发表于 2013-7-26 14:53

{:191:}

zwb86 · 发表于 2013-7-26 14:54

"Good & q"改成"Good "& q

zwb86 · 发表于 2013-7-26 14:55

“”双引号内部程序是不认识的，你写的什么它就给你弄什么，所以字符串才必须用双引号括上

sliang28 · 发表于 2013-7-26 15:03

换成这样试一下吧

With ActiveWorkbook
For Each sht In .Sheets
m = m + 1
sht.Name = "Good" & m
Next
End With

复制代码

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

[已解决]WORKSHEET重命名怎么写？

相关帖子