Public Sub 粘贴toDataGridViewsub(ByVal myDataGridView As DataGridView, ByVal myBindingSource As BindingSource)
Try
Dim str As String
str = Clipboard.GetText()
If str = "" Then Exit Sub
Dim lines As String()
lines = str.Split(Chr(13))
Dim line As String
Dim Cells As String()
Dim cell As String
Dim i As Int32 = myDataGridView.CurrentCell.RowIndex - 1
Dim j0 As Int32 = myDataGridView.CurrentCell.ColumnIndex
Dim j As Int32
For Each line In lines
i = i + 1
If i > myDataGridView.RowCount - 1 Then
myBindingSource.AddNew()
End If
If line.Trim() = "" Then Continue For
j = j0
Cells = line.Split(Chr(Keys.Tab))
For Each cell In Cells
myDataGridView.Rows(i).Cells(j).Value = cell
j = j + 1
Next
Next
Catch ex As Exception
Imports System.Data.Common
Public Class Form1
Dim cn As System.Data.OleDb.OleDbConnection
Dim cmd As System.Data.OleDb.OleDbDataAdapter
Dim ds As New System.Data.DataSet()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ds.Clear()
cn = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;" & _
"data source =" & OpenFileDialog1.FileName & ";Extended Properties=Excel 8.0;")
'C:\Documents and Settings\wjj\My Documents\Visual Studio 2005\my.XLS
cmd = New System.Data.OleDb.OleDbDataAdapter("select * from [my$]", cn)
cn.Open()
cmd.Fill(ds, "my")
cn.Close()
DataGridView1.DataSource = ds.Tables("my")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
OpenFileDialog1.InitialDirectory = "c:\"
OpenFileDialog1.Filter = "EXCELS文件(.xls)|*.xls"
OpenFileDialog1.ReadOnlyChecked = True
OpenFileDialog1.Multiselect = False
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim ca As New System.IO.StreamReader(OpenFileDialog1.FileName)
' TextBox1.Text = OpenFileDialog1.FileName
ca.Close()
End If