ASP读取EXCEL所有工作表名称

<%Set adox = CreateObject("ADOX.Catalog")

Set conn = CreateObject("ADODB.Connection")

conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& sExcelFilePath &";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""

adox.activeConnection = conn

for each table in adox.tables

if table.type="TABLE" then

%>

<%=table.name %>

<%

end if

next

%>