| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1664 人关注过本帖
标题:数组写入剪切板
只看楼主 加入收藏
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
结帖率:85.71%
收藏
已结贴  问题点数:20 回复次数:3 
数组写入剪切板
程序代码:
Sub xx()
    X = Array("1", "2", "3", "4", "5", "6")
    Dim d As Object
    Set d = New DataObject
    For i = 1 To 5
        d.SetText '如何将X写入剪切板?
        d.PutInClipboard
        Debug.Print d.GetText
    Next
    Set d = Nothing
End Sub
搜索更多相关主题的帖子: 剪切板 
2015-12-17 18:10
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:20 
先把数组拼成一个字符串,可以使用 JOIN 函数。
然后操作剪切板,先清,再设置。

在手机上,无法给你代示例代码

授人于鱼,不如授人于渔
早已停用QQ了
2015-12-17 21:14
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
收藏
得分:0 
回复 2楼 风吹过b
谢谢版主
2015-12-18 09:07
mznlp
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2016-1-3
收藏
得分:0 
谢谢,请问从剪切板放入数组怎么写?
2016-01-03 01:50
快速回复:数组写入剪切板
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033240 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved