excel - 将 Excel 中的单元格粘贴到 Datagridview VB.net

Question

我有这段代码，用于在 KeyDown 事件下粘贴到我的 datagridview 中:

 If e.Control AndAlso e.KeyCode = Keys.V Then
        Try
            For Each line As String In Clipboard.GetText.Split(vbNewLine)
                If Not line.Trim.ToString = "" Then
                    Dim item() As String = line.Trim.Split(vbTab)
                    Me.Datagridview1.Rows.Add(item)
                End If
            Next

        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End If

粘贴数据效果很好，问题是当我将空白单元格粘贴到 datagridview 时，它会忽略一些空白并用内容移动单元格。

Example when i paste this:

            Column1 Column2 Column3 Column4
       Row1    a       b              d
       Row2            f       g

This is what i get:

            Column1 Column2 Column3 Column4
       Row1    a       b               d
       Row2    f       g

有谁知道我做错了什么或如何改进我的代码？

Answer 1

改变这个

Dim item() As String = line.Trim.Split(vbTab(0))

对此

Dim item() As String = line.Split(vbTab(0))

或者这个，如果你想修剪单个单元格的内容，但这不是一个好主意

Dim item() As String = line.Split(vbTab(0)).Select(Function(X) X.Trim).ToArray

该 .Trim 调用正在从您的行中剥离初始 TAB 并转移您的数据。