vba选中的单元格到剪贴板
If you want to share a small part of your Excel worksheet but don’t want to send an Excel file, you can copy part of the worksheet to the clipboard as a picture instead, which can be pasted into any application that supports images, such as your favorite image editor.
如果要共享Excel工作表的一小部分但不想发送Excel文件，则可以将工作表的一部分作为图片复制到剪贴板，可以将其粘贴到支持图像的任何应用程序中，例如作为您最喜欢的图像编辑器。
The command in Excel 2007 to do this is oddly located on the Paste menu in the Ribbon. From the Home tab, click on the drop-down menu under the Paste button, and select As Picture \ Copy as Picture.
 Excel 2007中执行此操作的命令位于功能区中的“粘贴”菜单上。 在“主页”选项卡上，单击“粘贴”按钮下的下拉菜单，然后选择“作为图片\复制为图片”。
Now you will get a dialog asking you how you want to copy the picture. If you want to paste the picture into any application, you’ll need to select “As shown on screen”, and then “Bitmap”.
 现在，您将看到一个对话框，询问您如何复制图片。 如果要将图片粘贴到任何应用程序中，则需要选择“如屏幕上所示”，然后选择“位图”。
Now your cell data should be on the clipboard, ready to paste into any application that allows you to paste in a bitmap. Here’s an example of a bitmap I pasted into the editor I use for writing articles here:
 现在您的单元格数据应该在剪贴板上，可以粘贴到允许您粘贴到位图中的任何应用程序中。 这是我粘贴到用于在此处编写文章的编辑器中的位图示例：
Very useful!
 很有用！
翻译自: https://www.howtogeek.com/howto/microsoft-office/copy-a-group-of-cells-in-excel-2007-to-the-clipboard-as-an-image/
vba选中的单元格到剪贴板

通过如下代码在剪贴板中获取含HTML格式的文本时发现当内容出现汉字的时候会有乱码 
if (Clipboard.ContainsText(TextDataFormat.Html))
    textBox1.Text = Clipboard.GetText(TextDataFormat.Html);
通过剪贴板工具分析，HTML格式的文本是UTF8编码方式看来Clipboard.GetText()是解码出了问题

那就自己来完成这个解码工作吧！
if (Clipboard.ContainsText(TextDataFormat.Html))
{
   MemoryStream vMemoryStream = 
       Clipboard.GetData("Html Format") as MemoryStream;
    vMemoryStream.Position = 0;
   byte[] vBytes = new byte[vMemoryStream.Length];
    vMemoryStream.Read(vBytes, 0, (int)vMemoryStream.Length);
    textBox1.Text = Encoding.UTF8.GetString(vBytes);
} 
 Clipboard 类提供一个容器，用于通过剪贴板传输数据和对象。在 AIR 中，Clipboard 类还用于拖放操作。通过静态 generalClipboard 属性可以访问操作系统剪贴板。
Clipboard 对象可以包含多种格式的相同信息。通过以多种格式提供信息，可以增加另一个应用程序能够使用该信息的机会。使用 setData() 或 setDataHandler() 方法向 Clipboard 对象添加数据。
标准格式是：
BITMAP_FORMAT：BitmapData 对象（仅限 AIR） 
FILE_LIST_FORMAT：File 对象的数组（仅限 AIR） 
HTML_FORMAT：HTML 格式的字符串数据 
TEXT_FORMAT：字符串数据 
RICH_TEXT_FORMAT：包含 RTF 格式数据的 ByteArray 
URL_FORMAT：URL 字符串（仅限 AIR）
ClipboardFormats 类中定义了用作标准格式的名称的这些常量。
转载于:https://www.cnblogs.com/hackpig/archive/2010/02/15/1668470.html

遇到Excel难以实现的复杂或特殊运算时，可先用剪贴板将数据复制到esProc，利用esProc强大的计算能力完成，再用剪贴板返回Excel。剪贴板方式比传统的add-ins方式部署更简单，操作更顺滑，开发时不影响剪贴板正常使用，且支持多个源片区和结果片区。

基本用法

esProc提供了函数clipboard，可实现剪贴板的基本用法。下面用“各科前3名的学生”为例进行说明。

Excel中处理前的数据如下，其中A列是学生姓名，B-D列分别是数学、英语、物理成绩。

 
			
