导出到Excel后如何使单元格线为实线(50分)

B

bbface

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #1

我用D6导出报表到对应Excel模板上，请问如何将导出到Excel后如何使单元格线为实线
（有多少行就画多少行）?

 

H

h_o_u_l_i

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #2

因为D6调用EXCEL实际是COM调用,你可以查阅MSDN或得相关帮助.
我以前也遇到类似的问题都是通过MSDN解决的就是费点事要耐心!

 

L

lxm7805

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #3

嗯，要写很多程序吗？很关注

 

C

chanin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #4

在你导入到EXCEL的代码段加入以下代码即可﹐试试﹐行就给分
var
varexcel:variant;
range:variant;
xxx1:string;
begin
…
//为数据表画线
xxx1:='A2:C6’;
range:=varexcel.workbooks[1].worksheets[1].range[xxx1];
range.borders.linestyle:=xlcontinuous;
…
end;

 

W

Wizard00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-10

• #5

sheet1.Range['B2:C10'].Borders[xlEdgeLeft].Weight := xlThin;
sheet1.Range['B2:C10'].Borders[xlEdgeTop].Weight := xlThin;
sheet1.Range['B2:C10'].Borders[xlEdgeBottom].Weight := xlThin;
sheet1.Range['B2:C10'].Borders[xlEdgeRight].Weight := xlThin;
sheet1.Range['B2:C10'].Borders[xlInsideVertical].Weight := xlThin;
sheet1.Range['B2:C10'].Borders[xlInsideHorizontal].Weight := xlThin;

 

C

cwf555

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-10

• #6

var
ExlApp: Variant;
Sheet:Variant;
begin
ExlApp := CreateOleObject( 'Excel.Application' );
Sheet:=ExlApp.ActiveSheet;
//设置边框

Sheet.Range['A1:H17'].Borders.LineStyle:=$00000001;
ExlApp.Visible:=true;
end;

 

W

Wizard00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-10

• #7

哦，忘了说了，我的语句里面要use Excel2000

 

B

bbface

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-03

• #8

多人接受答案了。