ASP中如何读取EXCEL工作薄中的工作表的标签的名字

[dpwxx2000]

我想读取EXCEL工作薄中的工作表的标签的名字,形成一个下拉列表,请问怎么实现?

[cpp2017]

<% Dim Conn Dim Rs Dim str 'Const adSchemaTables = 20 set conn=server.CreateObject("ADODB.connection") conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;Data Source=d:\aa.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""" conn.Open 'set rs=server.createobject("ADODB.recordset") set rs = Conn.OpenSchema(adSchemaTables) str = "<SELECT>" while not Rs.EOF str = str &"<OPTION value='" & rs("Table_Name").Value & "'>" & rs("Table_Name").Value & "</OPTION>" rs.moveNext wend str = str & "</SELECT>" Response.Write(str) 'set rs = Rs.NextRecordset Conn.Close %>

[dpwxx2000]

能不能详细的说说OpenSchema这个方法的使用？我测试了你的代码，还没有调试成功？
有两句还不很明白：'set rs = Rs.NextRecordset，set rs = Conn.OpenSchema(adSchemaTables)。俺是个初学者，请多指教。

[xiangguan]

你照班是不行的,象Table_Name要按照你自己的

[dpwxx2000]

Table_Name要按照你自己的。这是什么意思啊，我不明白的。

[dpwxx2000]

终于解决了，真高兴啊，感谢cpp2017(慕白兄)，能不能交个朋友，QQ：19274484　msn:[e-mail]