workbook.add 下标越界

宇智波带土

Sub 拆分()
Dim wb As Workbook, k As Integer, sh As Worksheet
Application.DisplayAlerts = False
For Each sh In ThisWorkbook.Worksheets
   Set wb = Workbooks.Add
   k = k + 1
   ThisWorkbook.sheets(k).Copy wb.Worksheets(Sheet1)
   wb.SaveAs ThisWorkbook.Path & "\" & sh.Name & ".xlsx"
   wb.Close
Next sh
Application.DisplayAlerts = True
MsgBox "生成完成"
End Sub

大神们，标红的那一段提示下标越界，但是把wb.Worksheets(Sheet1)改成wb.Worksheets(1)就对了，请问是为什么？不解，求指点迷津，感谢！

microyip

Sheet的表达有两种方式
Sheets(表名),表名是一个字符串，例如：Sheets("Sheet1")
Sheets(表序号),表序号是一个整数，例如：Sheets(1)

cjjhpc

Sheet1没加双引号

taller

ThisWorkbook.sheets(k).Copy wb.Worksheets("Sheet1")

smhf_6

wb.Worksheets(Sheet1)改成wb.Worksheets(1)
此是，1是序列号，是数值，当然正确。
或者：
ThisWorkbook.sheets(k).Copy wb.Worksheets("Sheet1")
也是正确的，因为是名称，所以有一对引号

其实，最搞脑子的是名称是数字，但不是序列号，这时必须按文本看待