300分求教!!!!怎样用DELPHI控制EXCEL中某一单元格的某一边框是否显示??

cspeid 2004-03-18 09:24:56

怎样用DELPHI控制EXCEL中某一单元格的某一边框是否显示??

...全文

173 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

popmailzjw 2004-03-24

打赏
举报

找到了

gszblgr 2004-03-18

打赏
举报

//这是我利用excel中的宏编辑的数据倒入excel中的一个例子，希望有帮助。
procedure TForm_ejjgs.BitBtn8Click(Sender: TObject);
var
excel,workbook:variant;
xlsfilename:string;
i,j:integer;
begin

try
excel:=createoleobject('excel.application');
workbook:=createoleobject('excel.sheet');

except
showmessage('您的机器里未安装Microsoft excel');
end;
try
excel:=createoleobject('excel.application');
excel.workbooks.open('c:\gcsgl\demo.xls');
xlsfilename:='demo.xls';
excel.worksheets[4].activate;
//ClearContents
excel.activeSheet.Name:= '二级注册结构师';
//给单元格赋值。
Data.ADOQuery_gcsgl.First;
j:=data.adoquery_gcsgl.recordcount;
//['a2:h'+InttoStr(j+2)].ClearContents;
excel.activesheet.range['a2:h1000'].ClearContents;
for i:=1 to Data.ADOQuery_gcsgl.RecordCount do
begin
excel.Cells(i+2,1):=Data.ADOQuery_gcsgl.FieldByName('序号').asstring;
excel.Cells(i+2,2):=Data.ADOQuery_gcsgl.FieldByName('姓名').asstring;
excel.Cells(i+2,3):=Data.ADOQuery_gcsgl.FieldByName('注册单位').asstring;
excel.Cells(i+2,4):=trim(Data.ADOQuery_gcsgl.FieldByName('身份证号').asstring);
excel.Cells(i+2,5):=Data.ADOQuery_gcsgl.FieldByName('执业印章号').asstring;
excel.Cells(i+2,6):=Data.ADOQuery_gcsgl.FieldByName('注册证书号').asstring;
excel.Cells(i+2,7):=Data.ADOQuery_gcsgl.FieldByName('截止日期').asstring;
excel.Cells(i+2,8):=Data.ADOQuery_gcsgl.FieldByName('备注').asstring;
excel.activesheet.rows[i+2].rowheight:=20;
Data.ADOQuery_gcsgl.MoveBy(1);
end;
//格式
excel.activesheet.range['a1:h1'].font.FontStyle:='粗体';
excel.activesheet.range['a1:h1'].HorizontalAlignment := xlCenter;
excel.activesheet.range['a1:h1'].VerticalAlignment:= xlCenter;
excel.activesheet.range['a1:h1'].ReadingOrder := xlContext;
excel.activesheet.range['a1:h1'].MergeCells := True;
excel.activesheet.range['a2:h2'].font.FontStyle:='粗体';
excel.cells[1,1].value:='甘肃省二级注册结构师名单';
excel.ActiveSheet.PageSetup.TopMargin :=2.8/0.035;
//列宽
excel.activesheet.columns[1].columnwidth:=6;
excel.activesheet.columns[2].columnwidth:=6;
excel.activesheet.columns[3].columnwidth:=30;
excel.activesheet.columns[4].columnwidth:=20;
excel.activesheet.columns[5].columnwidth:=15;
excel.activesheet.columns[6].columnwidth:=15;
excel.activesheet.columns[7].columnwidth:=10;
excel.activesheet.columns[8].columnwidth:=20;
excel.cells[2,1].value:='序号';
excel.cells[2,2].value:='姓名';
excel.cells[2,3].value:='注册单位';
excel.cells[2,4].value:='身份证号';
excel.cells[2,5].value:='执业印章号';
excel.cells[2,6].value:='注册证书号';
excel.cells[2,7].value:='截止日期';
excel.cells[2,8].value:='备注';
//设置边框
excel.activesheet.range['a2:h'+InttoStr(j+2)].borders[1].weight:=2;
excel.activesheet.range['a2:h'+InttoStr(j+2)].borders[2].weight:=2;
excel.activesheet.range['a2:h'+InttoStr(j+2)].borders[3].weight:=2;
excel.activesheet.range['a2:h'+InttoStr(j+2)].borders[4].weight:=2;
//对齐方式 ExlApp.Selection.HorizontalAlignment:=3;
excel.activesheet.columns[1].HorizontalAlignment:=3;
excel.activesheet.columns[2].HorizontalAlignment:=3;
excel.activesheet.columns[4].HorizontalAlignment:=3;
excel.activesheet.columns[5].HorizontalAlignment:=3;
excel.activesheet.columns[6].HorizontalAlignment:=3;
excel.activesheet.columns[7].HorizontalAlignment:=3;
excel.activesheet.columns[8].HorizontalAlignment:=3;
excel.activesheet.columns[2].verticalAlignment:=2;
excel.activesheet.columns[1].verticalAlignment:=2;
//设置自动换行
excel.activesheet.columns[8].WrapText:=false;
excel.activesheet.columns[8].ShrinkToFit:=true;
excel.activesheet.columns[8].ReadingOrder :=xlContext;
//设置页边距
excel.activesheet.pagesetup.topMargin:=2/0.035;
excel.activesheet.pagesetup.headerMargin:=1.8/0.035;
excel.activesheet.pagesetup.leftMargin:=1.5/0.035;
excel.activesheet.pagesetup.rightMargin:=1/0.035;
excel.activesheet.pagesetup.bottomMargin:=2/0.035;

//设置文本属性。
excel.activesheet.Columns['d:d'].NumberFormatLocal:='0';
excel.activesheet.Columns['e:e'].NumberFormatLocal:='0';
excel.activesheet.Columns['f:f'].NumberFormatLocal:='0';
excel.activesheet.Columns['g:g'].NumberFormatLocal:='0';
excel.activesheet.Columns['e:e'].NumberFormatLocal:='0';
//excel.ActiveSheet.PageSetup.PrintArea :='';
excel.ActiveSheet.PageSetup.Orientation:=xlLandscape; //横向打印

except
exit;
end;
//保存为excel
excel.displayalerts:=false;
excel.activeworkbook.saveas('c:\gcsgl\demo.xls');
excel.workbooks.close;
excel.quit;
showmessage('已保存完毕！')
end;

gszblgr 2004-03-18

打赏
举报

j:=data.adoquery_gcsgl.recordcount;

excel.activesheet.range['a2:h'+InttoStr(j+2)].borders[1].weight:=2;
可以用记录excel宏的办法编辑该宏，就可以查到vb的设置边框及其其他的表格属性。

aiirii 2004-03-18

打赏
举报

报表通常需要上下封顶的表格线，可以使用Borders集合属性。要注意，VBA中的集合对象通常都有一个缺省的Item属性，Delphi中是不能省略的。Weight属性用于定义表格线的粗细：
with Aname.RefersToRange,Borders do
begin
HorizontalAlignment:= xlRight;
Item[xlEdgeBottom].Weight:=xlMedium;
Item[xlEdgeTop].Weight:=xlMedium;
Item[xlInsideHorizontal].Weight:=xlThin;
item[xlInsideVertical].Weight:=xlThin;
end;

aiirii 2004-03-18