请选择 进入手机版 | 继续访问电脑版

库管易

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫描二维码登录本站

查看: 31857|回复: 11

Excel自动化(Automation)错误发生意外的解决办法(修复工具)

[复制链接]
  有时候在使用Excel表格中遇到的问题,打开任意Excel文档,均出现“Microsoft Office Excel 遇到问题需要关闭。我们对此引起的不便表示抱歉。您正在处理的信息有可能丢失。Microsoft Office Excel 可以尝试为您恢复”。

  

635198627063388671.jpg

635198627063388671.jpg


  然后出现“Microsoft Visual Basic 自动化(Automation)错误 发生意外。”的对话框,如下图所示:

  

635198627089248046.jpg

635198627089248046.jpg


  关于Microsoft Office Excel遇到问题需要关闭的信息倒有点类似于之前遇到的由于Normal.dot损坏导致Word打开出现的对话框,于是顺着上次的思路进行手动的修复。

  准备步骤:一是关闭所有Excel文档,打开“任务管理器”,结束残余的Excel.exe进程;二是打开隐藏文件开关;三是开始运行输入%APPDATA%\Microsoft\Excel以便于打开配置文件夹,分别删除%APPDATA%\Microsoft\Excel和%APPDATA%\Microsoft\Excel\XLSTART下所有文件,这一步我找到了问题的所在,在XLSTART目录下存在一个带毒的k4.xls文档,这个目录下的Excel文档所包含的程序将会在打开Excel时自动加载,这样k4.xls中所包含的恶意代码就可以执行并感染正常Excel了,所以我们立即删除它;四是找到Office的安装路径,比如我的Office 2003装在D盘Program Files,那么路径就是D:\Program Files\Microsoft Office\Office11,这里Office11对应着Office 2003,同样的Office12对应Office 2007,Office 14对应着Office 2010,好了,找到XLSTART文件夹,删除这个文件夹内的所有文件。

  通过以上步骤后,及时升级更新你的杀毒软件,全盘查杀病毒,完成后Excel就可以正常打开了。

  当然你也可以尝试我编写的批处理来快速解决这个问题,将下面代码另存为批处理文件(*.bat),双击运行即可修复Excel,如果是Vista、Win7或者更高版本请右击以管理员身份运行,运行前请保存你的所有Excel工作簿并且关闭Excel程序,因为本批处理会强制结束未关闭的Excel运行以保证清理效果:
  1. REM
  2. REM COPYRIGHT : Copyright (c) 2013 WangYe. All rights reserved.
  3. REM
  4. REM DESCRIPTION : Clear ALL FILES in Excel XLSTART directory.
  5. REM AUTHOR : WANGYE
  6. REM WEBSITE : http://wangye.org
  7. REM
  8. REM Compatible with Office 2003/2007/2010
  9. REM
  10. REM Last Update : 2013/1/10
  11. REM
  12. @ECHO OFF

  13. :BEGIN
  14. CLS
  15. ECHO Copyright (c) 2013 WangYe. All rights reserved.
  16. ECHO For more information please visit http://wangye.org
  17. ECHO.
  18. ECHO Please wait...

  19. TASKKILL /F /IM EXCEL.EXE>NUL 1>NUL 2>NUL

  20. SETLOCAL EnableDelayedExpansion

  21. FOR /L %%i IN (14,-1,11) DO (
  22.     if %%i NEQ 13 (
  23.         SET KEY_NAME="HKLM\SOFTWARE\Microsoft\office\%%i.0\Excel\InstallRoot"
  24.         FOR /F "tokens=2*" %%A IN ('REG QUERY !KEY_NAME! /v "Path" 2^>NUL ^| FINDSTR "REG_SZ"') DO (
  25.             SET ExcelInstallDir=%%B
  26.             CALL :EMPTY_DIR "!ExcelInstallDir!\XLSTART">NUL
  27.         )
  28.     )
  29. )

  30. SET EXCELDIR=\Microsoft\Excel
  31. CALL :EMPTY_DIR "%APPDATA%%EXCELDIR%\XLSTART">NUL
  32. DEL /F /S /A /Q "%APPDATA%%EXCELDIR%">NUL 1>NUL 2>NUL

  33. GOTO :SUCCEEDED

  34. :EMPTY_DIR
  35. ECHO %1
  36. IF EXIST %1 (
  37.   DEL /F /S /A /Q %1>NUL 1>NUL 2>NUL
  38.   RMDIR /S /Q %1>NUL 1>NUL 2>NUL
  39. )
  40. MKDIR %1>NUL 1>NUL 2>NUL
  41. GOTO :EOF

  42. :SUCCEEDED
  43. ECHO.
  44. ECHO Microsoft Office Excel Recovery complete:-)
  45. ECHO.
  46. PAUSE

  47. :EOF
  48. EXIT
复制代码

  这个批处理主要用于清理Office 2003/2007/2010版本的Excel的XLSTART文件夹内的所有文件,请谨慎使用,本人不确保上述代码没有Bug,如果因此造成的后果本人不承担责任。使用前请安全关闭所有Excel工作簿并及时保存未存档的工作,为保证清理效果,本批处理会强制关闭所有Excel程序。

  双击bat后出现Microsoft Office Excel Recovery complete:-)则表明修复完成。

  最后不知道怎么保存上述代码的朋友,可以直接下载现成的清理XLSTART文件夹修复Excel ,解压后双击运行即可,做好的bat批处理文件在下面附件中:

Excel修复工具.zip

916 Bytes, 下载次数: 136, 下载积分: 贡献 -2

Excel修复工具.zip

回复

使用道具 举报

学习了!!!!!!!!!!
回复 支持 反对

使用道具 举报

确实解决了工作中的问题
回复 支持 0 反对 1

使用道具 举报

好深奥啊。。。。不过收藏了
回复 支持 0 反对 1

使用道具 举报

好复杂啊,不知道咋整
回复 支持 0 反对 1

使用道具 举报

慢慢学习吧
回复 支持 反对

使用道具 举报

来自手机 显示全部楼层
努力学习中
回复 支持 反对

使用道具 举报

确实管用,多谢!
回复 支持 反对

使用道具 举报

确实解决了工作中的问题
回复 支持 反对

使用道具 举报

来自手机 显示全部楼层
多谢,可以用
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|仓库管理网

GMT+8, 2024-3-29 17:46

Powered by 库管易

KuGuanYi.Com

快速回复 返回顶部 返回列表