Sql server 是否有方法在Excel 2007中生成唯一标识符（在SQL Server newid（）中）

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

谢谢

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

将函数CoCreateGuid Lib“ole32”（ByRef GUID作为字节）声明为
公共函数CreateGUID（）
Dim ID（0到15）作为字节
长
将GUID设置为字符串
暗淡如长
Res=CoCreateGuid（ID（0））
对于N=0到15
GUID=GUID&IIf（ID（N）<16，“0”和“）&Hex$（ID（N））
下一个
CreateGUID=GUID
端函数

谢谢您的回答。这太完美了。