Question

excel相关问题：VBA编写拆分工作簿程序时出现的下标越界错误。

代码如图，每次运行到标记处都弹出下标越界错误，请高手指教。

Answer 1

代码会认为  新建的 Workbook是 Thisworkbook

拆分工作薄 不用这么写

Sub 拆分()
Application.ScreenUpdating = False
b = Sheets.Count
For i = 1 To b
Sheets(i).Copy
a = ThisWorkbook.Worksheets(i).Name
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xls"
.Close True
End With
Next i
Application.ScreenUpdating = true
End Sub

追问

请问为啥会认为新建的 Workbook是 Thisworkbook？

追答

因为你保存了， 正在使用的 就是 新建的 个 Workbook

追问

保存了那个新建的之后，那个新建的工作簿那不应该是activeworkbook吗？Thisworkbook不是代码所在工作簿吗？可是我并没有把代码移动到新工作簿里呀。

追答

你的代码 是存到模块里的， 或者私有宏， 就会这样

追问

虽然。。。不是太懂。但是你给的代码真的能行诶，谢谢了！

Answer 2

你的写法是错误的，Sheets.copy相当于右键在工作表标签处点击“移动或复制工作表”并选择复制的功能。
Thisworkbook.sheets("Sheet"&i).copy '把工作表复制到新工作簿
ActiveWorkbook.SaveAs 路径及文件名（包含扩展名） '保存工作簿
ActiveWorkbook.close '关闭工作簿
你可以录制一段宏（移动或复制工作表，并保存工作簿到指定位置，再关闭文件），看一下就明白了。

追问

我把我错误的那句换成了您给我的这3句，但是运行到您给的第二句时还是出现了错误提示：应用程序定义或对象定义错误。

追答

set wkb=workbooks.add这句不需要。
for i =1 to 8
Thisworkbook.sheets("Sheet"&i).copy '把工作表复制到新工作簿
ActiveWorkbook.SaveAs thisworkbook.path & "\" & i & ".xls" '保存工作簿,这里的扩展名要根据你默认保存什么类型修改
ActiveWorkbook.close '关闭工作簿
next

追问

好的谢谢