异常 Visual Basic .NET 剪贴板文本到 Excel 通过 Interop/Worksheet.Paste()

Question

试图让旧的 VB.NET 应用程序再次运行。一个功能是构建一个由 Tab/Return 字符分隔的文本组成的文本字符串，然后（通过互操作）创建一个 Excel 工作簿，添加一个工作表，然后（希望）将文本字符串粘贴到工作表中。

代码如下：

Private Function AddNewWorksheetToWorkbook(

ByVal theWorkbook As Workbook,
ByVal worksheetName As String,
ByVal textToPaste As String

) As Microsoft.Office.Interop.Excel.Worksheet

        Dim newWorksheet As Microsoft.Office.Interop.Excel.Worksheet

        newWorksheet = theWorkbook.Worksheets.Add()
        newWorksheet.Name = worksheetName
        theWorkbook.Save()
        newWorksheet.Activate()                            'All works fine, file saved, worksheet named and Active as desired

        Dim app As Microsoft.Office.Interop.Excel.Application
        app = newWorksheet.Application

        If app.ActiveSheet.Name = newWorksheet.Name Then   'Just a test to make sure ActiveSheet is the one desired -- it is
            Clipboard.SetText(textToPaste)                 'Clipboard has text delimited by vbTab and vbReturn (a "plain" text table)
            newWorksheet.Range("A1").Select()              'Cell "A1" is properly selected
            newWorksheet.Paste()                           'BOOM! Get System.Runtime.InteropServices.COMException: 'Microsoft Excel cannot paste the data.'
        End If

        theWorkbook.Save()

        Return newWorksheet

End Function

正如 cmets 中所述，在调用 Worksheet.Paste() 方法之前一切顺利。

我尝试了Paste() 和PasteSpecial() 等的变体。不高兴。

不断收到 System.Runtime.InteropServices.COMException: 'Microsoft Excel 无法粘贴数据。'

我能够（手动，而不是通过互操作）在 Excel 中单击“粘贴”，它工作得很好。

感谢 stackoverflow 社区提供的任何见解！

Answer 1

所以，这就是我最终为解决（实际上是避免和解决）我面临的问题所做的事情。这是我更改现有功能的方法。

Private Function AddNewWorksheetToWorkbook(

ByVal theWorkbook As Workbook,
ByVal worksheetName As String,
ByVal textToPaste As String

) As Microsoft.Office.Interop.Excel.Worksheet

        Dim newWorksheet As Microsoft.Office.Interop.Excel.Worksheet

        newWorksheet = theWorkbook.Worksheets.Add()
        newWorksheet.Name = worksheetName
        theWorkbook.Save()
        newWorksheet.Activate()                            'All works fine, file saved, worksheet named and Active as desired

        Dim app As Microsoft.Office.Interop.Excel.Application
        app = newWorksheet.Application

        If app.ActiveSheet.Name = newWorksheet.Name Then   

            Dim rowCount As Integer = 0
            Dim colCount As Integer = 0
            Dim values(,) As String = ExtractTwoDimDataSet(pasteText, rowCount, colCount)

            Dim oRange As Range
            oRange = newWorksheet.Range(newWorksheet.Cells(1, 1), newWorksheet.Cells(rowCount, colCount))
            oRange.Value = values

        End If

        theWorkbook.Save()

        Return newWorksheet

End Function

当然，更改是根本不使用剪贴板（用户可能会喜欢）并将“二维”文本数组分配给工作表上的单元格区域。函数（是的，我知道，返回值和 ByRef 参数很难看）如下：

    Private Shared Function ExtractTwoDimDataSet(tabAndCrLfDelimitedText As String, ByRef rowCount As Integer, ByRef colCount As Integer) As String(,)
        rowCount = 0
        colCount = 0

        Dim rows() As String
        Dim columns() As String

        rows = Split(tabAndCrLfDelimitedText, vbCrLf)
        rowCount = rows.Length

        For Each line As String In rows
            columns = Split(line, vbTab)
            If columns.Length > colCount Then
                colCount = columns.Length
            End If
        Next

        Dim values(rowCount, colCount) As String

        rows = Split(tabAndCrLfDelimitedText, vbCrLf)
        Dim r As Integer = 0
        For Each line As String In rows
            columns = Split(line, vbTab)
            Dim c As Integer = 0
            For Each cell As String In columns
                values(r, c) = cell
                c = c + 1
            Next
            r = r + 1
        Next

        Return values

    End Function

最终结果做了它需要做的事情，上面的函数是相当可重用的，但我将它标记为私有，因为它不是通用的，并且取决于 vbCrLf 和 vbTab 分隔符。

这显然是本着 @Mary 的建议精神...

感谢stackoverflow人的意见和建议！