从别的地方复制粘贴过来的,仅供参考。
cn = New ADODB.Connection
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.ofdSelectExcel.FileName & ";Extended Properties=""Excel 8.0;HDR=Yes"""
cn.Open(str)
'获取所有SHEET的名称
cbSheet.Properties.Items.Clear()
Dim rs1 As New ADODB.Recordset
rs1 = cn.OpenSchema(ADODB.SchemaEnum.adSchemaTables)
While Not rs1.EOF
cbSheet.Properties.Items.Add(rs1.Fields("TABLE_NAME").Value)
rs1.MoveNext()
End While
cn.Close()
////上面是获取选中EXCEL的SHEET名称
看语法应该是 VB.NET 的语法。
关键的语句,应该就是那句
cn.OpenSchema(ADODB.SchemaEnum.adSchemaTables)
与
rs1.Fields("TABLE_NAME").Value
温馨提示:答案为网友推荐,仅供参考