代码之家 › 专栏 › 技术社区 › codingguy3000

是否可以在Excel2007中生成唯一标识符(在SQL Server NewID()中)

excel sql-server

codingguy3000 · 技术社区 · 16 年前

可以在Excel2007中创建唯一标识符吗?我在寻找由SQL Server函数newid()生成的相同值。

谢谢

1 回复 | 直到 16 年前

Svetlozar Angelov 16 年前

你可以使用 CoCreateGuid API函数

Declare Function CoCreateGuid Lib "ole32" (ByRef GUID As Byte) As Long

Public Function CreateGUID()
   Dim ID(0 To 15) As Byte
   Dim N As Long
   Dim GUID As String
   Dim Res As Long
   Res = CoCreateGuid(ID(0))
   For N = 0 To 15
      GUID = GUID & IIf(ID(N) < 16, "0", "") & Hex$(ID(N))
   Next N
   CreateGUID = GUID
End Function

推荐文章