Cho em hỏi về tạo Guid trong vba

[nguyenvantu29]

Em có 1 hàm tạo guid :
Public Function GetGUID() As String
GetGUID = Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36)
End Function
Hàm này em chạy trên excel 2016 thì bình thường, nhưng em chạy trên excel 2019 thì báo lỗi.
Có cách nào khắc phục được trên excel 2019 không mọi người.

 

[Trần Châu Trùng Dương]

bạn vào link này tải 2 bản vá lỗi về cài nhé!

Bạn cần đăng nhập để thấy link

 

[nguyenvantu29]

Mình phải vá lỗi mình còn cách nào khác không bạn

 

[tuhocvba]

Bạn lưu ý phải sử dụng thẻ Code khi viết code trên forum. Xin xem mục 4 trong

Bạn cần đăng nhập để thấy link

.
Ngoài ra, về cách trình bày, bạn nên mở đầu về bối cảnh câu chuyện, mục đích bạn muốn làm gì, thì người khác sẽ dễ theo dõi hơn.

 

[PTHhn]

Đã test trên Office 365, bạn thử:

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

Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As GUID) As Long

Public Function GetGUID() As String
'(c) 2000 Gus Molina

    Dim udtGUID As GUID

    If (CoCreateGuid(udtGUID) = 0) Then

        GetGUID = _
            String(8 - Len(Hex$(udtGUID.Data1)), "0") & Hex$(udtGUID.Data1) & _
            String(4 - Len(Hex$(udtGUID.Data2)), "0") & Hex$(udtGUID.Data2) & _
            String(4 - Len(Hex$(udtGUID.Data3)), "0") & Hex$(udtGUID.Data3) & _
            IIf((udtGUID.Data4(0) < &H10), "0", "") & Hex$(udtGUID.Data4(0)) & _
            IIf((udtGUID.Data4(1) < &H10), "0", "") & Hex$(udtGUID.Data4(1)) & _
            IIf((udtGUID.Data4(2) < &H10), "0", "") & Hex$(udtGUID.Data4(2)) & _
            IIf((udtGUID.Data4(3) < &H10), "0", "") & Hex$(udtGUID.Data4(3)) & _
            IIf((udtGUID.Data4(4) < &H10), "0", "") & Hex$(udtGUID.Data4(4)) & _
            IIf((udtGUID.Data4(5) < &H10), "0", "") & Hex$(udtGUID.Data4(5)) & _
            IIf((udtGUID.Data4(6) < &H10), "0", "") & Hex$(udtGUID.Data4(6)) & _
            IIf((udtGUID.Data4(7) < &H10), "0", "") & Hex$(udtGUID.Data4(7))
    End If

End Function

Nguồn:

Bạn cần đăng nhập để thấy link

Ai biết về ý nghĩa của GUID xin giải thích dùm nhé.