Excel 读写脚本说明.docx

Excel 文件读写脚本说明1. 单元格属性设置。Sheets表示一个表单，sheets0表示第一个表单。表单是从0开始的，不是从1开始。插入数据：内 容说 明xls.sheets0.AsStringcol,row:=字符串写入一个字符串（col是列row是行）。xls.sheets0.AsFloat col,row :=5.5写入一个实数（col是列row是行）。xls.sheets0.AsIntergercol,row:= 5写入一个整数（col是列row是行）xls.sheets0.AsFormulacol,row := C4*C5C4*C5写入一个公式（col是列row是行）。表示C4和C5两个单元格的值相乘。xls.sheets0.Rows0.PixelHeight:=20设置单元格行高。xls.sheets0.Columns0.PixelWidth:=20设置单元格的列宽。xls.sheets0.CalculateShee;计算整个单元格。xls.sheets0.AutoWidthCol(1);进行自动列宽调整。2. 字体属性设置。字体颜色和网页上的字体颜色是一致的，可以用$加十六进制的颜色代码来表示。Cell 单元格 Sheets0表示第一个表单，cell0,0表示单元格A1。Col表示列，row表示行，都是从0开始。xls.sheets0.Cellcol,row.FontName:=宋体 字体名称括起来。xls.sheets0.Cellcol,row.FontColor:= ColorToWebColor() 字体颜色，和网页上的字体颜色是一致的，可以用$加十六进制的颜色代码来表示，例如:ColorToWebColor(clblack) 黑色 ColorToWebColor($8515C7) 紫色。内容说明颜色内容说明颜色clred红色clyellow黄色clgreen绿色clblue蓝色clblack黑色$FF9A00橙色$CD00CD紫色$8B5A00褐色RGB（红绿蓝）调色。xls.sheets0.Cellcol,row.FontSize 字体大小，对应罗马数字。 例如：10,16xls.sheets0.Cellcol,row.FontStyle 字体风格,共三种,xfsStrikeOut xfsItalic, xfsBold，字体风格：字体风格说 明实 例xfsStrikeOut删除线（2进制第3位）删除线xfsItalic斜体（2进制第2位）斜体xfsBold加粗（2进制第1位）加粗xls.sheets0.Cellcol,row.FontStyle := 0; 0表示普通风格。xls.sheets0.Cellcol,row.FontStyle := 1; 1表示加粗。xls.sheets0.Cellcol,row.FontStyle := 2; 2表示斜体。xls.sheets0.Cellcol,row.FontStyle := 3; 3表示删除线。xls.sheets0.Cellcol,row.FontStyle := 4; 4表示加粗加斜体。xls.sheets0.Cellcol,row.FontStyle := 5; 5表示加粗加删除线。xls.sheets0.Cellcol,row.FontStyle := 6; 6表示斜体加删除线。xls.sheets0.Cellcol,row.FontStyle := 7; 7表示加粗斜体加删除线。风格表格：内 容对应二进制说 明实 例xls.sheets0.Cellcol,row.FontStyle := 0;0-0000表示普通风格。普通风格xls.sheets0.Cellcol,row.FontStyle := 1;1-0011表示加粗。加粗xls.sheets0.Cellcol,row.FontStyle := 2;2-0102表示斜体。斜体xls.sheets0.Cellcol,row.FontStyle := 3;3-0113表示删除线。删除线xls.sheets0.Cellcol,row.FontStyle := 4;4-1004表示加粗加斜体。加粗+斜体xls.sheets0.Cellcol,row.FontStyle := 5;5-1015表示加粗加删除线。加粗+删除线xls.sheets0.Cellcol,row.FontStyle := 6;6-1106表示斜体加删除线。斜体+删除线xls.sheets0.Cellcol,row.FontStyle := 7;7-1117表示加粗斜体加删除线。加粗+斜体+删除线Col表示列，row表示行，都是从0开始。xls.sheets0.Cellcol,row. BorderTopStyle 单元格上边框风格。xls.sheets0.Cellcol,row. BorderBottomStyle 单元格下边框风格。xls.sheets0.Cellcol,row. BorderLeftStyle 单元格左边框风格。xls.sheets0.Cellcol,row. BorderRightStyle 单元格右边框风格。属性表格：内 容说 明实 例cbsthin实线cbsmedium加粗实线cbsdashed虚线cbsdotted短虚线cbsthick粗实线cbsdouble双实线cbshair点状虚线cbsmediumdashdot加粗虚线cbsdashdot点画线cbsmediumdashdot粗点画线cbsdashdotdot双点画线cbsmidiumdashdotdot粗双点画线cbsslantedashdot冲点画线 3. Range 区域属性设置。Sheets0表示第一个表单，Range.Items 0,0,10,10表示A1K11区域。0,0,10,10 数字依次为第一个单元格的列和行，第二个单元格的列和行。xls.sheets0.Range.Items0,0,10,10 区域属性。xls.sheets0.Range.Items0,0,10,10. WrapText:=true 布尔值，True,Flase在文本中指定处插入一个回车，为true是换行，为flase时不换行。xls.sheets0.Range.Items0,0,10,10.Font 可以设置区域字体属性。xls.sheets0.Range.Items0,0,10,10.BorderOutlineStyle 外框属性。xls.sheets0.Range.Items0,0,10,10.BorderInsideVertStyle 里面竖线属性。xls.sheets0.Range.Items0,0,10,10.BorderInsideVertStyle 里面横线属性。xls.sheets0.Range.Items0,0,10,10.topstyle 区域上边框属性。xls.sheets0.Range.Items0,0,10,10.bottomstyle 区域下边框属性。xls.sheets0.Range.Items0,0,10,10.leftstyle 区域左边框属性。xls.sheets0.Range.Items0,0,10,10.rightstyle 区域右边框属性。对齐属性表格：xls.sheets0.Cell0,2.HorizAlignment:=chaleft;属 性说 明实 例chaGeneral常规常规chaleft左对齐左对齐chacenter居中对齐居中对齐charight右对齐右对齐chafill填充，不够填满填充填充填充填充填充填充chajustify两端对齐两端对齐chacentercontinuous向中连续对齐向中对齐chaDistributed分散对齐分 散 对 齐合并单元格：MergeCells(0,0,3,3)括号里面是第一个单元格的列，行，第二个单元格列，行xls.sheets0.MergeCells(0,0,3,3) 合并单元格A1-D4项 目说 明实 例xls.sheets0.MergeCells(1,2,1,4)行合并B3-B5xls.sheets0.MergeCells(1,5,4,5)列合并B6-E6xls.sheets0.MergeCells(1,1,4,4)行列合并B2-E54. 打印属性设置。PrintSettings.HeaderFooter. 打印属性页眉页脚设置属性实例说明OddHeaderPrintSettings.HeaderFooter.OddHeader：= &C&黑体&24 510所按部门工时统计明细表;写入页眉值，&L左面，&R右面，&c中间的值OddFootePrintSettings.HeaderFooter.OddFooter：=日期:$D 时间:&T-第&P页 &黑体,加粗&24共&N页;写入页脚值，&L左面，&R右面，&c中间的值，&K002060，颜色。DifferentOddEvenPrintSettings.HeaderFooter.DifferentOddEven：=flase；奇偶页不同(默认值False)DifferentFirstPrintSettings.HeaderFooter.DifferentFirst：=flase；首页不同(默认值False)ScaleWithDocPrintSettings.HeaderFooter.ScaleWithDoc：=flase；随文档自动缩放(默认值True)AlignWithMarginsPrintSettings.HeaderFooter.AlignWithMargins：=flase；与页边距对齐(默认值True)页眉，页脚设置其它的打印设置属性。PrintSettings.Options:= 0; 打印属性设置属性实 例说明OptionsPrintSettings.Options:= 0;PrintSettings.Options:= 1;默认为纵向页面横/纵向，0为横向ScalingFactorPrintSettings.ScalingFactor:= 80;缩放比例，80%PaperSizePrintSettings.PaperSize:= psA4;打印时设置的纸张大小，有A3，A4等选项纸张大小，A4MarginTopCmPrintSettings.MarginTopCm := 1.5;上边距 1.5cmMarginLeftCmPrintSettings.MarginLeftCm := 1.8; 左边距 1.8cmMarginRightCmPrintSettings.MarginRightCm := 1.8;右边距 1.8cmMarginBottomCmPrintSettings.MarginBottomCm := 1.8;下边距 1.8cmHeaderMarginCmPrintSettings.HeaderMarginCm := 1.5;页眉设为 0.5cmFooterMarginCmPrin