批量修改工作表出问题

riji

一个book下有很多sheet表,第一个的名字我给定,然后此后的每个名字都在前一个的名字基础上递加1.

代码如下:
Sub lgp()
Dim i&
Dim j&
j = Sheet1.Name

For i = 1 To Sheets.Count
Sheets(i).Name = Format(j + i - 1, "0000")
Next i
End Sub

-------------------------------------------------------
但是保存到个人工作薄时,再打开一个book运行时j = Sheet1.Name这句话出现问题,不知道要怎么改??

little-key

Sheet1.Name返回的是一个文本，文本是不能加上数值的。
试试：
Sub fsda()
    n = Sheet1.Name
    i = Left(n, Len(n) - 1)
    j = Right(n, 1)
    For k = 1 To Sheets.Count
        Sheets(k).Name = i & Format(k + Val(j) - 1, "0000")
    Next k
End Sub

[ 本帖最后由 little-key 于 2009-7-5 12:46 编辑 ]