El post es de hace 8 años, ya lo había probado pero no me funciono.
en mi caso asi queda:
Código:
Path = Server.MapPath("archivos/mi_excel.xls")
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open Path
nombre = xls.Worksheets(1).Name
xls.Workbooks.Close
Al agregarle eso en mi código no se cae, pero la variable con el nombre queda vacía
mi código original es:
Código:
<%
'Asigno a la variable Path, la ruta del archivo *.xls
Path = Server.MapPath("archivos/mi_excel.xls")
'Se establece una conexión entre el servidor asp y una base de datos
Set ConexionBD = Server.CreateObject("ADODB.Connection")
'Abrimos el objeto con el driver específico para Microsoft Excel (FALTA INCORPORAR DRIVER XLSX)
ConexionBD.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Path
'Crea un objeto de tipo recordset para retornar la consulta sql
Set rsExcel = Server.CreateObject("ADODB.Recordset")
':::Obtener nombre de la hoja:::'
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open Path
nombre = xls.Worksheets(1).Name
Response.write "y el nombre de la hoja es: "&nombre&" ::: <br>"
xls.Workbooks.Close
'::::::::::::::::::::::::::::::::::::::'
'Se abre el recordset, señalando como tabla el rango de celdas Excel.
rsExcel.Open "Select * From [MIHOJAEXCEL.$]", ConexionBD,3,3
'Me coloco al principio del recordset, por cualquier cosa
rsExcel.MoveFirst
Do While Not rsExcel.EOF
'muestro mis resultados
Response.write rsExcel(0)&"<br>"
rsExcel.MoveNext
Loop
'Se cierra y se destruye el objeto recordset
rsExcel.Close
Set rsExcel = Nothing
'Se cierra y se destruye el objeto connection
ConexionBD.Close
Set ConexionBD = Nothing
%>
