金字塔VBA编程中怎么复制字符到剪贴板？ - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 金字塔VBA编程中怎么复制字符到剪贴板？

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有7948人关注过本帖树形打印复制链接主题：金字塔VBA编程中怎么复制字符到剪贴板？

百湛必胜客

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：黑侠帖子：723 积分：355 威望：0 精华：0 注册：2011/1/25 9:58:24

金字塔VBA编程中怎么复制字符到剪贴板？ 发帖心情

Post By：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楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：黑侠帖子：723 积分：355 威望：0 精华：0 注册：2011/1/25 9:58:24

Post By：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

百湛必胜客

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：黑侠帖子：723 积分：355 威望：0 精华：0 注册：2011/1/25 9:58:24

Post By：2012/12/12 10:32:16 [显示全部帖子]

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

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

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

RSS2.0 | Xhtml无图版 | Xslt无图版 Powered By weistock 2012
页面执行时间 00.05859 秒, 6 次数据查询

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