第三十集-ExcelVBA调用易语言DLL相互通信

xuel200

https://pan.baidu.com/s/1TTPa0h0rh5CML6IG2Ki9MA


17tt 提取码 第三十集-ExcelVBA调用易语言DLL相互通信


Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, ByVal Source As Long, ByVal Length As Long) '定义调用DLL【RtlMoveMemory内存复制】【公有变量】
Public Declare Function 回调数据 Lib "C:\Users\Administrator\Desktop\第三十集-ExcelVBA调用易语言DLL相互通信\test.dll" (ByRef Hwnd As Long) As Long'定义易语言DLL【公有变量】

Public Sub 易语言()
Dim wbnr As String '文本内容
Dim sjdz As Long '数据地址
Dim sjcd As Long '数据长度
Dim qncsj() As Byte '取内存数据

sjdz = 回调数据(sjcd)

fi sjcd <> Then
ReDim qncsj(sjcd - 1)
CopyMemory qncsj(0), sjdz, sjcd
wbnr = StrConv(qncsj, vbUnicode) 'VBA字符串转换——StrConv 函数 Unicode编码
Range("A1").Value = wbnr
End If



'常数        值        说明
'vbUpperCase        1        将字符串文字转成大写。
'vbLowerCase        2        将字符串文字转成小写。
'vbProperCase        3        将字符串中每个字的开头字母转成大写。
'vbWide*        4*        将字符串中单字节字符转成双字节字符。
'vbNarrow*        8*        将字符串中双字节字符转成单字节字符。
'vbKatakana**        16**        将字符串中平假名字符转成片假名字符。
'vbHiragana**        32**        将字符串中片假名字符转成平假名字符。
'vbUnicode        64        根据系统的缺省码页将字符串转成 Unicode。 (在Macintosh中不可用。)
'vbFromUnicode        128        将字符串由 Unicode 转成系统的缺省码页。 (在Macintosh中不可用。)


'MsgBox wbnr

End Sub

lqd529009

谢分享！！！！

枫逸妖郎

谢谢分享！！！！

wzhxhejnu

谢谢分享！！！！

Solo98k

厉害啊虫哥

coameiwei

虫哥厉害啊