delphi 读取excel 两种方法

本文介绍了通过ADO连接和OLE自动化两种方式来读取及操作Excel文件的方法。ADO方法适用于内容规则的Excel文件,而OLE自动化则提供了更灵活的操作选项,如设置单元格值、行列宽度等。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

http://www.cnblogs.com/ywangzi/archive/2012/09/27/2705894.html

两种方法,一是用ADO连接,问题是Excel文件内容要规则,二是用OLE打开,但操作就没有象 操作数据库那么方便了.

一、用ADO连接: 设置属性ConnetionString 选择 Microsoft Jet 4.0 OLE DB provider Select or enter a datasorce name -> 选择你要打开Excel文件 User name默认是Admin 密码默认为空,可以不用理会 Extended properties 设为:Excel 8.0 sql语句 select * from [yourtablename] (注意要有[])

二、用OLE打开(以下是一个范例,注释掉的代码也是有用的语句,注意要uses ExtCtrls,ComObj单元): var ExcelApp:Variant; begin ExcelApp:=CreateOleObject('Excel.Application'); //ExcelApp.visible:=true; ExcelApp.Caption:='应用程序调用 Microsoft Excel'; ExcelApp.WorkBooks.Add; //新增工作簿 //ExcelApp.workBooks.Open('C:\My Documents\Ca09lin1.xls'); //打开已存在工作簿 ExcelApp.Worksheets[2].activate; //打开第2个工作表 //ExcelApp.WorkSheets['第四章'].activate; //打开名为第四章的工作表 ExcelApp.Cells[1,4].Value:='第一行第四列'; ExcelApp.Cells[1,5].Value:='第一行第五列'; ExcelApp.ActiveSheet.Columns[4].ColumnWidth:=15; ExcelApp.ActiveSheet.Rows[1].RowHeight:=15; //ExcelApp.WorkSheets[1].Rows[8].PageBreak:=1; //设置分页符,但似无效 //Excelapp.ActiveSheet.Rows[8].PageBreak:=1; //同上 ExcelApp.ActiveSheet.Range['B3:D4'].Borders[2].Weight:=3; ExcelApp.ActiveSheet.Range['B3:D4'].Borders[1].Weight:=3; ExcelApp.ActiveSheet.Range['B3:D4'].Borders[3].Weight:=3; ExcelApp.ActiveSheet.Range['B3:D4'].Borders[4].Weight:=3; //ExcelApp.ActiveSheet.Range['B3:D4'].Borders[5].Weight:=3; //会直接在范围内的各Cell内加上斜杠| //ExcelApp.ActiveSheet.Range['B3:D4'].Borders[6].Weight:=3; //与上句类似 //Bordrs:1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / ) ExcelApp.Cells[3,2].Value:='三行二列'; ExcelApp.Cells[3,3].Value:='三行三列'; ExcelApp.Cells[3,4].Value:='三行四列'; ExcelApp.Cells[4,2].Value:='四行二列'; ExcelApp.Cells[4,3].Value:='四行三列'; ExcelApp.Cells[4,4].Value:='四行四列'; //ExcelApp.ActiveSheet.Range['B3:D4'].Value.CopyToClipBoard; ExcelApp.activeSheet.Cells[1,4].ClearContents; //清除一行四列的内容,activeSheet可以省略 Excelapp.Rows[3].font.Name:='隶书'; //这里Rows前省略了activeSheet,但针对也只是当前工作表而非整个工作簿 ExcelApp.Rows[3].font.Color:=clBlue; ExcelApp.Rows[3].Font.Bold:=True; ExcelApp.Rows[3].Font.UnderLine:=True; ExcelApp.Range['B3:D4'].Copy; RichEdit1.PasteFromClipboard; //ExcelApp.ActiveSheet.PageSetup.CenterFooter:='第$P页'; //所有页面设置(PageSetup的属性)都不能进行,不知为何 //ExcelApp.ActiveSheet.PrintPreview; //打印预览 //ExcelApp.ActiveSheet.PrintOut; //直接打印输出 //if not ExcelApp.ActiveWorkBook.Saved then //工作表保存: // ExcelApp.ActiveSheet.PrintPreview; //ExcelApp.SaveAs( 'C:\Excel\Demo1.xls' ); //工作表另存为 ExcelApp.ActiveWorkBook.Saved := True; // 放弃存盘 ExcelApp.WorkBooks.Close; //关闭工作簿 ExcelApp.Quit; //退出 Excel

ExcelApp:=Unassigned;//释放excel进程 end; 另: 得到excel的行数、列数: Maxc :=ExlApp.WorkSheets[1].UsedRange.Columns.Count; Maxr :=ExlApp.WorkSheets[1].UsedRange.Rows.Count; 得到列宽 a:=createoleobject('excel.application'); a.workbooks.add; a.activecell.columnwidth:=10; showmessage(inttostr(a.activecell.columnwidth));

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值