关于Excel的应用(50分)

怎样在程序中设置Excel的单元格格式为文本型的
我想把数据库中的字符串'111111111111111111111111111111111'
导进Excel，Excel将它自动设置为数字型的
请帮忙，谢谢

var
Sheet : Olevariant;
Range : Olevariant;
OleStart,OleEnd : OleVariant;
begin
MyworkBook:=ExcelApp.workBooks.Add;//插入在这里
Sheet:= ExcelApp.ActiveSheet ;
OleStart := Sheet.Cells.Item[1,1];
OleEnd := Sheet.Cells.Item[10000,7];//相当于7列10000行
Range := Sheet.Range[OleStart,OleEnd];
Range.NumberFormat := '@';//设置格式为文字
Range.HorizontalAlignment := xlHAlignCenter;
Range.VerticalAlignment := xlVAlignCenter;
Range.Borders.LineStyle := xlContinuous;
end;
你看这样行不行？

接受答案了.