How to copy Excel data and Paste it into Datagridview

Question

I know how to do it using OLEDBAdapter.. but want to know if its possible to copy excel data using mouse and just paste it into datagridview on button click... it would be like copying excel data from clipboard to datagridview

Hiram Rivas · Answer

Dim MT As Integer Private Sub Form1_Load(ByVal sender As Object ByVal e As System.EventArgs) Handles Me.Load DataGridView1.AllowUserToAddRows = False DataGridView1.AllowUserToDeleteRows = False End Sub Private Sub Button1_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Button1.Click PASTE_CELLS() End Sub Sub PASTE_CELLS() If Clipboard.ContainsText = True Then ' JUST TEXT FROM EXCEL CELLS Else Exit Sub End If Dim MAX_LEN As Integer Try For Each line As String In Clipboard.GetText.Split(vbNewLine) Dim item() As String = line.Split(vbTab) If MAX_LEN MAX_LEN = item.Length End If Next For Me.MT = 1 To MAX_LEN ADD_COLUMN() Next For Each line As String In Clipboard.GetText.Split(vbNewLine) Dim item() As String = line.Split(vbTab) Me.DataGridView1.Rows.Add(item) Next Clipboard.Clear() Catch ex As Exception MsgBox(ex.ToString) End Try End Sub Sub ADD_COLUMN() Dim CLM As New DataGridViewTextBoxColumn If MT CLM.HeaderText = Chr(64 + MT) ' A B C... ETC ElseIf MT > 26 Then CLM.HeaderText = A & Chr(64 + MT - 26) ' AA AB AC... ETC ElseIf MT > 52 Then CLM.HeaderText = B & Chr(64 + MT - 52) ElseIf MT > 78 Then CLM.HeaderText = C & Chr(64 + MT - 78) ElseIf MT > 104 Then CLM.HeaderText = D & Chr(64 + MT - 104) ElseIf MT > 130 Then CLM.HeaderText = E & Chr(64 + MT - 130) ElseIf MT > 156 Then CLM.HeaderText = F & Chr(64 + MT - 156) ElseIf MT > 182 Then CLM.HeaderText = G & Chr(64 + MT - 182) ' IF YOU NEED MORE CONTINUE THE PROGRESS End If CLM.Width = 80 CLM.Visible = True DataGridView1.Columns.Add(CLM) End Sub Private Sub Button2_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Button2.Click REMOVE_LINS_AND_COLS() End Sub Sub REMOVE_LINS_AND_COLS() If DataGridView1.Rows.Count > 0 Then For Me.MT = DataGridView1.Rows.Count To 0 Step -1 Try DataGridView1.Rows.Remove(DataGridView1.Rows(MT)) Catch ex As Exception End Try Next For Me.MT = DataGridView1.ColumnCount To 0 Step -1 Try DataGridView1.Columns.Remove(DataGridView1.Columns(MT)) Catch ex As Exception End Try Next End If End Sub