怎样在delphi中控制excle的单元格居中和加边框线？(100分)

100分

急

给你一个例子.D6下的:
unit U_general_print;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, ComCtrls, Db, DBClient, variants;
type
TfrmPrint = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
SrcLabel: TLabel;
DstLabel: TLabel;
IncludeBtn: TSpeedButton;
IncAllBtn: TSpeedButton;
ExcludeBtn: TSpeedButton;
ExAllBtn: TSpeedButton;
Label2: TLabel;
Label3: TLabel;
SrcList: TListBox;
DstList: TListBox;
Panel2: TPanel;
btnOK: TSpeedButton;
btnCancel: TSpeedButton;
Panel3: TPanel;
Label1: TLabel;
edtPrintTitle: TEdit;
Panel4: TPanel;
Label4: TLabel;
edtLister: TEdit;
Label5: TLabel;
edtListDate: TEdit;
ClientDataSet: TClientDataSet;
procedure IncludeBtnClick(Sender: TObject);
procedure ExcludeBtnClick(Sender: TObject);
procedure IncAllBtnClick(Sender: TObject);
procedure ExcAllBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure ExAllBtnClick(Sender: TObject);
procedure DstListDblClick(Sender: TObject);
procedure SrcListDblClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
private
varexcel: variant;
//变体变量，指向创建的EXCEL对象
range: variant;
//变体变量，作为EXCEL一块区域的对象
procedure GetData;
//得到数据
procedure ExportDataToExcel;
//打印数据
{ Private declarations }
public
vps_tablename: string;
//打印报表的数据源的表名称
vps_filter: string;
//打印报表的数据源的表过滤条件
vps_index: string;
//打印报表的数据源的索引
{ Public declarations }
procedure MoveSelected(List: TCustomListBox;
Items: TStrings);
procedure SetItem(List: TListBox;
Index: Integer);
function GetFirstSelection(List: TCustomListBox): Integer;
procedure SetButtons;
end;

var
frmPrint: TfrmPrint;
implementation
uses comobj, excel97, u_public, U_mainform;
{$R *.DFM}
//==========================
//操作两个列表框之间的数据移动
procedure TfrmPrint.IncludeBtnClick(Sender: TObject);
var
Index: Integer;
begin
Index := GetFirstSelection(SrcList);
MoveSelected(SrcList, DstList.Items);
SetItem(SrcList, Index);
end;

procedure TfrmPrint.ExcludeBtnClick(Sender: TObject);
var
Index: Integer;
begin
Index := GetFirstSelection(DstList);
MoveSelected(DstList, SrcList.Items);
SetItem(DstList, Index);
end;

procedure TfrmPrint.IncAllBtnClick(Sender: TObject);
var
I: Integer;
begin
for I := 0 to SrcList.Items.Count - 1do
DstList.Items.AddObject(SrcList.Items,
SrcList.Items.Objects);
SrcList.Items.Clear;
SetItem(SrcList, 0);
end;

procedure TfrmPrint.ExcAllBtnClick(Sender: TObject);
var
I: Integer;
begin
for I := 0 to DstList.Items.Count - 1do
SrcList.Items.AddObject(DstList.Items, DstList.Items.Objects);
DstList.Items.Clear;
SetItem(DstList, 0);
end;

procedure TfrmPrint.ExAllBtnClick(Sender: TObject);
var
I: Integer;
begin
for I := 0 to DstList.Items.Count - 1do
SrcList.Items.AddObject(DstList.Items, DstList.Items.Objects);
DstList.Items.Clear;
SetItem(DstList, 0);
end;

procedure TfrmPrint.DstListDblClick(Sender: TObject);
begin
excludebtn.click;
end;

procedure TfrmPrint.SrcListDblClick(Sender: TObject);
begin
includebtn.click;
end;

