28,390
社区成员
发帖
与我相关
我的任务
分享
<%
Set conn=Server.CreateObject("ADODB.Connection")
StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath("test.xls") 'text.xls改成你的
conn.Open StrConn
'列出表名
Set shm = conn.OpenSchema(20)
shm.MoveFirst
while not shm.eof
response.write shm("table_name") & "<br>"
shm.movenext
wend
%>