AN
В tableslist имеем список воркшитов, правда, у меня в нем были еще то ли именованые диапазоны, то ли что-то типа того, проходил по списку циклом, чистил.
Продолжу мысль про БД. Когда-то давно делал через ADO, примерно так (плюс-минус):
const
connStr = 'Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\MyFile.xlsx;Mode=Share Deny None;Extended Properties="Excel 12.0 Xml;HDR=No";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False';
...
var
connFile: TADOConnection;
qryFileSelect: TADOQuery;
FTableList: TStringList;
...
connFile.ConnectionString := connStr;
connFile.Open;
connFile.GetTableNames(FTableList);
qryFileSelect.SQL.Text := Format('select * from [%s]', [FTableList[0]]);
qryFileSelect.Open();