单独保存表格，提示下标越界

ximubo

各位大大，这个帖子里面 http://www.360doc.com/content/17/0318/19/30583536_637982009.shtml

3、拆分工作表为单独的excel文件

把当前excel文件中除第1个工作外的所有工作表，均保存为单独的excel文件到3月文件夹中。

一个工作簿中有主表和1-31号的子表，要把1-31号的子表单独保存到文件夹中，

为什么我复制教程中一模一样的代码运行缺一直显示下标越界？

代码：

---

Sub 拆分表格()

Dim x As Integer

Dim wb As Workbook

Application.ScreenUpdating = False

For x = 2 To 32

   Sheets(x).Copy

   Set wb = ActiveWorkbook

   With wb

    .SaveAs ThisWorkbook.Path & '/3月/' & Sheets(x).Name & '.xlsx'

    .Close True

   End With

Next x

Application.ScreenUpdating = True

End Sub

abc123281

建议上传附件来查看问题

abc123281

代码仅供测试参考
Sub 拆分表格()
Dim x As Integer
Dim wb As Workbook
Application.ScreenUpdating = False
For x = 1 To 12
   Sheets(x).Copy
   Set wb = ActiveWorkbook
   With wb
    .SaveAs ThisWorkbook.Path & "/3月/" & ThisWorkbook.Sheets(x).Name
    .Close True
   End With
Next x
Application.ScreenUpdating = True
MsgBox "OK!", vbInformation
End Sub

ximubo

abc123281 发表于 2018-8-28 17:10
代码仅供测试参考
Sub 拆分表格()
Dim x As Integer

没有附件，是一个学习的教程里面的，
复制你的代码，只把你的代码中For x = 1 To 12 改成教程中长度For x = 2 To 32 也可以运行了，不会提示下标越界了
好奇怪，除了这个for语句循环长度，你的代码和教程代码没差别，为啥教程中的就不行

ximubo

abc123281 发表于 2018-8-28 17:10
代码仅供测试参考
Sub 拆分表格()
Dim x As Integer

我知道差别了
.SaveAs ThisWorkbook.Path & "/3月/" & ThisWorkbook.Sheets(x).Name
这一句的差别，教程中没有后面一句没有注明thisworkbook.

谢谢！

abc123281

好的  那就好