向上帝打申请了，下辈子再也不做程序员！！ 上帝批复：OK！

【转】CSDN的帖子

楼主发表于：2004-04-12 17:58:10
我用ADO连接一个EXCEL文件，如果能够取得该EXCEL文件里面有几个SHEET呢，谢谢，分不够可以再加！！！
回复次数：9
  • lijinghe1用户头像
  • lijinghe1
  • (喜欢没有文化性格泼辣身材高大的)
  • 等　级：
#1楼 得分：0回复于：2004-04-12 18:13:48
procedure   TForm1.Button1Click(Sender:   TObject);
var
    l   :   TStringList;
begin
    ADOConnection1.Open;
    l   :=   TStringList.Create;
    try
        ADOConnection1.GetTableNames(l,true);
        ShowMessage(l.Text);
    finally
        l.Free;
    end;
end;
精华推荐：Delphi2007编译服务引发WIN+E快捷键失效等一系列问题
  • Taken用户头像
  • Taken
  • (铁拳)
  • 等　级：
#2楼 得分：0回复于：2004-04-12 18:18:24
procedure   TForm1.Button1Click(Sender:   TObject);
var
    l   :   TStringList;
begin
    ADOConnection1.Open;
    l   :=   TStringList.Create;
    try
        ADOConnection1.GetTableNames(l,true);
        ShowMessage(IntToStr(l.Count));
    finally
        l.Free;
    end;
end;

精华推荐：delphi 三层开发经验汇总贴(大家来补充)
  • laihua用户头像
  • laihua
  • (背着石头过河)
  • 等　级：
#3楼 得分：0回复于：2004-04-12 19:46:04
var
    i:   integer;
begin

    if   opendialog1.Execute   then
    Fname   :=   opendialog1.FileName;
    try
        ExcelApp:=CreateOleObject( 'Excel.Application ');
        ExcelApp.WorkBooks.Open(Fname);

  for   i:=1   to   ExcelApp.ActiveWorkbook.WorkSheets.count   do
    begin
        CheckListBox1.Items.Add(ExcelApp.ActiveWorkbook.WorkSheets[i].Name);
        CheckListBox1.ItemIndex:=0;
    end;
    except
        ExcelApp.WorkBooks.Close;
    end;
精华推荐：如何使程序编译后的Hash码都一样？？
#4楼 得分：0回复于：2004-04-13 00:40:47
marked
精华推荐：年终总结（三）：游戏对战平台研究终结篇
#5楼 得分：0回复于：2004-04-13 09:20:16
同意   laihua(背着石头过河
精华推荐：关于调用Oracle存储过程返回数据集的问题，请大家指教
#6楼 得分：0回复于：2004-04-13 09:42:13
首先获取sheet
for   i:=1   to   ExcelApp.ActiveWorkbook.WorkSheets.count   do
    begin
        CheckListBox1.Items.Add(ExcelApp.ActiveWorkbook.WorkSheets[i].Name);
        CheckListBox1.ItemIndex:=0;
    end;
    except
        ExcelApp.WorkBooks.Close;
    end;
然后再连接
#7楼 得分：0回复于：2004-04-13 09:53:41
给你个我的收藏，希望你能从中获得一些东西：Delphi     控制Excel
(一)   使用动态创建的方法
首先创建   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.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;
(二)   使用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.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;
本人   收藏


对不起我还需要一个锁定功能啊，就是输出到EXCEL后只能看，不能进行手工修改


Xl.Cells.Select;//Select   All   Cells
Xl.Selection.Locked   =   True;//   Lock   Selected   Cells

//Xl:=CreateOleObject( 'Excel.Application ');
posted @ 2011-01-24 16:07  zywuhao  Views(180)  Comments(0)    收藏  举报