请教诸位,如何设定Excel单元格的格式?我要的是英文日期格式,最好能够提供全部格式的代码。
谢谢诸位了!
谢谢诸位了!
解决方案 »
- delphi里面的listview怎么改变一行的背景色
- delphi怎么知道1个控件有方法啊?
- 如何用SQL-DMO来判断SQLSERVER运行状态?
- 析构函数的问题
- 请教一个移动窗体得问题。
- 如何用sendmessage传递一个字符串,以及接受方该如何写,谢谢,在线等
- 请教:一个文件能不能既是EXE又是DLL?如何实现?
- 请关注一个多星期没人理的问题:串口发送完字符后windows返回的outbuffer清空消息是否及时可靠!
- 有关表关联的简单问题求教
- 如何动态创建ComboBoxEx的子项?
- 请教有关delphi控件的问题 Tvc1: TTvc;中的TTvc是个什么控件?
- SetwindowsHookEx WH_GETMESSAGE
不是要"yyyy-mm-dd"这样的,是要"14-Mar-01"这样的。
想看其他全部格式的代码如下,在excel软件里面把第一单元格设置成你想要的格式,并写入合法的值,存盘退出excel。
执行下面的代码,可以在第一行第二格写入格式值,第二行第一格新按此格式写入一个示例。procedure TForm1.Button1Click(Sender: TObject);
var
Excelid: Variant;
mstr: string;
begin
Excelid := Null;
try
Excelid:=CreateOleObject( 'Excel.Application' );
except
on Exception do begin
ShowMessage('无法创建Xls文件,请确认是否安装EXCEL');
exit;
end;
end;
//Excelid.WorkBooks.Add;
try
Excelid.WorkBooks.Open('d:\test.xls');
except
on Exception do begin
ShowMessage('无法打开文件!');
exit;
end;
end; Excelid.Visible := True;
Excelid.worksheets[1].Cells[1,1].select;
mstr := Excelid.Selection.NumberFormatLocal;
Excelid.worksheets[1].Cells[1,2].value := mstr; //用取到的格式值写个新的示例
Excelid.worksheets[1].Cells[2,1].select;
Excelid.worksheets[1].Cells[2,1].value := '2011-12-13';
Excelid.Selection.NumberFormatLocal := mstr;
end;
var
ExcelApp :Variant;
begin
ExcelApp := CreateOleObject('Excel.Application');
try
ExcelApp.WorkBooks.Open('D:\1.xls');
ExcelApp.workSheets[1].Columns[1].NumberFormat:='dd-mmm-yy';
ExcelApp.DisplayAlerts:=false;
ExcelApp.workSheets[1].SaveAs('D:\1.xls');
finally
ExcelApp.Quit;
end;
end;