怎样在程序里,新建一个excel文件,然后把查询结构保存到excel文件里,然后保存这个文件(指定文件名)。多谢大家帮忙啊!~
解决方案 »
- 下面是一个加密函数,里面包含有四层加密函数,哪位朋友帮我写一个相应的解密函数?
- 怎样制作网络电视的播放引擎?
- 请教高手、大侠,D7中水晶报表控件如何使用!!!
- 关于TChart组件的问题,在线等待!!!!!
- 如何在运行时判断form是showModal出来的
- 最新发现,一个可以免费下载视频教程的网站
- 求救!!!可加到200分,只希望能够解释得清楚,
- 怎样用delphi实现jpg,gif等图片的放大和缩小?
- TDllProcedure是个什么类型老使说undeclared indentifier
- 网络编程,多么诱人儿有前途的方向,可你知道怎么靠近她吗?你知道有关她的家庭成员、她的三围吗?进来发表一下。
- 怎样前导0输出Integer类型转换后的字符啊?
- 一个很奇怪的问题
var
i,j:Integer;
begin
with ExcelApplication1 do
begin
Disconnect;
Visible[0]:=True;
SheetsInNewWorkbook[0]:=1;
//增加空白文档
WorkBooks.Add(EmptyParam,0);
ExcelWorkBook1.ConnectTo(Workbooks[Workbooks.Count] as _Workbook);
end;
with ExcelWorkSheet1 do
begin
ConnectTo(ExcelWorkBook1.Sheets[1] as _WorkSheet);
Name:='退换货物台帐';
//设计页边距
with PageSetup do
//begin
//HeaderMargin := 1;
//nd;
end;
j:=1;//计数器,记下现在的行数
with table1 do
//导出表头
begin
if checkbox1.Checked then
begin
with ExcelWorkSheet1 do
begin
for i:=1 to Fields.Count do
Cells.Item[1,i]:=Fields[i-1].DisplayName;
//设置表头的字体加粗
with Range[Cells.Item[1,1],Cells.Item[1,Fields.Count]] do
begin
Font.Bold := 1;
end;
end;
Inc(j);
end; First;
While not Eof do
begin
for i := 1 to Fields.Count do
begin
ExcelWorkSheet1.Cells.Item[j,i] := Fields[i-1].Value;
end;
next;
Inc(j);
end;
end;
end;
Sheet:Variant;
Excel: Variant;
ExcelSheet: Variant;
Worker: TProgram;
begin
Worker.CreateExcel(str1 , str2, Excel, ExcelSheet)
Sheet:= Fexcel.Workbooks[1].WorkSheets[1] ;
Sheet.cells[2,'H'].Value:= //赋值
..........
end;