A
			
B
			
C
			
D
		
1
			
name
			
math
			
english
			
physics
		
2
			
lily
			
97
			
100
			
99
		
3
			
Joshua
			
100
			
99
			
100
		
4
			
Sarah
			
98
			
99
			
96
		
5
			
Bertram
			
94
			
95
			
85
		
6
			
Paula
			
91
			
88
			
91
		
7
			
Sophia
			
92
			
81
			
76
		
8
			
Ben
			
87
			
80
			
76
		
9
			
Ruth
			
92
			
91
			
87
		
10
			
Pag
			
95
			
87
			
87
		
计算目标：求出每学科成绩前3名的学生，并追加到本科目成绩之后。

这个计算目标需要用到记录集合TopN、按序号拼接等功能，Excel本身不好实现，但借助esProc就容易多了。先在Excel中选中源片区（A1:D10），按下ctrl+C，复制到系统剪贴板，打开集算器IDE，编写并执行如下脚本：

 
			
A
			
B
		
1
			
=clipboard().import@t()
			
/从剪切板读取数据
		
2
			
=A1.top(-3;math).(name)
			
/math前3名
		
3
			
=A1.top(-3;english).(name)
			
 
		
4
			
=A1.top(-3;physics).(name)
			
 
		
5
			
=join@p(A2;A3;A4).export()
			
/拼成二维表，转成字串
		
6
			
=clipboard(A5)
			
/向剪切板写数据
		
上面代码中，clipboard函数有两种形态，其中无参数调用该函数时，可返回剪贴中的字符串，如A1格；以变量或格名为参数调用该函数时，可向剪贴板写入字符串，形如A6中的clipboard(var)。

执行上述脚本后，在Excel的B11格用ctrl+V，即可将剪切板中的数据复制到B11-D13，如下：

 
			
A
			
B
			
C
			
D
		
 
			
…
			
…
			
…
			
…
		
10
			
Pag
			
95
			
87
			
87
		
11
			
 
			
Joshua
			
Lily
			
Joshua
		
12
			
 
			
Sarah
			
Sarah
			
Lily
		
13
			
 
			
lily
			
Joshua
			
Sarah
		
随意编辑脚本

但是，我们在编辑调试脚本时，保不齐会用一下复制粘贴，这时候就把剪贴板的内容冲掉了，再执行clipboard()时， 返回的内容就是刚才编辑的代码，这样就无法完成计算了，只能再回到Excel去重新复制，有点麻烦。

针对这个问题，esProc提供了clipboard@e()函数，选项@e表示始终返回第一次从Excel复制到剪贴板中的数据。下面让我们试一下。

在“各科前3名的学生”这个例子中，假设我们已经从Excel复制了数据，并写完了脚本。此时编辑脚本，将A3、A4移动到B2、B3，再执行脚本时，就会因为A1中的clipbaord()取到错误数据，而导致A2报错。现在修改代码，在A1使用刚才提到的clipboard@e()，则移动代码后可正确执行。编辑后的代码如下：

 
			
A
			
B
			
C
		
1
			
=clipboard@e().import@t()
			
/从剪切板读取数据
			
 
		
2
			
=A1.top(-3;math).(name)
			
=A1.top(-3;english).(name)
			
=A1.top(-3;physics).(name)
		
3
			
=join@p(A2;B2;B3).export()
			
/拼成二维表，转成字串
			
 
		
4
			
=clipboard(A3)
			
/向剪切板写数据
			
 
		
多个结果片区

clipboard(…)只能返回一个结果，但有些较复杂的运算可能需要返回多个结果，这该怎么办呢？

其实 ，在esProc的结果显示区可以直接把多个格值（或变量值）分别复制到剪贴板，并依次返回Excel。

下面用 “各科前3名和每个人的超越目标”为例进行说明。

计算目标：在学生成绩单的基础上，不仅在各科目下面追加本科目前3名的学生，而且需要新加一列target，计算出比本人总分略高的3名学生的名单列表，作为本人应当超越的目标。注意，有些人的超越目标不足3人，每个超越目标之间须用>号连接。

先在Excel中选中源片区（A1:D10），按下ctrl+C，复制到系统剪贴板，打开esProc IDE，编写并执行如下脚本：

 
			
A
			
B
			
C
		
1
			
