中国DOS联盟

比如指定一 test.txt ,内有字符串若干.
读其中某一行,自动复制进剪切板?
谢谢各位已解决.

Last edited by huzixuan on 2007-11-10 at 09:24 AM ]

可以，搜索3742668版主相关的帖子。

lxmxn斑竹
确实没搜到

我来搜搜看。。

应该是用internetexplorer.application对象clipboard.setdata

lxmxn斑竹 abcd 兄,二位会不会用啊,我搜了一下帮助 都找不到帮助

我说的是创建一个internetexplorer.application对象

然后利用这个对象中的clipboarddata对象的getdata和setdata方法来实现

不过缺点是会打开一个ie窗口

例如：

set ie=createobject("internetexplorer.application")

ie.navigate "about:blank"

ie.visible=false

set fso=createobject("scripting.filesystemobject")

set f=fso.opentextfile("test.txt",1)

ie.document.parentwindow.clipboarddata.setdata "text",""

do while f.atendofstream <> true

  line = f.readline

  str=ie.document.parentwindow.clipboarddata.getdata("text")

  ie.document.parentwindow.clipboarddata.setdata "text",str+vbCrLf+line

loop

str=ie.document.parentwindow.clipboarddata.getdata("text")

ie.quit

msgbox str

Last edited by abcd on 2007-11-9 at 11:00 AM ]

上面的代码运行了一下说, 4行1 未知的错误

忘了自己是已经打开IE的，

修改过，再测试一下？

先关闭所有的IE，再测试

这个不是我写的，，可以用，，

 

text='变量

CopyToClipBoard text

Sub CopyToClipBoard(Text)‘函数

    Set objIE = CreateObject("InternetExplorer.Application")

    objIE.Navigate("about:blank")

    objIE.Document.ParentWindow.ClipboardData.SetData "text", Text          'GetData可以获得内容

    objIE.Quit

End Sub

好东东，好东东，