開発ブログ - SQL Server にインポートする GUID をExcel で生成
Private Function GenGuid() As String
Dim Guid As String
Dim l As Integer
Guid = CreateObject("Scriptlet.TypeLib").Guid
l = InStr(Guid, "}")
GenGuid = Mid(Guid, 1, l)
End Function
Public Sub SetGuid()
Dim r As Integer
For r = 1 To Selection.Count
Selection(r).Value = GenGuid()
Next
End Sub
SQL Server の Management Studio で見ると GUID は {} なしだが
SSIS で変換するときは {} 付でないとエラーになる