剪貼板指的就是,選取一段文字後,按下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 Set swApp = Application.SldWorks Dim myDataObj As New DataObject |
按下F5執行,現在你可以新增或開啟一個文字文件,或其他支援剪貼的程式(例如office所有的程式),按下Ctrl + V,應該會跑出程式中myStr內的字串。
如果把字串改為檔案的相關屬性,那些你需要的屬性,這時貼到所要用的軟體上,就很方便。