Caso a guia não esteja aparecendo para você clique em file -> options -> customize ribbon e marque a opção developer à direita.
Na aba developer abra o editor do visual basic, crie um novo módulo e adicione o código.
Public Function NewId() As String NewId = Mid$(CreateObject("Scriptlet.TypeLib").Guid, 2, 36) End Function Public Function NewGuid() As String NewGuid = CreateObject("Scriptlet.TypeLib").Guid End Function
A função NewId é igual a newid() do sql server e cria uma Guid sem as chaves no início e fim. A NewGuid está aí só para demonstração e apresenta guids com as chaves.
Ambas usam o objeto COM Scriptlet.TypeLib e chamam o método Guid.
Eu uso isso quando eu tenho que importar dados de uma planilha excel para um banco de dados qualquer sem usar DTS ou algum programa para isso: faço uma formuleta excel que concatena strings em uma linha fazendo um script de inserts, concateno os valores das células que quero e uso uma guid gerada por essa função como chave primária.
Você pode fazer download dessa planilha aqui guid.xlsm
Have Fun
Nenhum comentário:
Postar um comentário