Question

如何通过Delphi程序给Excel表格设置表格线？

若以下回答无法解决问题，邀请你更新回答

Answer 1

哈哈， 我回来了。 1、加边框方才在其余处所找到了这个问题的解决办法，现颁布如下：（留意：这是转载的但我也有苦劳） excelworksheet1.range['a1','a1'].borders[i].linestyle:=1; i是参数，代表单位格的四边以及琅绫擎的斜线 1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / ) 2、控制单位格 excelworksheet1.Rows.Range_['a1','a1'].Font.Size:='10'; //字体大大小 excelworksheet1.Rows.Range_['a1','a1'].Font.Name:='Garamond'; //字体名称 excelworksheet1.Rows.Range_['a1','a1'].Font.Color:=clred; //字体色彩 excelworksheet1.Rows.Range_['a1','a1'].Font.bold:=true; //字体加粗 excelworksheet1.Rows.Range_['a1','a1'].HorizontalAlignment:= xlCenter; //文字居中 excelworksheet1.Rows.Range_['a1','a1'].VerticalAlignment:= xlBottom; //文字向下对齐 excelworksheet1.Rows.Range_['a1','a1'].WrapText:=True; //主动换行 excelworksheet1.Rows.Range_['a1','a1'].Orientation:= 0; //偏向为0度 excelworksheet1.Rows.Range_['a1','a1'].AddIndent:= False;//不增长缩进 excelworksheet1.Rows.Range_['a1','a1'].ShrinkToFit:= False;//不缩小字体填充 excelworksheet1.Rows.Range_['a1','a1'].MergeCells:= False;//不归并单位格 查看原帖>>