在 VBA Excel 中用覆盖多个单元格的内容填充剪贴板，这些单元格本身包含换行符 (Alt-Enter)？

Question

I'm working on a VBA Excel Add-In to provide users with clipboard text containing values from multiple cells, but also having multiple lines within a cell. Unfortunately I couldn't find a solution which keeps cell seperations as well as line breaks within a cell, correctly. Is there any way of modifying my exemplary Sub "ClipboardDoesntWork" in order to deliver the same clipboard as Sub "CopyPasteWorks" but without using the workaround of filling cells and copying them?

Public Sub CopyPasteWorks()

     Dim text1a As String
     Dim text1b As String
     Dim text2a As String
     Dim text2b As String
     Dim firstcell As String
     Dim secondcell As String
          
     Columns("A:C").Clear
     Columns("A:C").ColumnWidth = 20
          
     text1a = "Line 1 in Cell 1"
     text1b = "Line 2 in Cell 1"
     text2a = "Line 1 in Cell 2"
     text2b = "Line 2 in Cell 2"
     
     firstcell = text1a & vbLf & text1b
     secondcell = text2a & vbLf & text2b
     
     Range("A1").Value = firstcell
     Range("A2").Value = secondcell  
     Range("A1:A2").Copy     
     MsgBox "Clipboard filled with content of two cells!" & vbLf & "(covering two lines, each)"

End Sub

Public Sub ClipboardDoesntWork()
'NOTE! Code requires library reference: Microsoft Forms 2.0 Object Library

     Dim text1a As String
     Dim text1b As String
     Dim text2a As String
     Dim text2b As String
     Dim firstcell As String
     Dim secondcell As String
     Dim objData As New DataObject
          
     text1a = "Line 1 in Cell 1"
     text1b = "Line 2 in Cell 1"
     text2a = "Line 1 in Cell 2"
     text2b = "Line 2 in Cell 2"
     
     firstcell = text1a & vbLf & text1b
     secondcell = text2a & vbLf & text2b
     
     objData.SetText firstcell & vbCrLf & secondcell
     objData.PutInClipboard
     MsgBox "Clipboard filled with content of four cells!"

End Sub

I tried various versions of line feeds and/or carrier returns (vbLf, vbCr, vbCrLf, vbNewLine, chr(10)) and different techniques of filling the clipboard (MSForms.DataObject, API method), but nothing works so far. (My final Code is generating the clipboard string by joing array fields (coming from a database query), but the hurdle I couldn't take can also be demonstrated well with the simplified codes shown above.)

Answer 1

Okay, I have the answer.
Close your File Browser.
Apparently .PutInClipboard doesn't work in Windows 10 while browser is open.

Option Explicit
Public Sub ClipboardDoesntWork()
'NOTE! Code requires library reference: Microsoft Forms 2.0 Object Library

     Dim text1a As String
     Dim text1b As String
     Dim text2a As String
     Dim text2b As String
     Dim firstcell As String
     Dim secondcell As String
     Dim objData As DataObject
     Set objData = New DataObject
          
     text1a = "Line 1 in Cell 1"
     text1b = "Line 2 in Cell 1"
     text2a = "Line 1 in Cell 2"
     text2b = "Line 2 in Cell 2"
     
     firstcell = text1a & Chr(10) & text1b
     secondcell = text2a & Chr(10) & text2b
     
     objData.SetText firstcell & Chr(10) & secondcell
     objData.PutInClipboard
     MsgBox "Clipboard filled with content of four cells!"

End Sub

Example: