vba判断文件编码格式_[VBA]Excel输出utf-8编码格式文件 使用WideCharToMultiByte

'API 函数WideCharToMultiByte参数说明

'第一个参数：指定要转换成的字符集代码页，它可以是任何已经安装的或系统自带的字符集，你也可以使用如下所示代码页之一。

'    CP_ACP 当前系统ANSI代码页

'    CP_MACCP 当前系统Macintosh代码页

'    CP_OEMCP 当前系统OEM代码页，一种原始设备制造商硬件扫描码

'    CP_SYMBOL Symbol代码页.

'    CP_THREAD_ACP 当前线程ANSI代码页，用于Windows 2000及以后版本，我不明白是什么

'    CP_UTF7 UTF-7，设置此值时lpDefaultChar和lpUsedDefaultChar都必须为NULL

'    CP_UTF8 UTF-8，设置此值时lpDefaultChar和lpUsedDefaultChar都必须为NULL

'第二个参数：指定如何处理没有转换的字符，但不设此参数函数会运行的更快一些，我都是把它设为0。

'第三个参数: 待转换的宽字符串?

'第四个参数：待转换宽字符串的长度，-1表示转换到字符串结尾。

'第五个参数: 接收转换后输出新串的缓冲区?

'第六个参数: 输出缓冲区大小?

'第七个参数: 指向字符的指针?

'第八个参数：开关变量的指针，用以表明是否使用过默认字符，一般设为0。

Private Declare Function WideCharToMultiByte Lib "ke