拆分sheet时1004错误 应用程序定义或对象定义错误，怎么解决

Private Sub 分拆工作表()

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In MyBook.Sheets

sht.Copy

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式

ActiveWorkbook.Close

Next

MsgBox "文件已经被分拆完毕!"

End Sub

应用程序错误问题：
1.木马病毒造成常用病毒捆绑应用程序和系统文件，然后安全杀毒软件把有木马病毒应用程序和系统文件查杀导致。
2.应用程序组件丢失，应用程序完整的运行需要一些系统文件或者某些ll文件支持，如果应用程序组件不完整也会导致的。
3.系统文件损坏或丢失，盗版系统或Ghost版本系统，很容易出现该问题。
4.操作系统自身的问题，操作系统本身也会有bug 。
5.硬件问题，例如内存条坏了或者存在质量问题，或者内存条的金手指的灰尘特别多。

应用程序错误解决方法：
1.检查电脑是否存在病毒，请使用百度卫士进行木马查杀。
2.系统文件损坏或丢失，盗版系统或Ghost版本系统，很容易出现该问题。建议：使用完整版或正版系统。
3.安装的软件与系统或其它软件发生冲突，找到发生冲突的软件，卸载它。如果更新下载补丁不是该软件的错误补丁，也会引起软件异常，解决办法：卸载该软件，重新下载重新安装试试。顺便检查开机启动项，把没必要启动的启动项禁止开机启动。
4.如果检查上面的都没问题，可以试试下面的方法。
打开开始菜单→运行→输入cmd→回车，在命令提示符下输入下面命令 for %1 in (%windir%\system32\*.dll) do regsvr32.exe /s %1回车。
完成后，在输入下面
for %i in (%windir%\system32\*.ocx) do regsvr32.exe /s %i 回车。
如果怕输入错误，可以复制这两条指令，然后在命令提示符后击鼠标右键，打“粘贴”，回车，耐心等待，直到屏幕滚动停止为止（重启电脑）。

代码看不出什么问题，给你规范了下，试试： app_name = "app2_closeness" n = 0.01 do while n < 1.01 with answersheet with .sheets.add(after:=.sheets(.sheets.count)) .name = app_name & "_n=" & cstr(n) n = n + 0.01 end with end with loop 分析了下问题的原因，是不是创建的工作表的数量超过了255个？ 2003中最多sheet数量为255个，再后来的版本就没有这个限制了