如何读取excel里面的sheet1位置的名称啊?

[世界因你而小]

如题,我是用这个读取excel数据的
set Conn1 = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( ""&j2&"" )
Conn1.Open Driver & DBPath

strSQL="Select * From [Sheet1$]"
Set Rs = server.createobject("adodb.recordset")
Rs.open strSQL,Conn1,1,1

但是如果不是sheet1的表名就不行了,怎么样才可以呢??

[世界因你而小]

顶一下,帮帮我啊~

[justit2005]

学习~~

[dh20156]

试试这种方式：
<%
On Error Resume Next
Set xlApp = server.CreateObject("Excel.Application")
xlApp.DisplayAlerts = false
xlApp.Application.Visible = false

strsource = Server.MapPath("？？？.xls")

Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet = xlbook.Worksheets(1)
i=1
while xlsheet.cells(i,1)<>""
.............do something...
i=i+1
wend
set xlsheet=nothing
set xlbook=nothing
xlApp.Quit
Set xlApp=Nothing %>

[世界因你而小]

因为我是要导入到access的,上面的方法比较难搞,我其他的都写好了,就差那个拿到那个名字了,如果是sheet1的话就没有问题,其他名就会出错,怎么解决呢??
谢谢了~~

[世界因你而小]

Set xlApp = server.CreateObject("Excel.Application")
xlApp.DisplayAlerts = false
xlApp.Application.Visible = false

strsource = Server.MapPath(""&j2&"")
set exlname=app.Activesheet.Name
response.write exlname
set xlsheet=nothing
xlApp.Quit
Set xlApp=Nothing
response.end

为什么我这样不行??

[世界因你而小]

顶一下~

[fffddd]

关注一下哟。

[世界因你而小]

继续顶啊~~

[世界因你而小]

继续求解～～

[世界因你而小]

继续～