Как я могу сгенерировать идентификаторы GUID в Excel?

У меня есть файл Excel с одним заказом в каждой строке, и я хочу, чтобы каждый заказ имел уникальный идентификатор, поэтому будет столбец Уникальный идентификатор . Каждый раз, когда я заполняю строку, я хочу, чтобы Excel автоматически заполнял за меня столбец «Уникальный идентификатор». Я провел небольшое исследование и обратил внимание на GUID. Я нашел следующий код:

Function GenGuid() As String
Dim TypeLib As Object
Dim Guid As String
Set TypeLib = CreateObject("Scriptlet.TypeLib")
Guid = TypeLib.Guid
' format is {24DD18D4-C902-497F-A64B-28B2FA741661}
Guid = Replace(Guid, "{", "")
Guid = Replace(Guid, "}", "")
Guid = Replace(Guid, "-", "")
GenGuid = Guid
End Function

, но не знаю, как его реализовать. Любая помощь будет принята с благодарностью. Заранее благодарю.

44
задан armstrhb 16 November 2012 в 16:08
поделиться