Excel的VBA功能非常强大,但再强大的东西也需要借助别的东西,API调用就可以完成很多VBA本身没有的功能,一些已有的功能也是VBA调用API实现的。下面的汉字简繁转换代码,就是调用API完成的。
关于API调用,网上有很多资料。学习编程首先是模仿,我在学习过程中对其中的别名曾经有点困惑,而且看到的资料中别名有的是相同,有的是在名称后面加一个大写的字母A,后来通过学习其他资料才明白怎么回事,原来带A的名字是该函数在DLL文件中函数的名字,表示这个函数中字符串编码采用ANSI编码。
'中文简体与繁体的互换
Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, _
ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lStrLen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
'转换函数,0=简到繁,其他=繁到简
Function Jian_Fan_Conv(ByVal strString As String, Opti