向excel添加记录

Question

delphi有多个edit的输入框.点击添加按钮 添加edit中数据到excel中.. 再次添加则追加到后面.图片如下
在线. 测试好立即给分.

Answer 1

单元格的读写属性：olecon.OleObject.application.cells.item[1,1];
olecon.OleObject.application.cells(1,1);
olecon.OleObject.application.cells[1,1].Value;上面三种都可以对工作表的‘A1’单元进行读写。在delphi中对单元格(集)，区域，工作表等所有对象的操作都是要Variant来实现的。自己的程序中选定区域赋给Range:Var range,sheet:Variant;
Range:= olecon.OleObject.application.Range[''A1:C3''];或者：Sheet:= olecon.OleObject.application.Activesheet;
Range:= olecon.OleObject.application.Range[sheet.cells[1,1],sheet.cells[3,3]];对上面的Range合并单元格：Range.merge;
Range. FormulaR1C1:=''合并区'';//合并后写入文本注意以后要读合并的单元格里面的文本就是读合并区域的左上角的那个单元格的文本在excel表中选定区域赋给range：range:=excel_grid1.OleObject.application.selection;拆分单元格：Range.unmerge;合并后设定单元格（集）的格式：Range.HorizontalAlignment:= xlCenter;// 文本水平居中方式
Range.VerticalAlignment:= xlCenter//文本垂直居中方式
Range.WrapText:=true;//文本自动换行
Range.Borders.LineStyle:=1//加边框
Range.Interior.ColorIndex:=39;//填充颜色为淡紫色
Range.Font.name:=''隶书'';//字体
Range.Font.Color:=clBlue;//字体颜色常用格式也就这些，以上这些对于单个单元格也适用。

Answer 2

设置ODBC,用ODBC导入,但第一行要为字段名
其他操作和数据库没什么区别