我在程序中调用EXCEL,要实现用户在点击保存的时候是另存新目录(比如可以实设定我的文档什么的),而不是存在我事先画好的模板上?
解决方案 »
- 一个form小问题!
- 为什么我运行corba的demos\idl2pas的accountserver出现无法定位程序输入点?
- TFrom全部加载完且画完之后,引发的事件是哪个?
- 请问将符合条件的纪录插入到sql Server 表student中
- 请问用多层中用ADO如何方便的实现多表更新????
- ado问题
- 这是个什么错误?
- dy2712(大头) ,我想奢望一下,能不能给我一个关于通讯的例子。如果方便的话,我挺急的,我的mail: [email protected]
- 资源文件是什麽,怎麽使用?
- 为什么不相等??
- 请问:怎样再DELHPI中的一个UNIT中定义一个类?(最好有实例代码)
- delphi不能自动提示关键字吗?
var
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
i, j: integer;
begin
try
ExcelApplication1 := TExcelApplication.Create(Application);
ExcelWorksheet1 := TExcelWorksheet.Create(Application);
ExcelWorkbook1 := TExcelWorkbook.Create(Application);
ExcelApplication1.Connect;
except
Application.Messagebox('Excel 没有安装!','Hello', MB_ICONERROR + mb_Ok);
Abort;
end;
try
ExcelApplication1.Workbooks.Add(EmptyParam, 0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
with excelworksheet1 do
begin
cells.Item[1,1]:='机型名称:';
cells.Item[2,1]:='整机号:';
excelworksheet1.range[excelworksheet1.cells.Item[1, 1],excelworksheet1.cells.Item[2,1]].Font.ColorIndex := 5;
cells.Item[1,2]:= dblookupcombobox1.text;
cells.Item[2,2]:= dbedit1.Text;
for j := 0 to datamodule2.spyf.Fields.Count - 1 do
begin
ExcelWorksheet1.Cells.item[3, j + 1] := datamodule2.spyf.Fields[j].DisplayLabel;
ExcelWorksheet1.Cells.item[3, j + 1].font.size := '10';
end;
excelworksheet1.range[excelworksheet1.cells.Item[3, 1],excelworksheet1.cells.Item[3,j+1]].Font.ColorIndex := 5;
for i := 4 to datamodule2.spyf.RecordCount + 3 do
begin
for j := 0 to datamodule2.spyf.Fields.Count - 1 do
begin
ExcelWorksheet1.Cells.item[i, j + 1] :=
datamodule2.spyf.Fields[j].Asstring;
ExcelWorksheet1.cells.item[i, j + 1].font.size := '10';
end;
datamodule2.spyf.Next;
end;
ExcelWorksheet1.Columns.AutoFit;
ExcelWorksheet1.Cells.item[1, 2] :=dblookupcombobox1.Text;
ExcelWorksheet1.Cells.Item[1, 2].font.size := '14';
Excelworksheet1.SaveAs(concat(FRootPath,'机型信息.xls')); end;//可以写成savedialog1.filename,就可以了
Application.MessageBox(pchar('数据成功导出'),'hello',mb_ok);
finally
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ExcelApplication1.Free;
ExcelWorksheet1.Free;
ExcelWorkbook1.Free;
end;
end;
你理解错了我的意思了,我是想用户在EXCEL中点击保存的时候,控制一下保存目录,具体的说应该是在excel中作控制。
怎么在编译的时候,认不出来呢?