procedure TfrmPrint.MoveSelected(List: TCustomListBox;
Items: TStrings);
var
I: Integer;
begin
for I := List.Items.Count - 1do
wnto 0do
if List.Selected then
begin
Items.AddObject(List.Items, List.Items.Objects);
List.Items.Delete(I);
end;
end;

procedure TfrmPrint.SetButtons;
var
SrcEmpty, DstEmpty: Boolean;
begin
SrcEmpty := SrcList.Items.Count = 0;
DstEmpty := DstList.Items.Count = 0;
IncludeBtn.Enabled := not SrcEmpty;
IncAllBtn.Enabled := not SrcEmpty;
ExcludeBtn.Enabled := not DstEmpty;
ExAllBtn.Enabled := not DstEmpty;
end;

function TfrmPrint.GetFirstSelection(List: TCustomListBox): Integer;
begin
for Result := 0 to List.Items.Count - 1do
if List.Selected[Result] then
Exit;
Result := LB_ERR;
end;

procedure TfrmPrint.SetItem(List: TListBox;
Index: Integer);
var
MaxIndex: Integer;
begin
with Listdo
begin
SetFocus;
MaxIndex := List.Items.Count - 1;
if Index = LB_ERR then
Index := 0
else
if Index > MaxIndex then
Index := MaxIndex;
Selected[Index] := True;
end;
SetButtons;
end;

//===============================
//当窗体激活的时候
procedure TfrmPrint.FormActivate(Sender: TObject);
begin
//将当前系统日期赋给edtListDate
edtListDate.text := formatdatetime('yyyy"年"mm"月"dd"日"', date);
//将制表人姓名赋给edtLister
edtLister.text := CurrentParam.userName;
if srclist.Items.count > 0 then
begin
includebtn.Enabled := true;
IncAllBtn.Enabled := true;
end;
if dstlist.Items.count > 0 then
begin
ExcludeBtn.Enabled := True;
ExAllBtn.Enabled := true;
end;
end;

//获取数据，根据vps_table,vps_filter,vps_index来获取数据。
procedure TfrmPrint.getData;
var
vs_sql: string;
Vi: integer;
begin
//定义SQL语句，到应用服务器端提取数据
vs_sql := 'select *' + ' from ' + vps_tablename;
clientdataset.close;
clientdataset.CommandText := vs_sql;
//添加过滤条件
clientdataset.filter := vps_filter;
clientdataset.filtered := true;
//定义索引
clientdataset.IndexFieldNames := vps_index;
clientDataset.Open;
end;

