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文件的全文件名