Delphi操作Excel

Question

我要编写一个程序，其中要用到Excel的模板，要可以把带有数据的Excel文档导入，又可以导出，我想把Excel文档嵌入我的程序，谁做过这方面的研究啊，我需要的很，拜托了，给我几个例子
[email protected]

Answer 1

我试过用BDE可以连接Excel，而ADO不知道是不是我的设置 不对还是怎么的连不上！
邮件我发过去，你看看吧！

Answer 2

哀!
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1691966

Answer 3

不对啊，我要采用COM技术啊，

Answer 4

ADO的数据驱动使用Excel类型即可以了

Answer 5

不明白嵌入是什么意思；
给你一个例子：
var
 ExcelApp: Variant;
begin
 ExcelApp := CreateOleObject( 'Excel.Application' );
 ExcelApp.WorkBooks.Open(filepath);
 ExcelApp.cells.item[1,1]:='aa';
 ExcelApp.ActiveWorkBook.saveas('a.xls');
 ExcelApp.application.quit;
end;

Answer 6

其他的一些资料
(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：
ExcelApp.Visible := True;2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿：
ExcelApp.WorkBooks.Add;4) 打开已存在的工作簿：
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );5) 设置第2个工作表为活动工作表：
ExcelApp.WorkSheets[2].Activate;  
或 
ExcelApp.WorksSheets[ 'Sheet2' ].Activate;6) 给单元格赋值：
ExcelApp.Cells[1,4].Value := '第一行第四列';7) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米9) 在第8行之前插入分页符：
ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;10) 在第8列之前删除分页符：
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;11) 指定边框线宽度：
ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左    2-右   3-顶    4-底   5-斜( \ )     6-斜( / )12) 清除第一行第四列单元格公式：
ExcelApp.ActiveSheet.Cells[1,4].ClearContents;13) 设置第一行字体属性：
ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelApp.ActiveSheet.Rows[1].Font.Color  := clBlue;
ExcelApp.ActiveSheet.Rows[1].Font.Bold   := True;
ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;14) 进行页面设置：a.页眉：
    ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示';
b.页脚：
    ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P页';
c.页眉到顶端边距2cm：
    ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm：
    ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm：
    ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm：
    ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左边距2cm：
    ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右边距2cm：
    ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.页面水平居中：
    ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.页面垂直居中：
    ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
k.打印单元格网线：
    ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;15) 拷贝操作：a.拷贝整个工作表：
    ExcelApp.ActiveSheet.Used.Range.Copy;
b.拷贝指定区域：
    ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy;
c.从A1位置开始粘贴：
    ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
d.从文件尾部开始粘贴：
    ExcelApp.ActiveSheet.Range.PasteSpecial;16) 插入一行或一列：
a. ExcelApp.ActiveSheet.Rows[2].Insert;
b. ExcelApp.ActiveSheet.Columns[1].Insert;17) 删除一行或一列：
a. ExcelApp.ActiveSheet.Rows[2].Delete;
b. ExcelApp.ActiveSheet.Columns[1].Delete;18) 打印预览工作表：
ExcelApp.ActiveSheet.PrintPreview;19) 打印输出工作表：
ExcelApp.ActiveSheet.PrintOut;20) 工作表保存：
if not ExcelApp.ActiveWorkBook.Saved then
   ExcelApp.ActiveSheet.PrintPreview;21) 工作表另存为：
ExcelApp.SaveAs( 'C:\Excel\Demo1.xls' );22) 放弃存盘：
ExcelApp.ActiveWorkBook.Saved := True;23) 关闭工作簿：
ExcelApp.WorkBooks.Close;24) 退出 Excel：
ExcelApp.Quit;( 
 
 
Top 
 
 回复人： Snakeguo(枫) (  ) 信誉：100  2002-3-25 8:38:51  得分:0  
 
 
  二) 使用Delphi 控件方法
