主题：[分享]oledb用Table查看Excel数据

看看

请问能否解释一下这段代码的含义？因为许多写法在狐表的帮助中找不到。

 

If e.Sender.SelectedPage Is Nothing Then '规避空选

    Exit Sub

End If

using DataSet1 As new System.Data.DataSet

Dim Connection As  New System.Data.OleDb.OleDbConnection

Connection.ConnectionString  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _

+ Vars("Path") + ";Extended Properties='Excel 8.0;HDR=yes ;IMEX=2'"

Dim adapter As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [" & Forms("窗口1").Controls("TabControl1").SelectedPage.name & "] ", Connection)

adapter.Fill(DataSet1)

Tables("窗口1_Table1").DataSource =  DataSet1.Tables(0) '按实际修改表名

Connection.Close()

End using

<!--EndFragment-->