[ASP] 엑셀에서 시트명 추출하기 (단, 통합엑셀만 가능)

'엑셀연결
Set xlDb = Server.CreateObject("ADODB.Connection")
connectString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & UpExcelFile & "; Extended Properties=Excel 8.0;"
xlDb.Open connectString 

 

Set oADOX = CreateObject("ADOX.Catalog")

oADOX.ActiveConnection = connectString

'시트명출력
For Each oTable in oADOX.Tables
 Response.Write oTable.Name & "<br>"
Next