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

库管易

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫描二维码登录本站

查看: 6463|回复: 10

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

[复制链接]
发表于 2013-11-12 14:17:22 | 显示全部楼层 |阅读模式
  有时候在使用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, 下载次数: 81, 下载积分: 金钱 -2 , 贡献 -2

Excel修复工具.zip

回复

使用道具 举报

发表于 2014-9-10 17:05:02 | 显示全部楼层
学习了!!!!!!!!!!
回复 支持 反对

使用道具 举报

发表于 2014-9-18 09:23:23 | 显示全部楼层
确实解决了工作中的问题
回复 支持 0 反对 1

使用道具 举报

发表于 2015-4-7 19:23:34 | 显示全部楼层
好深奥啊。。。。不过收藏了
回复 支持 0 反对 1

使用道具 举报

发表于 2015-7-7 12:47:10 | 显示全部楼层
好复杂啊,不知道咋整
回复 支持 0 反对 1

使用道具 举报

发表于 2015-8-6 11:09:33 | 显示全部楼层
慢慢学习吧
回复 支持 反对

使用道具 举报

发表于 2015-8-18 23:18:00 来自手机 | 显示全部楼层
努力学习中
回复 支持 反对

使用道具 举报

发表于 2015-9-10 08:02:03 | 显示全部楼层
确实管用,多谢!
回复 支持 反对

使用道具 举报

发表于 2017-8-22 11:42:16 | 显示全部楼层
确实解决了工作中的问题
回复 支持 反对

使用道具 举报

发表于 2018-8-30 17:27:17 来自手机 | 显示全部楼层
多谢,可以用
回复 支持 反对

使用道具 举报

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

本版积分规则

手机版|仓库管理网 ( 渝ICP备18009661号-1 )

GMT+8, 2018-12-16 10:50 , Processed in 0.039244 second(s), 7 queries , Gzip On, Redis On.

Powered by 库管易

© 2012-2018 KuGuanYi.Com

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