VBA:CreateObject(" SAP.Functions.Unicode")错误:ActiveX组件无法创建对象

2020-09-03 21:15发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


你好

我使用下面的EXCEL vba代码创建RFC控件,但是失败了,提示" ActiveX组件无法创建对象"

将oFunc作为对象
 设置oFunc = CreateObject(" SAP.Functions.Unicode")

有人可以提供解决方案吗? 谢谢!

WIN10,GUI7.50,OFFCIE365

由于此功能之前还不错,所以我找到了一个注释 2256415 说了这些 控件是从GUI7.50改编的,我不知道这是否相关吗?

 

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


你好

我使用下面的EXCEL vba代码创建RFC控件,但是失败了,提示" ActiveX组件无法创建对象"

将oFunc作为对象
 设置oFunc = CreateObject(" SAP.Functions.Unicode")

有人可以提供解决方案吗? 谢谢!

WIN10,GUI7.50,OFFCIE365

由于此功能之前还不错,所以我找到了一个注释 2256415 说了这些 控件是从GUI7.50改编的,我不知道这是否相关吗?

 
付费偷看设置
发送
2条回答
Haoba3210
1楼-- · 2020-09-03 22:00

您好浙江

您能够解决此问题吗? 我也有相同的设置/版本的应用程序。 并面临相同的错误。

Varun Chopra

歪着头看世界
2楼-- · 2020-09-03 22:02

如果要从Excel 64位执行此操作,则将需要注册表替代项才能使该工作正常。

这是代码。

显式选项
 主要
 子main()
   Create64BitEntries
 结束子

 子Create64bitEntries()
 ''''''''''''''''''''''''''''''''''''''''''''''''  ''''''''''''''''''''''''''''''''''''''
 '1.创建6个注册表项,以获取SAP.FUNCTIONS和
 'SAP.FUNCTION.UNICODE以64位工作。
 ''''''''''''''''''''''''''''''''''''''''''''''''  ''''''''''''''''''''''''''''''''''''''
 昏暗的sRegKey
 '''''处理SAP.FUNCTIONS COM键{5B076C03-2F26-11CF-9AE5-0800096E19F4}
   错误清除
   sRegKey =" HKCR \ Wow6432Node \ CLSID \ {5B076C03-2F26-11CF-9AE5-0800096E19F4} \ AppId"
   RegWriteKeyValue sRegKey," {5B076C03-2F26-11CF-9AE5-0800096E19F4}"

   错误清除
   sRegKey =" HKCR \ Wow6432Node \ AppID \ {5B076C03-2F26-11CF-9AE5-0800096E19F4} \ DllSurrogate"
   RegWriteKeyValue sRegKey,""

   错误清除
   sRegKey =" HKLM \ SOFTWARE \ Classes \ AppID \ {5B076C03-2F26-11CF-9AE5-0800096E19F4} \"
   RegWriteKeyValue sRegKey,""

 '''''处理SAP.FUNCTIONS.UNICODE COM键{0AF427E7-03B9-4673-8F21-F33A683BCE28}
   错误清除
   sRegKey =" HKCR \ Wow6432Node \ CLSID \ {0AF427E7-03B9-4673-8F21-F33A683BCE28} \ AppId"
   RegWriteKeyValue sRegKey," {0AF427E7-03B9-4673-8F21-F33A683BCE28}"

   错误清除
   sRegKey =" HKCR \ Wow6432Node \ AppID \ {0AF427E7-03B9-4673-8F21-F33A683BCE28} \ DllSurrogate"
   RegWriteKeyValue sRegKey,""

   错误清除
   sRegKey =" HKLM \ SOFTWARE \ Classes \ AppID \ {0AF427E7-03B9-4673-8F21-F33A683BCE28} \"
   RegWriteKeyValue sRegKey,""
 结束子


 函数RegWriteKeyValue(regKey,value)
   '此函数在注册表项中写入一个值
   昏暗的WshShell
   错误清除
   设置WshShell = WScript.CreateObject(" WScript.Shell")
   WshShell.RegWrite regKey,值" REG_SZ"
   RegWriteKeyValue =错误号
   设置WshShell =无
 终端功能


 

一周热门 更多>