<em>excel</em>应用程序定义或对象定义错误！-excel 应用程序定义错误,打开ex

应用程序错zd误解决方法：
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 回车。
如果怕输入错误，可以复制这两条指令，然后在命令提示符后击鼠标右键，打“粘贴”，回车，耐心等待，直到屏幕滚动停止为止（重启电脑）。

在前面加上一zhidao句：On Error Resume Next，修改版后的代码如下：

Sub 拆分工权作表()
    On Error Resume Next
    Dim sht As Worksheet    
    Application.DisplayAlerts = False    
    For Each sht In Worksheets        
        sht.Copy        
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sht.Name & ".xls"        
        ActiveWorkbook.Close    
        Next    
        Application.DisplayAlerts = True
End Sub

当定义key_row变量后，key_row的值是知0，
If Worksheets(i + 1).Cells(key_row, 3) <> "" Then

在这条语道句前没有给key_row赋值，这时key_row的值是0，但在cells中的两个参回数都不为0，如果是0就出错误。答

楼主一定是初次接触百VBA。
If Cells(row1, "A") = 日期1.Value Then

【row1】是什么，变量？请为他赋值，如果指的是第一行，请用Cells(1,1);
日期1又是什么？度猜测是文本框，那最内好用【Me.日期1】来说明清楚；
【111.Value】肯定不合法，因为【111】不可能是一个对象、容(以下同)