delphi 查找excel

Question

2011年XX县XX良种补贴发放表

户主姓名 银行账号 玉米 小麦 棉花 合计 签字
面积 金额 面积 金额 面积 金额
魏XX 1XXXXX000473577 13.5 135 13.5 135 3 45 315
房XX 1961XXXXXXX0473633 14.8 148 14.8 148 5 75 371
魏XX 19XXXXX473786 6.2 62 6.2 62 7 105 229
魏XX 19XXXXXXXXXX00473842 11.2 112 11.2 112 2 30 254
魏XX 1961XXXXXXXXX473995 3.25 32.5 3.25 32.5 5 75 140
魏XX 196XXXXXXX0474053 11.15 111.5 11.15 111.5 7 105 328
房XX 1961XXXXXX00474109 15.8 158 15.8 158 4 60 376
魏XX 1961XXXXXXXXX4262 13.5 135 13.5 135 3 45 315 像这样的表格，第一行是标题，第二三行是表头，delphi 怎么按某个条件（如：银行帐号）查询里面的数据，能让delphi 知道二三行都是表头从第四行开始才是数据

Answer 1

直接办法没有，间接的话，可以考虑用Delphi去操纵该Excel（操作方法网上多的是），将前三行删了（或者直接改成一行标题），再用opendatasource()读数据，最后再不保存关闭Excel就是了

Answer 2

又想到另外一种办法，只用SQL就行了
select   *,identity(int,1,1) as  ROW1  into #t1  from OpenRowSet('Microsoft.JET.OLEDB.4.0','Excel 5.0;HDR=NO;DataBase=c:\123.xls', [Sheet1$] )
select * from #t1 where Row1>3  --在这里改标题+查询条件就行了

Answer 3

路上的方案比较简单些，就是把excel作为一个数据库来访问；笨方法就是读取excel文件，遍历判断，麻烦些，对excel的操作网上有多种方法，你可以搜下。