Get text from clipboard using GetText

[Euler]

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:

Bạn cần đăng nhập để thấy hình ảnh

Dưới đây là đoạn code:

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

Nguồn:

Bạn cần đăng nhập để thấy link

 

[tuhocvba]

Nếu không thiết định Microsoft Forms 2.0 Object Library thì sẽ báo lỗi không chạy được, mọi người chú ý.
Code trên chạy rất tốt.

Bạn cần đăng nhập để thấy đa phương tiện