怎样获得一个EXCEL文件的sheet名称？？？（在线等待）

Question

怎样获得一个EXCEL文件的sheet名称？？？
详细点
最好时有源代码
解决马上给分

Answer 1

z1=excelworksheet3.Name
z2=excelworksheet2.Name
z3=excelworksheet1.Name

Answer 2

Cstr := FileNameEdit.Text;
      cstr1 := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=' +
        cstr;
      cstr2 :=
        ';Mode=Share Deny Write;Extended Properties=Excel 8.0;Locale Identifier=2052;Persist Security Info=False;Jet OLEDB:System database="";';
      cstr3 :=
        'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;';
      cstr4 :=
        'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;;Jet OLEDB:Don';
      cstr5 := '''' +
        't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';      adoc.Connected := false;
      adoc.ConnectionString := cstr1 + cstr2 + cstr3 + cstr4 + cstr5;
      adoc.Connected := true;
      adoc.GetTableNames(combobox1.items);
combobox1里面的就是sheet名

Answer 3

我要把adoc.GetTableNames(combobox1.items);它付给aa
应该怎么写？？？

Answer 4

不用需用任何的控件的代码：uses comobj;
var
  ExcelApp,MyWorkBook: OLEVariant;
begin
try
    ExcelApp:=CreateOleObject('Excel.Application');
    MyWorkBook:=CreateOleobject('Excel.Sheet');
  except
    application.Messagebox('无法打开Xls文件，请确认已 经安装EXCEL.','',
         mb_OK+mb_IconStop);
    Exit;
  end;
    ExcelApp.Visible := True;
    ExcelApp.WorkBooks.open('aa.xls');
    MyWorkBook := ExcelApp.WorkSheets.Item[1];
    showmessage(excelapp.activesheet.name);
{...}

Answer 5

我是用qiujsh(qiujsh) 的方法连接的EXCEL文件
要获得sheet名称

Answer 6

var
  aa:TStrings;  adoc.GetTableNames(aa);

Answer 7

var
  aa:TStrings;  ADOC.GetTableNames(aa);

Answer 8

创建的语句没写
var
  aa:TStrings;
begin
  aa:= TStringList.Create;
  try
    ADOC.GetTableNames(aa);
  finally
    aa.free;
  end;