由于将excel从32位升级到64位，因此VBA代码不起作用。 Active X组件无法创建对象

Question

我最近将PC从Windows 7升级到Windows10。我在整个过程中一直使用Office 2016，但是现在我使用的是Excel 64位，而以前的VBA代码是用32位编写的。我只是想尝试使用excel VBA自动处理电子邮件：

Dim outlookapp As Object
Dim outlookmailitem As Object

Set outlookapp = CreateObject("Outlook.Application")
Set outlookmailitem = outlookapp.createitem(0)

该代码从以下一行移出：

Set outlookapp = CreateObject("Outlook.Application")

我收到错误消息的地方： 运行时错误“ 429”：Active X无法创建对象。

我已经进行了一些广泛的研究，无法找到该错误的解决方案。导致我相信我需要稍微修改代码以与64位VBA兼容，但是我不知道该怎么做。

我尝试过：

• 使用早期绑定方法（例如Dim outlookapp作为Outlook.Application）
• 在“工具”>“参考”部分中勾选某些参考
• 检查正确的文件路径位于“注册表”部分中

没有一个有效。理想情况下，我希望避免卸载64位并重新安装32位。任何想法将不胜感激。