Benjamin Chien

「創新」不是等人家告訴你,他需要什麼,而是你自已去發覺他需要什麼! 汽車大王亨利‧福特曾說過:“如果我當年去問顧客他們想要什麼,他們肯定會告訴我‘一匹更快的馬’”

關於我

我的相片
人生沒有什麼大道理!過就對了!

分類

Archives

 

剪貼板指的就是,選取一段文字後,按下Ctrl +C,這時這段文字會烤貝並放置到系統的一個區域,當你在適當的檔案或位置中按下Ctrl + V,複製的文字就會跑出。這就是剪貼版

剪貼板可以應用在,當你需要把檔案的相關訊息,例如名稱、屬性…,輸出到其他軟體中(例如excel),如果數量不多的話,這時剪貼板是一個簡單且快速的方式,因為大部分的軟體都支援剪貼的程序,就是上述說的Ctrl +C、V,如果數量多且雜,本程式就不是很適用。

程式中DataObject需要引用Microsoft Forms 2.0 Object Library,然而直接引用,是找不到這個庫,需要新建一個表單(Form),專案會自動引用Microsoft Forms 2.0 Object Library,後面可以將表單移除,已引用的Microsoft Forms 2.0 Object Library不會消失。

Option Explicit

Dim swApp As Object
Sub main()
'Auther : Benjmain Chien
'Date : 2013/1/1

Set swApp = Application.SldWorks

Dim myDataObj As New DataObject
Dim myStr As String
myStr = "人生本無常,大腸包小腸"
myDataObj.SetText (myStr)
myDataObj.PutInClipboard


End Sub

按下F5執行,現在你可以新增或開啟一個文字文件,或其他支援剪貼的程式(例如office所有的程式),按下Ctrl + V,應該會跑出程式中myStr內的字串。

如果把字串改為檔案的相關屬性,那些你需要的屬性,這時貼到所要用的軟體上,就很方便。

0 意見

張貼留言

Recent Posts

Recent Comments

訪客