Tests Copying pasting Cliipboard issues

**DocAElstein** · 06-18-2023, 01:25 PM

Some more notes in support of this main Forum Thread
https://www.eileenslounge.com/viewto...p?f=27&t=39784

Code:

Sub ClipIt() ' https://www.eileenslounge.com/viewtopic.php?f=27&t=39784
 Selection.Copy  '  Or   Application.SendKeys "^c"
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")  '    http://web.archive.org/web/20200124185244/http://excelmatters.com/2013/10/04/late-bound-msforms-dataobject/
    Dim StringBack As String ' This is for the entire text held for the range in the windows clipboard after a  .Copy
     .GetFromClipboard: Let StringBack = .GetText()
     Let StringBack = Replace(StringBack, vbCr & vbLf, ", ", 1, -1, vbBinaryCompare) '  Binary - derived from the internal binary representations of the characters    https://www.eileenslounge.com/viewtopic.php?p=308065#p308065
     Let StringBack = Left(StringBack, Len(StringBack) - 2) '  .Copy  adds an extra trailing vbCr & vbLf      https://www.eileenslounge.com/viewtopic.php?p=303007#p303007    
     .Clear
     .SetText StringBack
     .PutInClipboard
    End With
 Let Selection(1).Offset(1, 1).NumberFormat = "@"
 ActiveSheet.Paste Destination:=Selection(1).Offset(1, 1)
End Sub