从Excel调用访问功能

Question

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

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/zh-cn/vba/access-vba/articles/application-guidfromstring-method-access ）

编辑：我刚刚碰到了这篇文章（ Excel VBA的密码哈希函数 ），出于我的目的使用了克里斯的代码。

Answer 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字符串，该方法有效。