各位大侠:C# 如何读取Excel的第一张表的表名?
要写这么一个函数,传入xls文件的的路径,传出第一张表的表名。Excel中可能有好几张表,但只返回第一张表的表名。请问各位大侠这个怎么写。。。P.S.:不用Microso...
要写这么一个函数,传入xls文件的的路径,传出第一张表的表名。
Excel中可能有好几张表,但只返回第一张表的表名。请问各位大侠这个怎么写。。。
P.S.:不用 Microsoft.Office.Interop.Excel,把Excel当做一个数据库来操作。 展开
Excel中可能有好几张表,但只返回第一张表的表名。请问各位大侠这个怎么写。。。
P.S.:不用 Microsoft.Office.Interop.Excel,把Excel当做一个数据库来操作。 展开
展开全部
从别的地方复制粘贴过来的,仅供参考。
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询