'Excle 保存的时候 文件类型为 Excel 97-2003 ブック (*.xls)
'---------------------------------------------
'注意选择表的时候要加上 "$" 符号表示是这个excel 的那一页面
'打开excel 然后get 到想要的worksheet 然后获取表名
'
'--------------------------------------------
Dim Sql As String
Dim tempdbpath As String = "C:\Users\MinJie\Desktop\WK_MR2120"
Sql = "Select * from [Sheet1$] where TERMNO =222"
'"Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" + tempdbpath + "';Extended Properties='Excel 12.0;HDR=Yes;IMEX=1'; " .xlsb
Dim Conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" + tempdbpath + "';Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'; ")
'参数