=clipboard@e().import@t()
			
从剪切板获取数据
			
 
		
2
			
=A1.top(-3;math).(name)
			
=A1.top(-3;english).(name)
			
=A1.top(-3;physics).(name)
		
3
			
=join@p(A2;B2;C2)
			
片区1：各科前3名
			
 
		
4
			
=A1.derive(sum(math,english,physics):subtotal)
			
每个人的总分
			
 
		
5
			
=A4.derive(t=subtotal,A4.select(subtotal>t):beforeMe)
			
排在本人前面的学生
			
 
		
6
			
=A5.new(beforeMe.top(3;subtotal).(name).concat(">"):target)
			
片区2：最近3名学生
			
 
		
上述代码中，A3存储结果片区1，即本科目前3名的学生；A4存储结果片区2，即每个人的超越目标。另外应当注意到，代码中无须export()和clipboard(…)。

下面将计算结果返回Excel。先点击片区1，再点击右侧对应的“copy data”按钮，如下图：

 



 

 

在Excel 的B11 格用ctrl+V ，即可将片区1 复制到B11-D13 ，如下：

 

 
			
A
			
B
			
C
			
D
		
1
			
name
			
math
			
english
			
physics
		
2
			
Lily
			
97
			
100
			
99
		
3
			
Joshua
			
100
			
99
			
100
		
4
			
Sarah
			
98
			
99
			
96
		
5
			
Bertram
			
94
			
95
			
85
		
6
			
Paula
			
91
			
88
			
91
		
7
			
Sophia
			
92
			
81
			
76
		
8
			
Ben
			
87
			
80
			
76
		
9
			
Ruth
			
92
			
91
			
87
		
10
			
Pag
			
95
			
87
			
87
		
11
			
 
			
Joshua
			
lily
			
Joshua
		
12
			
 
			
Sarah
			
Sarah
			
lily
		
13
			
 
			
lily
			
Joshua
			
Sarah
		
再点击脚本中的片区2，按住shift的同时，点击右侧对应的“copy data”按钮，之后在Excel的的E1格按下ctrl+V，即可将片区2连带列名复制到E1:E10。如下所示：

 
			
A
			
B
			
C
			
D
			
E
		
1
			
name
			
math
			
english
			
physics
			
Target
		
2
			
Lily
			
97
			
100
			
99
			
Joshua
		
3
			
Joshua
			
100
			
99
			
100
			
 
		
4
			
Sarah
			
98
			
99
			
96
			
lily>Joshua
		
5
			
Bertram
			
94
			
95
			
85
			
Sarah>lily>Joshua
		
6
			
Paula
			
91
			
88
			
91
			
Bertram>Sarah>lily
		
7
			
Sophia
			
92
			
81
			
76
			
Pag>Ruth>Paula
		
8
			
Ben
			
87
			
80
			
76
			
Sophia>Pag>Ruth
		
9
			
Ruth
			
92
			
91
			
87
			
Bertram>Sarah>lily
		
10
			
Pag
			
95
			
87
			
87
			
Ruth>Paula>Bertram
		
11
			
 
			
Joshua
			
lily
			
Joshua
			
 
		
12
			
 
			
Sarah
			
Sarah
			
lily
			
 
		
13
			
 
			
lily
			
Joshua
			
Sarah
			
 
		
在上述操作中，我们可通过shift控制计算结果是否带列名，这是esProc的独有方式，其他计算工具不具备此项功能。

多个源片区

解决了多目标的问题后，我们很容易联想到有多个源的问题。计算可能需要使用Excel的多个源片区，但clipboard只能保持最新复制的那一片，这又该怎么办？

有办法，可以把剪贴板内容直接复杂到格子里面去。

下面用 “查询符合指定条件的订单”为例进行说明。

Excel中有两个sheet，订单明细和员工名单，其中订单明细如下：

 
			
A
			
B
			
C
			
D
			
E
		
1
			
OrderID
			
Client
			
SellerId
			
Amount
			
OrderDate
		
2
			
1
			
WVF Vip
			
1
			
440
			
2014-11-03
		
3
			
2
			
UFS Com
			
1
			
1863
			
2015-01-01
		
4
			
3
			
SWFR
			
2
			
1813
			
2014-11-01
		
5
			
4
			
JFS Pep
			
2
			
