【分享成果，随喜正能量】当暴风雨过去，你不会记得自己是如何度过的，你甚至不确定，暴风雨是否结束了，但你已不再是当初走进暴风雨里的那个人了，这就是暴风雨的意义。。
《VBA信息获取与处理》教程(10178984)是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪贴板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。
教程共两册,二十个专题。今日的内容是“专题十二 VBA中剪贴板（Clipboard）的应用”：剪贴板中的数据格式信息的获取
第五节 剪贴板中的数据格式(Clipboard Formats)
在前面的讲解中我们已经了解到使用MSForms.DataObject可以很轻松地提取剪贴板中的文本数据，DataObject目前只支持文本操作，它的GetFromClipboard方法只能用于读取剪贴板内文本。大家可以试着通过剪贴板API函数，使用剪贴板内全部格式的数据，同样是文本数据我们也可以利用GetClipboardData(CF_TEXT)来获取。关于API的介绍，我在上面的补充内容中进行了说明。那么在剪贴板中处理以文本格式存在的内存对象外，还有哪些格式呢？我们这讲就来讨论一下。
1 数据格式的介绍
所谓数据格式（data format）是描述数据保存在文件或记录中的规则。可以是字符形式的文本格式，或二进制数据格式的压缩格式。字符形式的文本格式占用的存贮空间多但透明度高，二进制数形式的压缩格式占用的存贮空间少但缺少透明度。
建立数据格式是为了便于更好地储存、分析、交换和显示数据给用户。我们知道，在计算机中，所有数据都是以0或1构成的位构成的，在大多数的编程语言中，数据的最小单位是字节，它由8个位构成，可以表示0－255之间256个数值，要用这256个数值表示各种各样的信息，比如文字、图形、音频、视频等，就需要给代表每种信息的一串字节规定一个固定的结构和摆放规则，否则如果只是把所有数据罗列到一起，就会带来解析上的困难。如果这种结构和规则被普遍接受，它就会成为一种通用的数据格式。
通常每种数据格式都会包含一个简单的易于识别的字节特征，比如我们的磁盘中的各种文件，就有文本格式、位图格式、超文本格式等成百上千种格式，假如我们用UltraEdit之类十六进制编辑器打开一个没有后缀名的文件，如果发现它的前四个字节是47 49 46 38("GIF8")，它很有可能是一个gif格式图片，假如我们对gif格式的规定有全面的了解，那不但可以100%判断它是或不是一个有效的gif格式图片，还能把它所代表的图形显示到屏幕上。对于用户来说，对不同格式的文件可以使用相应的程序打开，对于程序来说，对不同格式的数据可以使用相应的解析方式加以解读，从而挖掘其中携带的信息。
2 剪贴板中的数据格式
剪贴板里可以同时存放多种格式的数据，我们将他们统称为剪贴板格式(Clipboard Formats)。为了区别各种格式，windows给每种剪贴板格式都分配了一个特有的长整型数字，我们称作剪贴板格式编号（Clipboard Format Number)，同时，为了便于人们记忆和使用，除了少数几个通用的标准格式，大部分数据格式还对应一个英文名称，叫作剪贴板格式名称(Clipboard Format Name)，这个名称是大小写敏感的，即CSV和Csv在剪贴板中代表两种不同的格式，它们的剪贴板格式编号也不会相同。剪贴板格式的编号和名称是由Windows系统分配和管理的，对于常用的格式，windows对它们的编号进行了预定义，这些格式被称为标准格式或预定义格式(Standard/Predefined Clipboard Formats)。那么在剪切板中都有哪些数据格式呢？我这里列出一下常用的格式：
1) Const CF_TEXT = 1 文本格式，以chr(0)作为字符串结束标志
2） Const CF_BITMAP = 2 Bitmap对象
3） Const CF_METAFILEPICT = 3 Metafile Picture格式
4） Const CF_SYLK = 4 微软符号连接格式（Microsoft Symbolic Link Format）
5）Const CF_DIF = 5 Software Arts' Data Interchange Format.
6） Const CF_TIFF = 6 标签图像文件格式（TIFF）
7） Const CF_OEMTEXT = 7 包含OEM字符集的文本格式
8） Const CF_DIB =8 设备无关位图（DIB）格式，前面是一个BITMAPINFO结构，后面是图像像素位
9） Const CF_PALETTE = 9 调色板对象格式，当程序向剪贴板中放入一幅使用调色板的位图时，它需要同时将调色板也放入剪贴板
10） Const CF_PENDATA =10 手写笔数据
11） Const CF_RIFF =11 比标准CF_WAVE所能代表的音频格式更加复杂的音频格式 12） Const CF_WAVE = 12 标准音频格式（如11kHz或22kHz脉冲编码调制）的数据 13） Const CF_UNICODETEXT =13 Unicode文本格式
14） Const CF_ENHMETAFILE =14 增强图元文件格式
15） Const CF_HDROP = 15 文件名列表
16） Const CF_LOCALE = 16 与剪贴板内文本相关的区域选项的ID
17）Const CF_MAX =17
如果应用程序需要向剪贴板中放入的数据不能以上述格式表示或者不能转化为上述格式时，它可以使用注册剪贴板格式(Registered Clipboard Formats)，也就是说，它可以自行为这个数据格式定义一个名称，然后使用RegisterClipboardFormat函数注册这个名称，如果注册成功，它将得到这个新建的剪贴板格式对应的编号。
3 判断剪贴板中的数据格式的函数IsClipboardFormatAvailable
如果一个应用程序只对剪贴板内格式名称为TEXT的数据感兴趣，并且它已经获得了TEXT剪贴板格式的编号，1，那判断它自己是否可以使用粘贴命令的最简单的办法是使用IsClipboardFormatAvailable(1)，然后根据返回值确定剪贴板内是否包含TEXT格式数据，这个函数定义如下：
Declare Function IsClipboardFormatAvailable Lib "user32" (ByValwFormat As Long) As Long
作用： 判断剪贴板内是否存在指定格式的数据
参数： wFormat标准剪贴板格式或注册剪贴板格式的编号
返回值：如果剪贴板中存在相应格式的数据，则返回一个非0值否则返回0
n对于64位office 声明如下：
Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32" (ByValwFormat As Long) As Long
4 剪贴板中的所有数据格式的提取
使用EnumClipBoardFormats函数获取剪贴板内所有可用格式的编号，然后使用GetClipboardFormatName函数取得该编号对应的格式名称。
语法及声明：Declare Function EnumClipboardFormats Lib "user32" (ByValwFormat As Long) As Long
意义：这个函数可以列举出当前剪贴板内所有可用的数据格式
参数：wFormat代表剪贴板内已知可用的标准剪贴板格式或注册剪贴板格式的编号
在列举过程最开始，向函数传入0值，函数将返回第一个可用的剪贴板格式编号，将返回值传给下一次函数调用，可以得到下一个可用的剪贴板格式编号。
如果调用成功，则返回wFormat之后第一个可用的剪贴板格式编号，如果调用失败，则返回0。
这个函数需要事先使用OpenClipboard成功打开剪贴板。这个函数返回的剪贴板格式的顺序与放入剪贴板数据时的顺序一样。
OpenClipboard 的声明：
Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
n对于64位office上述两个函数的声明如下：
Public Declare PtrSafe Function EnumClipboardFormats Lib "user32" (ByVal wFormat As Long) As Long
Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
好了，这讲就讲到这里，关于剪贴板在VBA中的操作，我们至少关注文本的内容就好，其他的内容大家可以参考必要的资料。
本节知识点回向：
① 剪贴板的数据格式有哪些？
② 如何得到剪贴板的数据格式参数？
本讲代码参考文件：012工作表.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：
【分享成果，随喜正能量】当你该经历和不该经历的全都经历了，该忍受和不该忍受的都一一吞下了，你将不会再畏惧什么，因为你已经不是当初的自己，继续用你自己的方式走下去。。