//将数据导入到EXCEL中
procedure TfrmPrint.ExportDataToExcel;
var
i, j, k: integer;
xxx1: string;
xr: string;
begin
if frmPrint.dstlist.items.count = 0 then
begin
application.messagebox('没有选择目标字段!', '物资管理系统', mb_iconwarning + mb_defbutton1);
exit;
end;
frmPrint.statusbar1.Panels[0].text := '正在载入Excel,请稍候......';
frmPrint.statusbar1.refresh;
try
screen.cursor := crHourGlass;
try
//创建EXCEL对象
varexcel := createoleobject('excel.application');
if not varisempty(varexcel) then
begin
//添加工作簿
varexcel.workbooks.add;
varexcel.workbooks[1].worksheets[1].name := '数据库信息';
end;
except
application.messagebox('请确认是否安装Excel?', '提示信息：', mb_iconquestion + mb_defbutton1);
exit;
end;
begin
//获取数据
getData;
//写入列标题
range := varexcel.workbooks[1].worksheets[1].columns;
for i := 0 to frmPrint.dstlist.Items.count - 1do
begin
varexcel.workbooks[1].worksheets[1].cells[2, i + 1].value := frmPrint.dstlist.items.strings;
varexcel.workbooks[1].worksheets[1].cells[2, i + 1].Font.bold := true;
range.columns[i + 1].columnwidth := frmPrint.clientdataset.Fieldbyname(frmPrint.dstlist.items.Strings).Displaywidth;
range.columns[I + 1].HorizontalAlignment := xlCenter;
end;
try
try
//循环写入数据到EXCEL中
frmPrint.clientdataset.first;
j := 3;
while not frmPrint.clientdataset.eofdo
begin
for i := 0 to frmPrint.dstlist.Items.count - 1do
begin
xr := ''''+frmPrint.clientdataset.fieldbyname(frmPrint.dstlist.items.strings).AsString;
varexcel.workbooks[1].worksheets[1].cells[j, i + 1].value := xr;
end;
frmPrint.clientdataset.next;
j := j + 1;
end;
varexcel.workbooks[1].worksheets[1].cells[j + 1, 2].value := '制表: ' + frmPrint.edtLister.text;
varexcel.workbooks[1].worksheets[1].cells[j + 1, 4].value := '日期: ' + frmPrint.edtListDate.text;
except
end;
finally
frmPrint.clientdataset.enablecontrols;
frmPrint.statusbar1.Panels[0].text := '';
k := i - 1 + ord('A');
xxx1 := chr(k);
xxx1 := 'A2:' + xxx1 + inttostr(j - 1);
//将数据表格画线
range := varexcel.workbooks[1].worksheets[1].range[xxx1];
range.borders.linestyle := xlcontinuous;
k := i - 1 + ord('A');
xxx1 := chr(k);
xxx1 := 'a1:' + xxx1 + '1';
//数据标题列居中
range := varexcel.workbooks[1].worksheets[1].range[xxx1];
range.HorizontalAlignment := xlCenter;
range.VerticalAlignment := xlCenter;
range.MergeCells := True;
//对报表标题进行修饰
varexcel.workbooks[1].worksheets[1].range['a1:a1'] := frmPrint.edtPrintTitle.text;
varexcel.workbooks[1].worksheets[1].range['a1:a1'].font.name := '楷体';
varexcel.workbooks[1].worksheets[1].range['a1:a1'].font.size := '18';
varexcel.workbooks[1].worksheets[1].range['a1:a1'].font.fontstyle := 'bold';
varexcel.visible := true;
end;
end;
finally
screen.cursor := crArrow;
end;
end;

procedure TfrmPrint.btnCancelClick(Sender: TObject);
begin
close;
end;

procedure TfrmPrint.btnOKClick(Sender: TObject);
begin
//导入数据到EXCEL
ExportDataToExcel;
end;
end.

=====================================
单元格居中: range.columns[I + 1].HorizontalAlignment := xlCenter;
加边框线: //将数据表格画线
range := varexcel.workbooks[1].worksheets[1].range[xxx1];
range.borders.linestyle := xlcontinuous;
记得给分哟!

楼上写的可真多，不知道好不好找。下面是我的代码，b_str的结果是类似于'A1:J7'
之类的字符串：
//设置所有范围内居中
B_Str:='A1:'+Chr(3+V_Yfs*2+64)+IntToStr(Grd_Fgdl.Rowcount+2);

ExcelApp.Range[B_Str].HorizontalAlignment:=xlCenter;
//左右居中
ExcelApp.range[b_Str].VerticalAlignment:=xlCenter;
//上下居中
//加粗表格范围内的表格线，以作为边框线
B_Str:='A3:'+Chr(3+V_Yfs*2+64)+IntToStr(Grd_Fgdl.Rowcount+2);
for i:=1 to 4do
ExcelApp.Range[B_Str].Borders.Weight:=2;
//设置数值部分居左
B_Str:='C5:'+Chr(3+V_Yfs*2+64)+InttoStr(Grd_Fgdl.RowCount+2);
ExcelApp.Range[B_str].HorizontalAlignment:=xlRight;

先在EXCEL中用宏命令按自己要求操作一遍并保存宏命令，再将该宏命令
进入编辑状态查看一下就知道了。

多人接受答案了。