[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[注册表类] 用批处理怎么启用Excel的插件呢

请教一下各位,我Excel卡住就经常会被禁用DLL文件,我想快速解除禁用后再启用这个插件,自己的电脑我就可以用批处理启用,但是不知道怎么解除禁用,但是我换一台电脑用的是2016就无效了,不知道是不是注册列表不一样。我需要在2010以上的版本都通用,就是不知道怎么改,请教一下各位。
代码如下:
  1. @echo off
  2. setlocal EnableExtensions EnableDelayedExpansion
  3. rem 检测Excel安装路径
  4. for /f "tokens=3" %%i in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\Configuration" /v "ProductReleaseIDs"') do (
  5.     set "version=%%i"
  6. )
  7. if not defined version (
  8.     echo Could not determine installed Excel version.
  9.     pause
  10.     exit /b 1
  11. )
  12. rem 检测CE card文件夹路径
  13. set "ce_card_path=C:\Windows\SysWOW64\CE card"
  14. if not exist "%ce_card_path%" (
  15.     echo CE card folder not found.
  16.     pause
  17.     exit /b 1
  18. )
  19. rem 添加workbook32.dll
  20. set "dll_path=%ce_card_path%\workbook32.dll"
  21. if exist "%dll_path%" (
  22.     regsvr32 /s "%dll_path%"
  23.     echo Successfully added workbook to Excel COM add-ins.
  24. ) else (
  25.     echo %dll_path% not found.
  26. )
  27. rem 添加workbook64.dll
  28. set "dll_path=%ce_card_path%\workbook64.dll"
  29. if exist "%dll_path%" (
  30.     regsvr32 /s "%dll_path%"
  31.     echo Successfully added workbook to Excel COM add-ins.
  32. ) else (
  33.     echo %dll_path% not found.
  34. )
  35. rem 启用workbook加载项
  36. set "progid=workbook"
  37. set "version=%version:.=.%"
  38. set "reg_key=HKEY_CURRENT_USER\Software\Microsoft\Office\%version%\Excel\Options"
  39. reg add "%reg_key%" /v "OPEN" /t REG_SZ /d "!%progid! /r" /f >nul
  40. if errorlevel 1 (
  41.     echo Failed to enable workbook COM add-in.
  42. ) else (
  43.     echo Successfully enabled workbook COM add-in.
  44. )
  45. echo Done.
  46. pause
复制代码

回复 2# Batcher 没搞懂怎么改,还是不行 ,还请赐教

TOP

经过多次反复查找跟禁用测试,发现删除OPEN这个是无效的,禁用项还是会存在,只能手动启用才行,有其它解决办法吗?

TOP

返回列表