从 Excel 调用 Access 函数答案

【问题标题】：Calling Access function from Excel从 Excel 调用 Access 函数
【发布时间】：2018-12-16 05:53:51
【问题描述】：

我正在尝试从 Excel 调用 GUIDFromString 访问函数。

Dim accessApp
Set accessApp = CreateObject("Access.Application")

accessApp.OpenCurrentDatabase (ThisWorkbook.Path & "\" & "DB.accdb")

MsgBox accessApp.GUIDFromString("PassingAString")

accessApp.Quit

Set accessApp = Nothing

我尝试了不同的方法，但都产生了错误。以上正在生成：

ActiveX component can't create object

(https://msdn.microsoft.com/en-us/vba/access-vba/articles/application-guidfromstring-method-access)

编辑：我刚刚看到这篇文章 (Password hash function for Excel VBA)，出于我的目的使用了 Chris 的代码。

【问题讨论】：

试试GUIDFromString 而不是GUIDStromString ...？
@Andre 哎呀，更正了。它现在会生成一个不同的错误“ActiveX 组件无法创建对象”。
从您的 cmets 看来，您更像是想要一个散列函数。 stackoverflow.com/questions/125785/…
@TimWilliams 谢谢，我已经找到了那个帖子并编辑了我的帖子，包括链接

标签： excel vba ms-access ms-access-2010 excel-2010

【解决方案1】：

GUIDFromString 似乎只适用于实际的 GUID 字符串。

访问中：

? GUIDFromString("some string")

ActiveX 组件无法创建对象

? References(1).Guid
{000204EF-0000-0000-C000-000000000046}

? GUIDFromString("{000204EF-0000-0000-C000-000000000046}")
?  À  ?

它是一个字节数组，所以 Debug.Print 或 MsgBox 并没有什么意义，但是使用 GUID 字符串该方法可以工作。

【讨论】：

谢谢，在那种情况下这个功能对我没有用:)