671
			
2015-01-01
		
6
			
5
			
DSG
			
1
			
3730
			
2015-01-01
		
7
			
6
			
JFE
			
1
			
1445
			
2015-01-01
		
8
			
7
			
OLF
			
3
			
625
			
2015-01-01
		
9
			
8
			
PAER
			
3
			
2490
			
2015-01-01
		
员工名单如下：

 
			
A
			
B
			
C
			
D
			
E
			
F
			
G
		
1
			
EId
			
State
			
Dept
			
Name
			
Gender
			
Salary
			
Birthday
		
2
			
2
			
New York
			
Marketing
			
Ashley
			
F
			
11001
			
1980-07-19
		
3
			
3
			
New Mexico
			
Sales
			
Rachel
			
F
			
9000
			
1970-12-17
		
4
			
4
			
Texas
			
HR
			
Emily
			
F
			
7000
			
1985-03-07
		
5
			
5
			
Texas
			
R&D
			
Ashley
			
F
			
16000
			
1975-05-13
		
6
			
6
			
California
			
Sales
			
Matthew
			
M
			
11000
			
1984-07-07
		
7
			
7
			
Illinois
			
Sales
			
Alexis
			
F
			
9000
			
1972-08-16
		
8
			
8
			
California
			
Marketing
			
Megan
			
F
			
11000
			
1979-04-19
		
9
			
1
			
Texas
			
HR
			
Victoria
			
F
			
3000
			
1983-12-07
		
计算目标：查询出最近days天内或订单属于部门列表depts的数据，需要的列有订单编号、日期、金额、销售员名字、部门名称。其中days是外部参数，每次执行时都可以输入不同的值，比如输入30表示查询30天内的订单；depts也是外部参数，比如["Markeding","Finance"]。这个计算目标涉及动态查询和多键值查询，Excel本身不好实现，但借助esProc就容易多了。

首先，在Excel中选定片区“订单明细”，连带列名一起复制粘贴到esProc脚本的A1单元格；同样地，将片区“员工名单”复制到esProc脚本的A1单元格。如下图：

 



 

注意，一定要进入A1格的编辑状态才能进行复制，不然会把剪贴板的内容填进一大片格子，结果可能变成这样：

 



 

 

这就不好了，占有区域太大，会影响代码布局。

 

如果操作正确，A1/A2格外观上只呈现很小一部分数据，点击后才会呈现完整数据，这是网格式代码的独特之处，适合在不影响阅读和代码布局的情况下复制大片数据。

复制完两个源片区后，继续编写脚本，期间可多次运行脚本，可手工操作剪贴板。最后代码如下：

 
			
A
			
B
			
C
		
1
			
OrderID Client…
			
=A1.import@t()
			
/order list
		
2
			
EId State…
			
=A2.import@t()
			
/employee list
		
3
			
=B1.switch(SellerId,B2:EId)
			
 
			
/Join with EId
		
4
			
=A3.select(OrderDate>=after(date(now()),days*-1)|| depts.pos(SellerId.Dept))
			
 
			
/Search data
		
5
			
=A4.new(OrderID,OrderDate,Amount,SellerId.Name:Name,SellerId.Dept:Dept)
			
 
			
/return fields needed
		
完成计算后，可用“copy data”按钮将A5中的计算结果拷贝回Excel。有一点需要注意，保存代码时应当把A1/A2格的数据清除掉，否则这些大片数据也会被一起保存起来了。

通过如下代码在剪贴板中获取含HTML格式的文本时发现当内容出现汉字的时候会有乱码
if (Clipboard.ContainsText(TextDataFormat.Html))
    textBox1.Text = Clipboard.GetText(TextDataFormat.Html);
通过剪贴板工具分析，HTML格式的文本是UTF8编码方式
看来Clipboard.GetText()是解码出了问题
那就自己来完成这个解码工作吧！
if (Clipboard.ContainsText(TextDataFormat.Html))
{
    MemoryStream vMemoryStream = 
        Clipboard.GetData("Html Format") as MemoryStream;
    vMemoryStream.Position = 0;
    byte[] vBytes = new byte[vMemoryStream.Length];
    vMemoryStream.Read(vBytes, 0, (int)vMemoryStream.Length);
    textBox1.Text = Encoding.UTF8.GetString(vBytes);
}