Excel 文件读写脚本说明
Excel 文件读写脚本说明
1.单元格属性设置。
Sheets表示一个表单，sheets[0]表示第一个表单。表单是从0开始的，不是从1开始。
插入数据：
2.字体属性设置。
字体颜色和网页上的字体颜色是一致的，可以用$加十六进制的颜色代码来表示。
Cell 单元格Sheets[0]表示第一个表单，cell[0,0]表示单元格A1。
Col表示列，row表示行，都是从0开始。
xls.sheets[0].Cell[col,row].FontName:=’宋体’字体名称括起来。
xls.sheets[0].Cell[col,row].FontColor:=ColorToWebColor()
字体颜色，和网页上的字体颜色是一致的，可以用$加十六进制的颜色代码来表示，例如: ColorToWebColor(clblack)黑色ColorToWebColor($8515C7)紫色。
RGB（红绿蓝）调色。
xls.sheets[0].Cell[col,row].FontSize字体大小，对应罗马数字。例如：10,16
xls.sheets[0].Cell[col,row].FontStyle字体风格,共三种,xfsStrikeOutxfsItalic, xfsBold，字体风格：
xls.sheets[0].Cell[col,row].FontStyle := 0;0表示普通风格。
xls.sheets[0].Cell[col,row].FontStyle := 1; 1表示加粗。
xls.sheets[0].Cell[col,row].FontStyle := 2; 2表示斜体。
xls.sheets[0].Cell[col,row].FontStyle := 3; 3表示删除线。
xls.sheets[0].Cell[col,row].FontStyle := 4; 4表示加粗加斜体。
xls.sheets[0].Cell[col,row].FontStyle := 5; 5表示加粗加删除线。
xls.sheets[0].Cell[col,row].FontStyle := 6; 6表示斜体加删除线。
xls.sheets[0].Cell[col,row].FontStyle := 7;7表示加粗斜体加删除线。
风格表格：
Col表示列，row表示行，都是从0开始。
xls.sheets[0].Cell[col,row].BorderTopStyle单元格上边框风格。
xls.sheets[0].Cell[col,row].BorderBottomStyle单元格下边框风格。
xls.sheets[0].Cell[col,row].BorderLeftStyle单元格左边框风格。
xls.sheets[0].Cell[col,row].BorderRightStyle单元格右边框风格。
属性表格：
3.Range 区域属性设置。
Sheets[0]表示第一个表单，Range.Items[0,0,10,10]表示A1—K11区域。
[0,0,10,10] 数字依次为第一个单元格的列和行，第二个单元格的列和行。
xls.sheets[0].Range.Items[0,0,10,10] 区域属性。
xls.sheets[0].Range.Items[0,0,10,10].WrapText:=true布尔值，True,Flase
在文本中指定处插入一个回车，为true是换行，为flase时不换行。
xls.sheets[0].Range.Items[0,0,10,10].Font 可以设置区域字体属性。
xls.sheets[0].Range.Items[0,0,10,10].BorderOutlineStyle外框属性。
xls.sheets[0].Range.Items[0,0,10,10].BorderInsideVertStyle里面竖线属性。
xls.sheets[0].Range.Items[0,0,10,10].BorderInsideVertStyle里面横线属性。
xls.sheets[0].Range.Items[0,0,10,10].topstyle区域上边框属性。
xls.sheets[0].Range.Items[0,0,10,10].bottomstyle 区域下边框属性。 xls.sheets[0].Range.Items[0,0,10,10].leftstyle 区域左边框属性。 xls.sheets[0].Range.Items[0,0,10,10].rightstyle 区域右边框属性。 对齐属性表格：
xls.sheets[0].Cell[0,2].HorizAlignment:=chaleft;
合并单元格：
MergeCells(0,0,3,3)括号里面是第一个单元格的列，行，第二个单元格列，行 xls.sheets[0].MergeCells(0,0,3,3) 合并单元格A1-D4
4. 打印属性设置。
PrintSettings.HeaderFooter.打印属性页眉页脚设置 实例
说明PrintSettings.HeaderFooter.OddHeader ：= '&C&"黑体"&24 510所按部门工时统计明细表';
写值面面，的值
PrintSettings.HeaderFooter.OddFooter：='日期:$D 时
间:&T---
第&P页&"黑体,加粗"&24共&N页'; 写
值
面
面，
的
&K002060颜色。
PrintSettings.HeaderFooter.DifferentOddEven：=flase；奇偶页不同
(
False)
PrintSettings.HeaderFooter.DifferentFirst：=flase；首
(
False)
PrintSettings.HeaderFooter.ScaleWithDoc：=flase；随文档自动
缩
值
PrintSettings.HeaderFooter.AlignWithMargins：=flase；与页边距对
齐
True)
页眉，页脚设置
其它的打印设置属性。
明
PrintSettings.Options:= 0; PrintSettings.Options:= 1;默认为纵向页横向，为向
PrintSettings.ScalingFactor:= 80; 缩
比例，
80%
PrintSettings.PaperSize:= psA4;
A4 PrintSettings.MarginTopCm := 1.5; 上
距
1.5cm
PrintSettings.MarginLeftCm := 1.8; 左
距
1.8cm
MarginBottomCm PrintSettings.MarginBottomCm := 1.8; 下
距
1.8cm
HeaderMarginCm PrintSettings.HeaderMarginCm := 1.5; 页
设
0.5cm
FooterMarginCm PrintSettings.FooterMarginCm := 0.6; 页
设
0.6cm
页边距
重复打印区域属性设置
xls.InternalNames.Add('Print_Titles', xls.Sheets[I].Name + '!$A:$C,' + xls.Sheets[I].Name + '!$1:$3', xls.Sheets[I].Name);
设置行1到3，列A到C重复打印，即每一页上都打印对应的重复打印行和列。
用于行和列太长导致的打印不下的情况。
第一页
第二页
第三页
打印区域设置，重复行，列设置