sql-server - 有没有办法在 Excel 2007 中生成唯一标识符(在 SQL Server newid() 中)

Question

您能否在 Excel 2007 中创建唯一标识符。我正在寻找由 SQL Server 函数 newid() 生成的相同值。

谢谢

Answer 1

您可以使用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