在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。 1）  打开Excel 
ExcelApplication1.Connect;2) 显示当前窗口：
ExcelApplication1.Visible[0]:=True;3) 更改 Excel 标题栏：
ExcelApplication1.Caption := '应用程序调用 Microsoft Excel';4) 添加新工作簿：
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
 
5) 添加新工作表：
var Temp_Worksheet: _WorkSheet;
begin
Temp_Worksheet:=ExcelWorkbook1.
WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
End;
 
6) 打开已存在的工作簿：
ExcelApplication1.Workbooks.Open (c:\a.xls
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)7) 设置第2个工作表为活动工作表：
ExcelApplication1.WorkSheets[2].Activate;  或
ExcelApplication1.WorksSheets[ 'Sheet2' ].Activate;8) 给单元格赋值：
ExcelApplication1.Cells[1,4].Value := '第一行第四列';9) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;10) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelApplication1.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米11) 在第8行之前插入分页符：
ExcelApplication1.WorkSheets[1].Rows[8].PageBreak := 1;12) 在第8列之前删除分页符：
ExcelApplication1.ActiveSheet.Columns[4].PageBreak := 0;13) 指定边框线宽度：
ExcelApplication1.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左    2-右   3-顶    4-底   5-斜( \ )     6-斜( / )14) 清除第一行第四列单元格公式：
ExcelApplication1.ActiveSheet.Cells[1,4].ClearContents;15) 设置第一行字体属性：
ExcelApplication1.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelApplication1.ActiveSheet.Rows[1].Font.Color  := clBlue;
ExcelApplication1.ActiveSheet.Rows[1].Font.Bold   := True;
ExcelApplication1.ActiveSheet.Rows[1].Font.UnderLine := True;16) 进行页面设置：
 a.页眉：
    ExcelApplication1.ActiveSheet.PageSetup.CenterHeader := '报表演示';
b.页脚：
    ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := '第&P页';
c.页眉到顶端边距2cm：
    ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm：
    ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm：
    ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm：
    ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左边距2cm：
    ExcelApplication1.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右边距2cm：
    ExcelApplication1.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.页面水平居中：
    ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.页面垂直居中：
    ExcelApplication1.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
k.打印单元格网线：
    ExcelApplication1.ActiveSheet.PageSetup.PrintGridLines := True;17) 拷贝操作：a.拷贝整个工作表：
    ExcelApplication1.ActiveSheet.Used.Range.Copy;b.拷贝指定区域：
    ExcelApplication1.ActiveSheet.Range[ 'A1:E2' ].Copy;c.从A1位置开始粘贴：
    ExcelApplication1.ActiveSheet.Range.[ 'A1' ].PasteSpecial;d.从文件尾部开始粘贴：
    ExcelApplication1.ActiveSheet.Range.PasteSpecial;18) 插入一行或一列：
a. ExcelApplication1.ActiveSheet.Rows[2].Insert;
b. ExcelApplication1.ActiveSheet.Columns[1].Insert;19) 删除一行或一列：
a. ExcelApplication1.ActiveSheet.Rows[2].Delete;
b. ExcelApplication1.ActiveSheet.Columns[1].Delete;20) 打印预览工作表：
ExcelApplication1.ActiveSheet.PrintPreview;21) 打印输出工作表：
ExcelApplication1.ActiveSheet.PrintOut;22) 工作表保存：
if not ExcelApplication1.ActiveWorkBook.Saved then
   ExcelApplication1.ActiveSheet.PrintPreview;23) 工作表另存为：
ExcelApplication1.SaveAs( 'C:\Excel\Demo1.xls' );24) 放弃存盘：
ExcelApplication1.ActiveWorkBook.Saved := True;25) 关闭工作簿：
ExcelApplication1.WorkBooks.Close;26) 退出 Excel：
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;(三) 使用Delphi 控制Excle二维图
在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet
var asheet1,achart, range:variant;1）选择当第一个工作薄第一个工作表
asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];2）增加一个二维图
achart:=asheet1.chartobjects.add(100,100,200,200);3）选择二维图的形态
achart.chart.charttype:=4;4）给二维图赋值
series:=achart.chart.seriescollection;
range:=sheet1!r2c3:r3c9;
series.add(range,true);
 

