vbs複製文字到剪貼簿
阿新 • • 發佈:2019-01-02
strCopy = "68032%7C71179%7C73866%7C37261%7C544%7C64652%7C73299%7C70997%7C73834%7C73393%7C66782%7C71861"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit
最近經常需要輸入一些文字,每次都要複製,感覺比較麻煩,使用vbs可以複製固定的文字到剪貼簿,
可以很好的解決這個問題
或者
Set Ws=CreateObject("Wscript.Shell")
Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&"Hello World"&""")(Window.Close)"
Ws.Run(Clipboard)
其核心呼叫 mshta 的剪貼簿模組,把 字串“Hello World” 考入系統剪貼簿中。
讀取檔案內容並複製到剪貼簿
set fso=createobject("scripting.filesystemobject") set file=fso.opentextfile("Test.txt") strCopy = file.readall file.close Dim Word Set Word = CreateObject("Word.Application") Word.Documents.Add Word.Selection.Text = strCopy Word.Selection.Copy Word.Quit False
or
set fso=createobject("scripting.filesystemobject") set file=fso.opentextfile("criteo.txt") strCopy = file.readall file.close 'strCopy = "This text has been copied to the clipboard." Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") objIE.document.parentwindow.clipboardData.SetData "text", strCopy objIE.Quit