Excel VBA CreateObject:运行时错误'432':在自动化操作期间未find文件名或类

如何修复错误“运行时错误'432':在自动化操作过程中找不到文件名或类在Excel VBA中调用”CreateObject(“Scripting.FileSystemObject”)“时出现?

我有一个电子表格,其中有两个工作在其他计算机上的macros,在我恢复工厂并重新安装Office之前用于在我的电脑上工作。

我在Windows 7 64位,运行Office Home和Student 2010。

我追溯了这个错误,并创build了一个新的电子表格,其中包含一个运行一行的macros:

Set objFSO = CreateObject("Scripting.FileSystemObject") 

这个macros在其他两台电脑上运行良好,所以在我的PC环境中有一些东西让我感到困惑。 我得到的错误:

运行时错误“432”:自动化操作期间未find文件名或类名

我试过修复Office安装并完全卸载并重新安装Office。

从我在互联网上可以find的信息,我可能需要参考“Microsoft脚本运行时”。 我相信这是文件scrrun.dll。 当我将这个引用添加到我的项目时,它显示“Microsoft脚本运行时”的位置是“C:\ Users \\ Documents”。 你可以在附带的图片中看到这个错误。 这似乎不是正确的位置,并没有dll那里。

如果我检查这个引用来包含它,然后点击OK,我得到错误:

加载DLL时出错

在“C:\ Windows \ System32”中findscrrun.dll我试图注册的DLL,它工作正常。 取消注册给我的错误:

模块“scrrun.dll被加载,但对DLLUnregisterServer的调用失败,错误代码为0x800300002。

我确保pipe理员组拥有该文件,以防万一是权限问题。 我也尝试在安全模式下运行注销。

我可能会看到“Microsoft脚本运行时”参考和/或scrrun.dll总切线。

感谢您的任何build议!

各种错误的截图