Delphi 获取Excel文件所有sheet名称的列表

Question

查到了一段代码如下：
self.ADOConnection1.Open;
  self.ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\template.xls;Extended Properties=Excel 8.0;Persist Security Info=False';
  self.ADOConnection1.GetTableNames(self.ListBox1.Items);
当我用时总是提示输入用户名和密码，有点搞不懂，不知还有没有其他方便的方法，
请高手指教，谢谢！

Answer 1

if OpenDialog1.Execute then
  begin
    ConnSource.Connected := false;
    ConnSource.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
      'User ID=Admin;' +
      'Data Source=' + OpenDialog1.FileName + ';' +
      'Mode=ReadWrite;Extended Properties=Excel 8.0;Persist Security Info=False;' +
      'Jet OLEDB:System database="";' +
      'Jet OLEDB:Registry Path="";' +
      'Jet OLEDB:Database Password="";' + //HERE
      'Jet OLEDB:Engine Type=5;' +
      'Jet OLEDB:Database Locking Mode=1;' +
      'Jet OLEDB:Global Partial Bulk Ops=2;' +
      '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''t Copy Locale on Compact=False;' +
      'Jet OLEDB:Compact Without Replica Repair=False;' +
      'Jet OLEDB:SFP=False';
    ConnSource.Connected := True;
  end;

Answer 2

xlBook := xlApp.Workbooks.Add;
  //  xlBook.Worksheets.addafter(xlBook.Worksheets.count);  xlSheet := xlBook.Worksheets['sheet1'];
  xlBook.Worksheets.Add(EmptyParam, xlApp.Sheets[xlApp.Sheets.Count]);
  xlApp.Sheets[3].Name :='abc';
  xlApp.Visible := False; //true
----------------------------------------
yourname:= xlApp.Sheets[3].Name

Answer 3

  xlApp, xlBook, xlSheet, xlQuery: Variant;
  try
    xlApp := CreateOleObject('Excel.Application');
  except
    ShowMessage('您的机器里未安装Microsoft Excel。');
    Exit;
  end;xlBook := xlApp.Workbooks.Add;
  //  xlBook.Worksheets.addafter(xlBook.Worksheets.count);  xlSheet := xlBook.Worksheets['sheet1'];
  xlBook.Worksheets.Add(EmptyParam, xlApp.Sheets[xlApp.Sheets.Count]);
  xlApp.Sheets[3].Name :='abc';
  xlApp.Visible := False; //true
----------------------------------------
yourname:= xlApp.Sheets[3].Name