XLApp:Variant;
uses Comobj;
const xlchart=-4109;
xlDialogSheet=-4116;
xlExcel4IntlMacroSheet=4;
xlExcel4MacroSheet=3;
xlWorkSheet=-4167;
xlWBATChart=-4109;
xlWBATExcel4IntlMacroSheet=4;
xlWBATExcel4MacroSheet=3;
xlWBATWorkSheet=-4167;
xlApp:=createOleObject('Excel.Application');
xlApp.Visible:=False;
xlApp.workbooks.open(filepath+'sample.xls');
sheet:=xlApp.WorkBooks[1].worksheets['IN'];
再用sheet.Cells[1,1]。。。。。。加上SQL语句。。。。。
你看看吧。。。。能用多少用多少,也许一点用都没有。。。。。:(