用 Delphi 读取一个Excel文件，如果获取sheet名称的列表

Question

大家好：
    小弟也是编程的，是一个菜鸟，很菜，天津的，着急作一个东西，读取一个Excel文件，但是里面有好多个sheet，而且sheet的名称都是中文的，怎么样获取这些sheet的名称(中文)，在线等待，大家帮我

Answer 1

你可以按照顺序来啊，比如sheet[1]

Answer 2

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);