Question

VBA 如何操作剪贴板数据

我想通过VBA来修改剪贴板的数据，我该怎么办呢？

Answer 1

1、首先在电脑中打开Excel，进入VBA页面，实现把单元格内容清空的代码如下。

2、然后定义网址的代码如下。

3、然后实现创建对象HTML的方法代码，如下图所示。

4、然后输入发送请求和等待请求的方法代码。

5、最后把内容保存在表格中的方法代码，如下图所示，就完成了。

Answer 2

1、首先，我们在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。如图。

2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。

3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。

4、在打开的“属性”面板中对“按钮”和“标签”进行相关设置，其中包括“名称”和“标题”。

5、双击“获取Excel数据”按钮，在打开的代码编辑窗口中，输入以下代码。

6、双击“Sheet1”工作表，在弹出的代码编辑窗口中输入如下代码即可。

Answer 3

用VBA可以实现你的要求，但要根据剪贴板的数据类型采用不同的方法。
如果剪贴板内容是纯文本，可建一个文本框，用Paste方法将剪贴板内容粘贴到文本框，修改后（有规律可用VBA代码修改）用Copy方法复制到剪贴板就达到你的目的。
如果剪贴板上是其他数据（如Word文档内容、图片等），可用Shell 函数调用相应的程序处理，修改时也可用SendKeys 语句由程序进行，最后用SendKeys "^c” 语句将修改后的内容复制到剪贴板。

Answer 4

VBA操作剪贴板数据
一、设置剪贴板内容
'仅对窗体有效，DataObject 是MSFORM子类
Dim MyData As New DataObject '声明新DataObject 类
MyData.SetText "文本内容" '设定文本，可以将Me.TextBox1.Text作为文本传递
MyData.PutInClipboard '送入剪贴板

二、读取剪贴板内容
Function GetClipBoardText()
'将剪贴板中的文本输出到一变量。
Dim MyData As DataObject
Set MyData = New DataObject
' 如果剪贴板的数据是文本
If MyData.GetFormat(1) = True Then
' 从剪贴板中获得数据
MyData.GetFromClipboard
' 把数据返回给函数值
GetClipBoardText = MyData.GetText(1)
End If
End Function

Answer 5

VBA可以使用剪切板，不能修改里头的数据啊，你可以将剪切板里的数据临时放到一个表里，修改完在使用复制，就可以了