¿Cómo obtener el nombre de una celda de Excel en Delphi?

Si desea obtener el nombre de las hojas de trabajo.

var

excel: OLEVariant;

Nombre de la hoja de trabajo: cadena

i: entero

comenzar

probar

//Abrir EXCEL

excel: =CreateOleObject('Excel.Application');

excepto

application.Messagebox('No se puede abrir el archivo Xls, confirme que se ha instalado EXCEL.', '', mb_OK mb_IconStop);

Salir

end; >

excel.Visible:= false;

excel.WorkBooks.open('aaa.xls');

excelcount:= excel.Worksheets.count; el número de hojas de trabajo

para i ：= 1 para excelcount hacer

comenzar

excel.WorkSheets[i].Activate

WorksheetsName：=excel .Worksheets[i].name; //Nombre de las hojas de trabajo

end;

Excel.quit; //Cerrar EXCEL

end;