[已解决]求高手扫一眼代码

shukasei

各位高手好呀
我初学VBA。我写了一段很简单的代码，想按一下按钮就复制第一张worksheet，并且命名为1日报表，按第二次出现2日报表，按第三次出现3日报表，可是貌似最后一句重命名代码出错了，不知错在哪里？请高手提点
系统提示，编译错误 缺少 语句结束
代码如下：

Private Sub CommandButton1_Click()
Sheets("原件").Copy before:=Sheets("排序")
Dim sh As Worksheet, x As Integer
Set sh = ActiveSheet
x = Sheets.Count - 1
sh.Name = x&"日报表"
End Sub

其中 原件 和排序都是两张工作表的名字。这张workbook中只有这两张sheet。

恳请高手提点

最佳答案

月排行榜 / 总排行榜

zjdh

2013-10-27 13:28

语句没错，是 & 两边没有空格！

跳转到最佳答案楼层

我心飞翔410

Static x As Integer  试试这个 把  x as integer
x=  删除试试

zjdh

语句没错，是 & 两边没有空格！

zjdh

可简化为以下2句
Sheets("原件").Copy before:=Sheets("排序")
ActiveSheet.Name = Sheets.Count - 2 & "日报表"

shukasei

zjdh 发表于 2013-10-27 13:28
语句没错，是 & 两边没有空格！

一针见血，立竿见影。谢谢

shukasei

我心飞翔410 发表于 2013-10-27 11:48
Static x As Integer  试试这个 把  x as integer
x=  删除试试

谢谢～～～

shukasei

zjdh 发表于 2013-10-27 13:34
可简化为以下2句
Sheets("原件").Copy before:=Sheets("排序")
ActiveSheet.Name = Sheets.Count - 2 & " ...

果然。学习了，谢谢～～