delphi7如何读取excel文件.doc

《delphi7如何读取excel文件.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、delphi7如何读取excel文件用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.Appl

2、ication"); try //打开一个excel文件 ExcelApp.WorkBooks.Open(Edit1.Text); List.BeginUpdate; try //设置工作区 ExcelApp.WorkSheets[1].Activate; Sheet:=ExcelApp.WorkSheets[1]; //有数据的区域的行数和列数 MaxRow:=Sheet.UsedRange.Rows.count-1; MaxCol:=Sheet.UsedRange.Columns.count; forI:=2toMaxRowdo

3、 begin Strs.Clear; forJ:=1toMaxColdo begin //获得excel的数据第i行，第j列单元格内的数据 Strs.Add(Sheet.Cells[i,j].Value); end; List.Add(Strs.CommaText); end; finally //关闭工作区 ExcelApp.WorkBooks.Close; List.EndUpdate; end; finally //释放ole对象 ExcelApp.Quit; List.Free; Strs.Free; end; end;　　

4、Delphi控制Excel的方法　　1创建Excel文件　　要在Delphi中控制Excel，就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象，当激活一个OLE对象时，服务器程序仅在容器程序内部激活，这就是所谓的“就地激活”（in-placeactivation）。创建Excel文件时，先创建一个OLE对象，然后在对象中建立工作表worksheet，如函数createExcel所示：functioncreateExcel:variant;varv:variant;sheet:variant;beginv:=createo

5、leobject('Excel.Application');//创建OLE对象v.visible:=true;v.workbooks.add(-4167);//添加工作表v.workbooks[1].sheets[1].name:='test';sheet:=v.workbooks[1].sheets['test'];Result:=v;end;　　2数据表格控制　　Excel表格的控制，主要包括数据的导入、修改；单元格的合并、边框的控制；表格的复制、粘贴等。当报表格式一定的情况下，表格的复制、粘贴显得尤为重要，这样，可以先制作一个

6、文件模板，然后按照实际需要输出多页报表即可。　　（1）数据的导入（importData）procedureimportData;varI,j:integer;v:variant;beginv:=createExcel;//创建Excel文件testforI:=0tomaxcolumndobeginforj:=0tomaxrowdov.workbooks[1].sheets[1].cells[I,j]:=I*j;//导入数据end;end;　　（2）单元格的合并、边框的控制（lineStylecontrol）　　单元格的合并，是在选定

7、合并范围的情况下进行的。边框控制可以操作边框线条的是否显示。其他方式的控制，可以仿照下面过程进行。procedurelineStylecontrol;varv,sheet,range:variant;beginv:=createExecl;sheet:=v.workbooks[1].sheets[1];range:=sheet.range[sheet.cells[1,1],sheet.cells[39,30]];//选定表格range.select;range.merge;//合并单元格range.borders.linestyle

8、:=xlcontinuous;//置边框线可见range.font.size:=9;//改变表格内文本字体大小end;　　（3）表格的复制与粘贴（copyandPaste）procedurecopyandPaste;varv,shee