如何将Excel的数据调入到Dbgrid中显示？

Question

如何将Excel的数据调入到Dbgrid中显示？如何将Dbgrid显示的数据存为文本文件？

Answer 1

将Excel的数据调入到Dbgrid中显示和显示数据库表的数据是一样的，
下面是连接Excel字符串：
  connstr='Provider=MSDASQL.1;Persist Security Info=False;'+
          'Connect Timeout=15;Extended Properties="DBQ='+
          '%S;Driver={Microsoft Excel Driver (*.xls)};'+   
          'DriverId=790;FIL=excel 8.0;'+
          'MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;'+      
          'ReadOnly=1;SafeTransactions=0;Threads=3;UID=admin;'+
          'UserCommitSync=Yes;";Locale Identifier=2052';将里面的%S替换为Excel文件名即可．查询语句为
Sql.Text:='Select * from `'+sFileName+'`.`sheet1$`';
query1.savetofile('s.txt')即可保存为文本文件