怎么样设置Excel中的单元格是文本或其它的类型?(100分)

L

lcn

Unregistered / Unconfirmed
GUEST, unregistred user!
[:)] 各位大侠,在用delphi6输出Excel的时候,我怎么样写代码来设置Excel中的单元格是文本或其它的类型?请帮帮我!
 
各位大侠,在用delphi6输出Excel的时候,我怎么样写代码来设置Excel中的单元格格式是文本或其它的类型?请帮帮我!
 
很簡單呵﹐Excel有cells[col,row]﹐你看幫助就行了
v,sheet:variant;
v:=createoleobject('Excel.application');
v.workbooks.add;
sheet:=v.workbooks[1].booksheets[1];
sheet.cells[1,1]:='ddd';
sheet.saveas(filename);
v.quit;
 
我的意思是说,我已经把数据导出Excel了,只是有的字段是字符型的,所以里面的值可能有00001、00100,这个时候导出到Excel后显示的数据只是1、100,但我要的值也是00001、00100才对的.
 
你试一下我写的代码
procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp: OleVariant;
ExcelBook: OleVariant;
ExcelSheet: OleVariant;
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := True;
ExcelBook := ExcelApp.WorkBooks.Add;
ExcelSheet := ExcelBook.WorkSheets[1];
ExcelSheet.Cells[1,1].NumberFormatLocal := '@';
ExcelSheet.Cells[1,1].Value := '0001';
end;
 
可以了,谢谢你!分我比了。
 

Similar threads

回复
0
查看
658
不得闲
回复
0
查看
685
不得闲
D
回复
0
查看
798
DelphiTeacher的专栏
D
D
回复
0
查看
827
DelphiTeacher的专栏
D
顶部