delphi读取excel页标题

Question

Excel文件里面有多个工作表，比如Sheet1，Sheet2，Sheet3....这个标题是可以改的，比如改为"一月份","二月份"等。我如何在Delphi里面读取到这个标题呢？我用的是Delphi自带的Excel控件。

Answer 1

当前sheet名称:
showmessage(excelapp.activesheet.name);
更改:
excelapp.activesheet.name:='new name';遍历sheet即可取其它sheet名称:
for i := 1 to excelapp.worksheets.count do excelapp.worksheets[i].name:='new name';

Answer 2

出错：
dm.excel.Worksheets[i].name
[Error] untIMPORT.pas(87): Undeclared identifier: 'name'

Answer 3

用下列代码试试：
  MainFrm.ExcelWorkbook1.ConnectTo(MainFrm.ExcelApplication1.Workbooks[1]); 
  MainFrm.ExcelWorksheet1.ConnectTo(MainFrm.ExcelWorkbook1.Worksheets[1] as _Worksheet);
  S：=MainFrm.ExcelWorksheet1.Name;                                    
  

Answer 4

你可以用ole自己写，这样可以完全用Excel的Api