如何将EXCEL的数据导入程序的网格中
建立一个导入按钮~~~点击后跳出要导入的界面~~
选择要导入的EXCEL文件~~
然后将数据显示在程序中的网格~~~

求大师们详细指点~~
[最优解释]

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click'选择Excle文件
        Me.OpenFileDialog1.Filter = "Excle文件(*.xls)
[其他解释]
*.xls"
        If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = Me.OpenFileDialog1.FileName
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click'导入按钮
        Dim myDataset As New DataSet
        Dim ExcelConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & TextBox1.Text & "';Extended Properties=Excel 8.0;" 
        Dim myDataAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [Sheet1$]", ExcelConnStr)
        Me.Cursor = Cursors.WaitCursor
        Try
            myDataAdapter.Fill(myDataset) '将EXCEL文件内容读取到DataSet表中
              DataGridView1.DataSource = myDataset.Tables(0)
        Catch ex As Exception
            MsgBox(ex.Message)
            Me.Cursor = Cursors.Default
            Exit Sub
        End Try
end sub

[其他解释]

引用:

VB.NET code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click'选择Excle文件
Me.OpenFileDialog1.Filter = "Excle文件(*.xls)
[其他解释]
*.xls"
……

额~~可能是我说得不太清楚，你误解了，其实就是一个导入的按钮 不是2个~~
就要将一份EXCEL文件的内容 依次的导入到系统中第二列开始的网格中
就想是吧网格数据下载成EXCEL文件一样的逆过程~~~麻烦大师修改下 希望标上重要部分的注释 多谢~~
[其他解释]
把二楼的button2.click事件里的代码，拷在button1.click事件里面的end if 上面就好了。
[其他解释]
c1flexgrid 的话，还以直接粘贴。
[其他解释]
学习了，保存有用