终于找到一个连接字符串，记录一下
UniConnection1.ConnectString := Format('Provider Name=ODBC;Server="DRIVER=Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb); DBQ=%s"', [FileName]);
UniConnection1.connected:=true;
UniConnection1.gettablenames(memo1.lines,false,false);
'select * from ['+memo1.lines.strings[i]+']'