2013年10月31日
Excel里生成GUID
摘要： Private Declare Function CoCreateGuid Lib "ole32" (id As Any) As Long Private Function CreateGUID() As String Dim id(0 To 15) As Byte Dim Cnt As Long, GUID As String If CoCreateGuid(id(0)) = 0 Then For Cnt = 0 To 15 CreateGUID = CreateGUID + IIf(id(Cnt) < 16, "0", "" 阅读全文
posted @ 2013-10-31 15:16 Patrick Yu 阅读(6349) 评论(0) 推荐(0)