问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

怎么在delphi中读取Excel数据

发布网友 发布时间:2022-05-17 01:03

我来回答

1个回答

热心网友 时间:2023-09-17 17:16

首先创建 Excel 象使用ComObj :
Var
ExcelApp : Variant ;
ExcelApp := CreateOleObject ( '' Excel.Application '' ) ;

1 ) 显示前窗口:
ExcelApp.Visible := True ;

2 ) 更改 Excel 标题栏:
ExcelApp.Caption := '' 应用程序调用 Microsoft Excel '' ;

3 ) 添加新工作簿:
ExcelApp.WorkBooks.Add ;

4 ) 打已存工作簿:
ExcelApp.WorkBooks.Open ( '' C : \Excel\Demo.xls '' ) ;

5 ) 设置第2工作表工作表:
ExcelApp.WorkSheets [ 2 ] .Activate ;

ExcelApp.WorksSheets [ '' Sheet2 '' ] .Activate ;

6 ) 给单元格赋值:
ExcelApp.Cells [ 1 , 4 ] .Value := '' 第行第四列 '' ;

7 ) 设置指定列宽度(单位:字符数)第列例:
ExcelApp.ActiveSheet.Columns [ 1 ] .ColumnsWidth := 5 ;

8 ) 设置指定行高度(单位:磅)(1磅=0.035 厘米)第二行例:
ExcelApp.ActiveSheet.Rows [ 2 ] .RowHeight := 1 / 0.035 ; // 1厘米

9 ) 第8行前插入页符:
ExcelApp.WorkSheets [ 1 ] .Rows [ 8 ] .PageBreak := 1 ;

10 ) 第8列前删除页符:
ExcelApp.ActiveSheet.Columns [ 4 ] .PageBreak := 0 ;

11 ) 指定边框线宽度:
ExcelApp.ActiveSheet.Range [ '' B3 : D4 '' ] .Borders [ 2 ] .Weight := 3 ;
1 - 左 2 - 右 3 - 顶 4 - 底 5 - 斜 ( \ ) 6 - 斜 ( / )

12 ) 清除第行第四列单元格公式:
ExcelApp.ActiveSheet.Cells [ 1 , 4 ] .ClearContents ;

13 ) 设置第行字体属性:
ExcelApp.ActiveSheet.Rows [ 1 ] .Font.Name := '' 隶书 '' ;
ExcelApp.ActiveSheet.Rows [ 1 ] .Font.Color := clBlue ;
ExcelApp.ActiveSheet.Rows [ 1 ] .Font.Bold := True ;
ExcelApp.ActiveSheet.Rows [ 1 ] .Font.UnderLine := True ;
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
如何分别真金和仿金首饰 怎样区分真金和仿金首饰呢 小学生新年晚会主持人的串词!!(不要太多)急 大大后天就需要了!!!_百度... 周年晚会策划公司 奥格瑞玛传送门大厅在哪 奥格瑞玛传送门大厅怎么走 锻炼颈椎的几个动作 水多久能结冰 冰能在多长时间内形成 请问水低于0度会结冰吗? 如何防止脱发严重 嘴唇上有黑印用蜜蜡和棉线去除了胡须 用DELPHI编,如何实现查询EXCEL操作? 怎么做品牌设计 奥记这个品牌的详情页设计做的怎么样? 我是中国人寿业务员,代码为42062200000960我要查询七月份的工资 我是中国人寿业务员 怎样进入业务员 如何进入查询客户信息 我是一位中国人寿的保险代理人个人所得税怎样计算 我是中国人寿的客户,我觉得中国人寿的服务太差,所有业务员在展业过程中都有误导客户的现象存在。 我是作中国人寿,怎么没人买,请指导 我是中国人寿的一名营销员!每月要扣很多钱!除病假和丧假之外都要扣钱!事假要? 我是中国人寿员工从业5年、现离职、请问退养老金公司该怎么退? 中国人寿的国寿人请回答我的问题! 工商管理专业毕业生总体就业方向 工商管理的就业前景及工资水平是怎样的 怎样把微信上朋友分享的东西屏蔽掉 工商管理专业未来几年的就业前景如何? 淘宝购物车分享链接1天即被微信屏蔽,微信为什么要屏蔽淘宝链接? 请问(xian见)字怎么组词组二个以上。 见多音字组词 见 是多音字 xian 与jian 请问xian 怎么组词?谢谢! 再见的见多音字见,怎么组词。 如何用delphi操作Excel查找所有包含特定字 delphi操作excel,如何定位已经命名的区域? delphi中如何取得Excel的单元格的名称? 如何用delphi操作Excel查找所有包含特定字符串的数据 江声不尽英雄恨,天意无私草木秋。一联采用了什么表达技巧,请简要分析 “江声不尽英雄恨,天意无私草木秋”采用了什么表现手法 "黄州"一诗中江声不尽英雄恨,天地无私草木秋。用了什么修辞手法 陆游《黄州》翻译 带有“天意”的诗词有哪些? 江声不尽英雄恨,天意无私草木秋采用什么表现手法 形容事业的诗词 小学学习的陆游的诗有哪些?急求 优美的对偶句 创业概念是什么? 我车装了Etc但是经常遇见上高速不抬杆的情况,好尴尬!人工通道还堵车,ETC过不了,怎么办? 创业的概念 怎么理解创业这个概念? 戛纳电影节几年一次? 戛纳电影节在法国哪个部举行? 法国电影节那个城市是叫戛纳还是叫康城?