var strA :string; intA :integer;strA := 'A1';intA := Sheet.Range[strA,strA].RowHeight;//取得第一行的高度 Sheet :TExcelworksheet;Sheet.Range[strA,strA].RowHeight := 20;//设置第一行的高度 查看原帖>>
