GUID 만들기

시너리 객체는 고유한 ID 를 가지는데 GUID(Global Unique IDentifier)이다.
UUID(Universal Unique IDentifier) 라고도 부른다.

어쨋거나 수작업으로 시너리 만들다보면 객체마다 guid 를 부여해야 하는데
이때 사용하는게 guid 생성기이다.
여러가지 방법이 있는데

1. 마이크로소프트에서 배포하는 guidgen.exe
        요건 하나씩 만든다.

2. Online 으로 생성하기
        http://www.guidgenerator.com/online-guid-generator.aspx
        한번에 2,000 까지 만들 수 있다.

3. 엑셀 사용자 정의 함수로 만들기
(출처 : http://www.excelforum.com/excel-programming/703120-create-a-guid-in-entire-column.html)
       

'Written: October 12, 2009
'Author:  Leith Ross
'Summary: Function creates a GUID (aka CLSID) and returns it as a string.

Private Type GUID
   Data1 As Long
   Data2 As Long
   Data3 As Long
   Data4(8) As Byte
End Type

Private Declare Function CoCreateGuid _
  Lib "ole32.dll" _
  (ByRef pGUID As GUID) As Long

Private Declare Function StringFromGUID2 _
  Lib "ole32.dll" _
    (ByRef rGUID As Any, _
     ByVal lpstrCLSID As Long, _
     ByVal cbMax As Long) As Long

Function CreateGUID() As String

  Dim b() As Byte
  Dim BuffSize As Long
  Dim RetVal As Long
  Dim MyGUID As GUID

    BuffSize = 40
    ReDim b(BuffSize * 2) As Byte
   
    RetVal = CoCreateGuid(MyGUID)
    RetVal = StringFromGUID2(MyGUID, VarPtr(b(0)), BuffSize)
    CreateGUID = Left$(b, RetVal - 1)

End Function

엑셀 행수가 6만여개 정도되니까 일반적인 경우라면 부족할 일 없다.