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

Question

我正在开发一个 VBA Excel 加载项，为用户提供包含来自多个单元格的值的剪贴板文本，但在一个单元格中也有多行。 不幸的是，我找不到一个解决方案来正确地保持单元格分离以及单元格内的换行符。 有什么方法可以修改我的示例性 Sub“ClipboardDoesntWork”，以便提供与 Sub“CopyPasteWorks”相同的剪贴板，但不使用填充单元格并复制它们的解决方法？

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

我尝试了各种版本的换行和/或载体返回（vbLf、vbCr、vbCrLf、vbNewLine、chr(10)）和填充剪贴板的不同技术（MSForms.DataObject、API 方法），但到目前为止没有任何效果。 （我的最终代码是通过连接数组字段（来自数据库查询）生成剪贴板字符串，但我无法克服的障碍也可以用上面显示的简化代码很好地证明。）

Answer 1

好的，我有答案了。
关闭文件浏览器。
显然，当浏览器打开时，.PutInClipboard 在.PutInClipboard 10 中不起作用。

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

例子：