求教vbs把字符串復制到剪切板的所有方法？Set forms=WScript.CreateObject("forms.form.1")Set textbox=forms.Controls.Add("f

求教vbs把字符串復制到剪切板的所有方法？

Set forms=WScript.CreateObject("forms.form.1")Set textbox=forms.Controls.Add("forms.textbox.1").ObjectWith textbox.multiline=True.text="123".selstart=0.sellength=Len(.text).copyEnd With WScript.Sleep 500MsgBox "已經(jīng)復制成功" 還有很多方法 具體看DEMON的博客

寫一個vbs文件，將一段字符串放入剪貼板？

新建一個文本文檔，重命名為 xxx.vbs 把下面的代碼復制進去就行了。查看復制到剪切板的內(nèi)容步驟：

1.按組合鍵 win R，輸入 clipbrd ，打開的就是剪切板了。

2.或者 點擊 開始-->運行-->輸入 ”clipbrd“，打開的就是剪切板了。CopyString "test test test" " 這個文本內(nèi)容順便你輸msgbox "ok"Sub CopyString(s) Set forms=WScript.CreateObject("forms.form.1") Set textbox=forms.Controls.Add("forms.textbox.1").Object With textbox .multiline=True .text=s .selstart=0 .sellength=Len(.text) .copy End With End Sub

vba復制access表到剪切板？

你把用下面這段vba。邏輯是excel去access中取數(shù)據(jù)，而不是拷貝復制出來。Sub Refresh_Data()Dim Conn As New ADODB.ConnectionDim strConn As StringDim strSQL As StringDim rs As New ADODB.RecordsetDim Max_row As IntegerStpath = ThisWorkbook.Path & Application.PathSeparator & "test.accdb" "設定access文件路徑Conn.Provider = "Microsoft.ACE.OLEDB.12.0"strConn = "Data Source =" & StpathstrSQL = "select * from report_summary""打開數(shù)據(jù)庫Conn.Open (strConn)rs.Open strSQL， Conn， 1， 1Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseIf rs.BOF = False Then Sheets("Database").Range("A2:AY50000").ClearContents Sheets("Database").Range("A2").CopyFromRecordset rs Else Sheets("Database").Range("A2:AY10") = "0"End Ifrs.CloseSet rs = NothingConn.Closeend sub