Адаптация кода для 64 битных систем - VBA
Формулировка задачи:
Добрый день
помогите адаптировать код см.ниже что бы работал на 64 битной системе
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
'Private Declare Function CoCreateGuid Lib "ole32" (pguid As GUID) As Long
'Private Declare Function StringFromGUID2 Lib "ole32" ( _
' rguid As GUID, ByVal lpsz As Long, ByVal cchMax As Long) As Long
Public Function CreateGUID() As String
Dim NewGUID As GUID
CoCreateGuid NewGUID
CreateGUID = Space$(38)
StringFromGUID2 NewGUID, StrPtr(CreateGUID), 39
End Function
если можно с комментариями, спасибо.
Решение задачи: «Адаптация кода для 64 битных систем»
textual
Листинг программы
MsgBox Left$(CreateObject("Scriptlet.TypeLib").GUID, 38)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д