以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  金字塔VBA编程中怎么复制字符到剪贴板？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=31387)
--  作者：百湛必胜客
--  发布时间：2012/12/11 13:00:42
--  金字塔VBA编程中怎么复制字符到剪贴板？

以下内容为程序代码:

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

 

金字塔中VBA编程上面的代码运行不了，出错，何故？
--  作者：王锋
--  发布时间：2012/12/11 13:04:39
--  

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

建议提出问题前，先搜索一遍论坛
--  作者：百湛必胜客
--  发布时间：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
--  作者：王锋
--  发布时间：2012/12/11 13:39:12
--  
金字塔用的VBS脚本，你网上找找看看有没有VBS处理的方式的
--  作者：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
--  作者：百湛必胜客
--  发布时间：2012/12/12 10:32:16
--  

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

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

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