Delphi 读取Excel多个表

最近编写一个小的程序，其中里面一项功能需要将原来的excel文档的内容导入sql中，但是excel每个文档中都有几十个表，我在网上找了许多对excel操作的代码，都是对一个表进行操作的，哪位好心人给我一段代码，让我参考下~最好是有写好的程序~谢谢了，可以发我邮箱[email protected]~