Vbs生成UUID

数据库中有UUID字段，想要批量生成插入语句，想通过Excel的宏来实现批量生成，这里记录下生成UUID的方法。

0.脚本

---

这边参考了Demon’s Blog中的用VBS生成GUID，下面是代码

Sub main()
  For i = 1 To Sheet1.Range("A65536").End(xlUp).Row
        Set TypeLib = CreateObject("Scriptlet.TypeLib")
				strGUID = LCase(Mid(TypeLib.Guid, 2, 36))
        strFlow = "insert into xxx (UUID) values (" & strGUID & ");"
        Sheet1.Cells(i, 2).Value = strFlow
    Next
End Sub

1.写在最后

---

好记性不如烂笔头，记录一下