请问主要思路是否是产生一个临时查询表?
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()