如何将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
