共6 条记录, 每页显示 10 条, 页签: [1]

标题：金字塔VBA编程中怎么复制字符到剪贴板？

1楼

百湛必胜客 发表于：2012/12/11 13:00:42

以下内容为程序代码:

1 dim MyData As DataObject
2 set MyData = New DataObject
3 MyData.SetText "sdfsdfsdf"
4 MyData.PutInClipboard

金字塔中VBA编程上面的代码运行不了，出错，何故？

2楼

王锋发表于：2012/12/11 13:04:39

http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=23&skin=0

建议提出问题前，先搜索一遍论坛

3楼

百湛必胜客 发表于：2012/12/11 13:10:51

王峰版主，你的例子是调用ie，这个办法经常运行出错，貌似和装了其他浏览器有关。

我1楼的代码是网上搜的VBA复制数据到剪贴板的代码，不过不是很懂修改为金字塔里用，因为这个代码需要先引用 Microsoft Forms 2.0 Objiect Librery

不知道怎么修改一下能在金字塔里面正常运行！！

以下内容为程序代码:

1 dim MyData As DataObject
2 set MyData = New DataObject
3 MyData.SetText "sdfsdfsdf"
4 MyData.PutInClipboard

4楼

王锋发表于：2012/12/11 13:39:12

金字塔用的VBS脚本，你网上找找看看有没有VBS处理的方式的

5楼

g555 发表于：2012/12/11 16:05:22

网上找到的。

'设置剪切板的内容
Dim Form, TextBox
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
TextBox.Text = "忘记了，喜欢一个人的感觉"
TextBox.SelStart = 0
TextBox.SelLength = TextBox.TextLength
TextBox.Copy

6楼

百湛必胜客 发表于：2012/12/12 10:32:16

楼上的是VBS ，我就是用的这个代码，不过有时候还是提示出错，然后整个function停止运行了。

我主楼的VBA控制剪贴板代码有没有人能改成能用的。就差那个dim MyData As DataObject 运行的时候提示这里语句未结束

这个DataObject是不是金字塔里没有找到啊

共6 条记录, 每页显示 10 条, 页签: [1]