всем, здравствуйте. помогите пожалуйста решить проблему.
Есть книга с макросами, написанная для 32 битной платформы - там все работает ок. Сейчас у меня win7 x64 и Office 2010 x64 и возникла ошибка в коде:
Код
1
2
3
4
5
6
7
8
9
10
11
| Private Declare Function GetUserNameDomain Lib "Secur32.Dll" Alias "GetUserNameExA" (ByVal NameFormat As EXTENDED_NAME_FORMAT, ByVal lpNameBuffer As String, ByRef nSize As Long) As Long
Private Declare Function NetUserGetInfo Lib "netapi32" (ByVal servername As String, ByVal username As String, ByVal level As Long, bufptr As Long) As Long
Private Declare Function GetUserLoginName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Private Declare Function NetApiBufferFree Lib "netapi32" (ByVal Buffer As Long) As Long |
Excel просит обновить код и использовать параметр PtrSafe???
Може подсказать как и что переписать для того чтобы работало как x86 так и x64