第一种用XLSReadWriteII51procedureTForm1.Button1Click(Sender:TObject);vars:string;rows,cols:Integer;sRow,sCol:Integer;beginsRow:=0;//开始行sCol:=0;//开始列ifOpenDialog1.Execute()thenbeginXLSReadWriteII51.Filename