L lcn Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-16 #1 [] 各位大侠,在用delphi6输出Excel的时候,我怎么样写代码来设置Excel中的单元格是文本或其它的类型?请帮帮我!
L lcn Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-16 #2 各位大侠,在用delphi6输出Excel的时候,我怎么样写代码来设置Excel中的单元格格式是文本或其它的类型?请帮帮我!
W wem888 Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-16 #3 很簡單呵﹐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有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;
L lcn Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-16 #4 我的意思是说,我已经把数据导出Excel了,只是有的字段是字符型的,所以里面的值可能有00001、00100,这个时候导出到Excel后显示的数据只是1、100,但我要的值也是00001、00100才对的.
我的意思是说,我已经把数据导出Excel了,只是有的字段是字符型的,所以里面的值可能有00001、00100,这个时候导出到Excel后显示的数据只是1、100,但我要的值也是00001、00100才对的.
A ai2ming Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-16 #5 你试一下我写的代码 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;
你试一下我写的代码 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;