怎样设置EXCEL单元格里的格式???(用delphi编程实现!)(25分)

怎样设置EXCEL单元格里的格式??用delphi编程实现!
例如:我想把单元格里的格式改为货币效果是: USD 2,962.00

我想把单元格里的格式改为货币效果是: USD 2,962.00

[][][]

2006-2-22 17:48:03
下面用到的合并单元格的方法很爽，不同于//Range := ExcelApp.Range['c'+IntToStr(1)+':k'+IntToStr(1)];
//Range.MergeCells := true;
{Range := ExcelApp.Range['a'+IntToStr(1)+':a'+IntToStr(2)];
Range.MergeCells := true;
这种合并方式有字母‘a...z’的影响，不如数字来的方便，


// 添加新工作簿：
ExcelApp.WorkBooks.Add;
//设置标题
ExcelApp.Caption := 'Microsoft Excel 测试报表';
//ExcelApp.WarpText:= True;
sheet:= ExcelApp.workbooks[1].sheets[1];
ExcelApp.Sheets['sheet1'].Select;
//打印单元格网线
range:=sheet.range[sheet.cells[1,3],sheet.cells[1,UnitCDS.RecordCount+2]];//选定表格 ,获取操作范围
range.select;
range.merge; //合并单元格
//range.HorizontalAlignment :=ExcelApp.XlHAlign.xlHAlignCenter;//居中
range:=sheet.range[sheet.cells[1,1],sheet.cells[2,1]];
range.select;
range.merge; //合并单元格
range:=sheet.range[sheet.cells[1,2],sheet.cells[2,2]];
range.select;
range.merge; //合并单元格
range:=sheet.range[sheet.cells[UserCDS.RecordCount+3,1],sheet.cells[UserCDS.RecordCount+3,2]];
range.select;
range.merge; //合并单元格
range:=sheet.range[sheet.cells[UserCDS.RecordCount+4,1],sheet.cells[UserCDS.RecordCount+4,2]];
range.select;
range.merge; //合并单元格
range:=sheet.range[sheet.cells[UserCDS.RecordCount+4,3],sheet.cells[UserCDS.RecordCount+4,UnitCDS.RecordCount+2]];
range.select;
range.merge; //合并单元格
// range.borders.linestyle:=xlcontinuous; //置边框线可见
range.font.size:=15; //改变表格内文本字体大小


//填写表头部分
ExcelApp.Cells[1,3].Value := '各厂商名称评标得分';
ExcelApp.Cells[1,1].Value := '评委';
ExcelApp.Cells[1,2].Value := '满分';


range:=sheet.range[sheet.cells[1,1],sheet.cells[UserCDS.RecordCount+5,UnitCDS.RecordCount+3]];
range.select;
range.Borders.LineStyle := 1;//添加边框全部加边框


2006-2-22 23:04:12 Range:= excelApp.Range[sheet.cells[2,I+2],sheet.cells[2,I+2]];
Range.select;
range.wraptext:=true;
range.Borders.linestyle:=2;

这个问题捆饶了半天，原因是在网上问一个朋友，自动换行怎么用，告诉的结果是
range.wrap:=true;



这是如何操作Excel的一些内容。
我想你那个只是一个设置吧了，

我只想把单元格里的格式改为货币效果是: USD 2,962.00 请指教[!]

设置第二列格式为 USD 2,962.00
ExcelApp.ActiveSheet.Columns[2].NumberFormatLocal:='[$USD] #,##0.00;[$USD] -#,##0.00';
设置单元格C2格式为 USD 2,962.00
ExcelApp.ActiveSheet.Cells[2,3].NumberFormatLocal:='[$USD] #,##0.00;[$USD] -#,##0.00';

THANKS yangquan[][][]