Hyochun

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

 

Set oADOX = CreateObject("ADOX.Catalog")
oADOX.ActiveConnection = connectString
For Each oTable in oADOX.Tables
 Response.Write oTable.Name & "<br>"
Next