procedure GetTableNames(const ACatalogName, ASchemaName, APattern: string;

      AList: TStrings; AScopes: TFDPhysObjectScopes = [osMy];

      AKinds: TFDPhysTableKinds = [tkSynonym, tkTable, tkView];

      AFullName: Boolean = True);

FDCon_Excel.GetTableNames('', '', '', cbx_ExcelSheets.Items, [osSystem], [tkTable], False);

要留意参数: AScopes

AFullName 给 False即可， 如果为 True-则前面会带上EXCEL文件的全文件名

————————————————

原文链接：https://blog.csdn.net/lsl221/article/details/54631026