Giả sử mình đang ở trạng thái copy, có thể là copy một đoạn text ở web hoặc ở file txt, hoặc một phần nội dung trong cells. Vậy làm thế nào để truyền phần nội dung này vào một biến string s trong chương trình?
Đầu tiên các bạn thiết định Microsoft Forms 2.0 Object Library:
Dưới đây là đoạn code:
Nguồn:
Đầu tiên các bạn thiết định Microsoft Forms 2.0 Object Library:
Bạn cần đăng nhập để thấy hình ảnh
Dưới đây là đoạn code:
Mã:
Sub GetClipBoardText()
Dim DataObj As MSForms.DataObject
Set DataObj = New MSForms.DataObject '<~~ Amended as per jp's suggestion
On Error GoTo Whoa
'~~> Get data from the clipboard.
DataObj.GetFromClipboard
'~~> Get clipboard contents
myString = DataObj.GetText(1)
MsgBox myString
Exit Sub
Whoa:
If Err <> 0 Then MsgBox "Data on clipboard is not text or is empty"
End Sub
Bạn cần đăng nhập để thấy link