Answer 7

也可以用ADO或其他的；如：
1、添加ADOTable1控件，设置下列属性： 
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Persist Security Info=false;Data Source=c:\abc.xls"; 
TableDirect=true; 
TableName="sheet1$"; 
Active=true; 
2、添加DataSource1控件，设置下列属性： 
DataSet=ADOTable1 
3、添加DBGrid1控件，设置下列属性： 
DataSource=DataSource1 
数据就显示出来了，可以对其进行操作，

Answer 8

excel表导入数据库代码：
uses ：comobj，db；
Procedure  TForm1.Excel_2_db(str :string);
var          eclApp,WorkBook :variant ;
             xlsFileName :string;
             a_FiledCount:integer;       //数据库表中的列数
             b_filedCount:integer;      //excel 文件中的 列数
             b_row :integer;           // excel 文件的行熟
             i,j :integer;
             a_flag :boolean;
begin
          Form1.OpenDialog1.Title :='Excel文件 导入到数据库'+str+'表';
          Form1.OpenDialog1.InitialDir :=ExtractFilePath(Application.ExeName );
          if    (Form1.OpenDialog1.Execute )
          then   xlsFileName :=ExtractFileName(Form1.OpenDialog1.FileName)
          else   exit;          try
               eclApp := CreateOleObject('Excel.Application');
               WorkBook :=CreateOleObject('Excel.Sheet');
          except
                 showmessage('您系统未安装MS-EXCEL');
                 exit;
          end;
          try
              workBook :=eclApp.WorkBooks.add ;
              eclApp.workBooks.open(Form1.OpenDialog1.FileName );
          except
                on  EOleException do
                    begin
                             WorkBook.close;
                             eclApp.quit;
                             eclApp:=Unassigned;
                             exit;
                    end;
          end;
         eclApp.visible :=false;
          try   //try ..finally
            try //try  ..except
                 With  Data_Mod.DataModule1.kcinfo_Tab    do
                    begin
                         close ;
                         TableName :=str;
                         active :=true;
                         a_FiledCount :=FieldCount;                   end;                   b_filedCount :=eclApp.ActiveSheet.UsedRange.columns.Count;//返回excel 表中的列数
                   b_row :=eclApp.activesheet.UsedRange.rows.count;        //返回excel 表中的行数                   if    (a_FiledCount <>b_FiledCount)     //当数据 表和导入的excel表中的列数不一样，说明导入的excel文件不是正确的
                   then  begin
                          showmessage('您选择导入的excel文件错误'+#13+#10+'请您重新选择');
                          WorkBook.close;
                          eclApp.quit;
                          eclApp:=Unassigned;
                          exit;
                         end
                   else   begin  //列数正确，但是还要继续判断每列的字段名是否一致
                             for  i :=1 to  b_filedCount do
                                begin
                                     //showmessage(eclApp.activesheet.cells.item[1,i].value);
                                     //showmessage(DataMod.ADO_basic.Fields.Fields[i-1].FieldName );                                     if    eclApp.activesheet.cells.item[2,i].value<>Data_Mod.DataModule1.kcinfo_Tab.Fields[i-1].FieldName  //判断字段名是否相等
                                     //if    eclApp.activesheet.cells.item[1,i].value<>DataMod.ADO_basic.Fields.Fields[i-1].FieldName   //判断中文title.caption 是否相等
                                     then  begin
                                                   showmessage('您选择导入的excel文件错误'+#13+#10+'请您重新选择');
                                                   WorkBook.close;
                                                   eclApp.quit;
                                                   eclApp:=Unassigned;
                                                   Data_Mod.DataModule1.kcinfo_Tab.Close ;
                                                   exit;
                                           end;
                                end; //for   i:=.....  
                        end;     //end with  else                  for  i :=3 to  b_row do            //行
                      begin
                            a_flag :=Data_Mod.DataModule1.kcinfo_Tab.Locate(eclApp.activesheet.cells.item[2,1],eclApp.activesheet.cells.item[i,1],[loCaseInsensitive]);
                                      if    (a_flag =true)
                                      then  begin
                                               showmessage('该记录已经存在');
                                               Data_Mod.DataModule1.kcinfo_Tab.Next ;
                                               continue;
                                            end;                            With  Data_Mod.DataModule1.kcinfo_Tab  do
                               begin
                                     close ;
                                     TableName :=str;
                                     active :=true;
                                     Append;
                               end;
                            For j :=1 to    b_filedCount do    //列
                               begin     //开始导入数据库
                                     //showmessage(eclApp.activesheet.cells.item[1,j]);//.Value);
                                     ////showmessage(eclApp.activesheet.cells.item[i,j].value);
                                     //showmessage(eclApp.activesheet.cells[i,j].value);                                     Data_Mod.DataModule1.kcinfo_Tab.FieldByName(eclApp.activesheet.cells.item[2,j]).Value :=eclApp.activesheet.cells[i,j].value;                               end ;      //end with For j :=1 to    b_filedCount do
                         Data_Mod.DataModule1.kcinfo_Tab.Post ;
                         Data_Mod.DataModule1.kcinfo_Tab.Refresh ;
                  end;
                 showmessage('导入数据成功');
            except
                   WorkBook.close;
                   eclApp.quit;
                   eclApp:=Unassigned;
                   Data_Mod.DataModule1.kcinfo_Tab.Close ;
            end;   //end  try  except
          finally  //操作错误，退出
                   WorkBook.close;
                   eclApp.quit;
                   eclApp:=Unassigned;
                   Data_Mod.DataModule1.kcinfo_Tab.Close ;
          end;
end;

Answer 9

导出为excel表：
procedure TForm3.Excel4Click(Sender: TObject);   //将联合查询的结构转为excel表
var       xlsFilename :string;
          eclApp,WorkBook :variant ;
          a_filedNo,i,j :integer;
begin
          a_filedNo :=Form3.DBGrid4.FieldCount  ;
          xlsFileName :='关于学生成绩基本信息.xls';          try
                  eclApp :=CreateOleObject('Excel.Application');
                  WorkBook :=CreateOleObject('Excel.Sheet');
          except
                  showmessage('您的系统没有安装MS EXCEL');
                  exit;
          end;          try
                    WorkBook :=eclApp.workBooks.add ;
                    for i :=1 to  a_FiledNo do      //转化字段名；
                     begin
                            //eclApp.cells(1,i) :=Form3.DBGrid4.Columns[i-1].Title.caption ;
                            eclApp.cells(1,i) :=Form3.DBGrid4.Fields[i-1].FieldName ;
                     end;                    Form3.DBGrid4.DataSource.DataSet.First ;
                    for i :=1 to  Form3.a_recno   do    //Form3.a_recno                       begin
                            for j :=1 to  a_filedNo do  //转化一个记录
                              begin
                                      eclApp.cells(i+1,j) :=Form3.DbGrid4.Fields[j-1].Value ;
                              end;
                            Form3.DBGrid4.DataSource.DataSet.Next ;
                      end;
                try
                     WorkBook.saveas(ExtractFilePath(Application.ExeName )+xlsFileName);
                     WorkBook.close;
                     showmessage('保存EXECL文件成功，路径为：'+ExtractFilePath(Application.ExeName )+xlsFileName);
                  except
                           showmessage('保存文件出错');
                  end;
               except
                 showmessage('不能正确操作EXECL文件，可能该文件已经被其他程序占用或系统错误');
                 WorkBook.close;
                 eclApp.quit;
                 eclApp :=Unassigned;
         end;
end;