Function CreateGuid(ParamArray S() As Variant) As String
CreateGuid = "{" + LCase(Mid$(CreateObject("Scriptlet.TypeLib").Guid, 2, 36)) + "}"
End Function
本文介绍了一种使用VBA在Excel中生成GUID的方法。通过调用Scriptlet.TypeLib对象的Guid属性,可以创建一个全局唯一标识符(GUID)。此方法适用于需要在Excel宏中生成唯一ID的场景。
Function CreateGuid(ParamArray S() As Variant) As String
CreateGuid = "{" + LCase(Mid$(CreateObject("Scriptlet.TypeLib").Guid, 2, 36)) + "}"
End Function
1万+

被折叠的 条评论
为什么被折叠?
