读取Execl的2个问题
代码是这样的
function TForm1.LoadExcel(AFileName: String): Boolean;var vExcel: Variant; i, RowCount: integer; instRecord: TInstructRecord; sMessage,sTemp: string;begin vExcel := CreateOleObject('Excel.Application'); //创建应用对象 vExcel.WorkBooks.Open(AFileName); RowCount := vExcel.Worksheets[1].UsedRange.Rows.Count; //读行数 qry1.DisableControls(); for i := 2 to RowCount do begin instRecord.date := trim(vExcel.Worksheets[1].Cells[i, 1].Value); instRecord.name := trim(vExcel.Worksheets[1].Cells[i, 10].Value); instRecord.time := trim(vExcel.Worksheets[1].Cells[i, 11].Value); instRecord.pass := trim(vExcel.Worksheets[1].Cells[i, 19].Value); instRecord.prbl := trim(vExcel.Worksheets[1].Cells[i, 20].Value); end; begin adoqry1.Open; adoqry1.Edit; adoqry1.FieldByName('date').AsString := instRecord.date; adoqry1.FieldByName('name').AsString := instRecord.name; adoqry1.FieldByName('time').AsString := instRecord.time; adoqry1.FieldByName('pass').AsString := instRecord.pass; adoqry1.FieldByName('prbl').AsString := instRecord.prbl; adoqry1.Open; end; adoqry1.EnableControls; vExcel.WorkBooks.Close; vExcel.Quit; vExcel := Unassigned; end;