Excel导入SQL时，如何动态获得Sheet的名字

发了一个问题贴，2位前辈回复后，不得要领，试了2整天，没有一个能正常运行的，本想放弃了，最后一次终于试出来了。

竟然还是驱动的问题，驱动驱动驱动，重要的事情说三遍。

我一直尝试使用delphi提供的驱动连接数据文件，全部不能正常使用。  

  OpenDialog1.Execute;

  ADOConnection1.close;
  ADOConnection1.ConnectionString :=
    'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=' + OpenDialog1.FileName +
    ';Extended Properties=Excel 12.0;Persist Security Info=False';
  ADOConnection1.open;
  ADOConnection1.GetTableNames(ListBox1.Items);
原帖子已经不能回复了，再次表示感谢吧，感谢提示。

不过回复我的兄弟，如果要是能写出具体实例，我就能省点事了，哇哈哈哈。

提示：sheet修改为单纯数字的，获得的名字是加单引号的-‘1$’。

原贴见：http://bbs.csdn.net/topics/392208702