VBA 如何操作剪贴板数据

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

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

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

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

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

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

温馨提示:答案为网友推荐,仅供参考
第1个回答  2020-05-08

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

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

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

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

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

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

本回答被网友采纳
第2个回答  2012-10-08
用VBA可以实现你的要求,但要根据剪贴板的数据类型采用不同的方法。
如果剪贴板内容是纯文本,可建一个文本框,用Paste方法将剪贴板内容粘贴到文本框,修改后(有规律可用VBA代码修改)用Copy方法复制到剪贴板就达到你的目的。
如果剪贴板上是其他数据(如Word文档内容、图片等),可用Shell 函数调用相应的程序处理,修改时也可用SendKeys 语句由程序进行,最后用SendKeys "^c” 语句将修改后的内容复制到剪贴板。
第3个回答  推荐于2016-11-02
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
第4个回答  2012-07-20
VBA可以使用剪切板,不能修改里头的数据啊,你可以将剪切板里的数据临时放到一个表里,修改完在使用复制,就可以了

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网