delphi7取电子表格.docVIP

delphi7读取excel 我有一个excel文件，第一行是某项目预算表，第二行有分公司、项目名，第三行是材料、数量、单价、金额等列标题，往下就是具体的数据，请问我怎么读取哪些具体数据呀？我以前见过一个软件，可以在表格中打开excel文件，然后可以删除excel的前后几行，只留下规则的中间部分（实际的excel文件中这几行并没删除），不知道怎么可以实现这样的功能 用ole可以解决 用ole读excel：会读了后，你自己处理一下要读的数据就行了?var?I, J: Integer;?MaxRow, MaxCol: Integer;?List, Strs: TStringList;?ExcelApp, Sheet: Variant;?OldTime: TDateTime;?begin?List := TStringList.Create;?Strs := TStringList.Create;?// 创建一个excel的ole对象?ExcelApp := CreateOleObject( Excel.Application );?try?// 打开一个excel文件?ExcelApp.WorkBooks.Open(Edit1.Text);?List.BeginUpdate;?try?// 设置工作区?ExcelApp.WorkSheets[