delphi XLSReadWriteII5 读取excel 指定列内容

方法1：

procedure TForm3.Button1Click(Sender: TObject);

var

  R:integer;

  c:integer;

begin

  c:=strtoint(edit1.Text);

  with OD do

  begin

    Filter := '*.xlsx|*.xlsx';

    DefaultExt:='xlsx';

    if Execute then

    begin

      if Files[0]<>''then

      try

        XLSRW.Filename := Files[0];

        XLSRW.Read;

        memo1.Lines.Clear;

        for R := XLSRW[0].FirstRow to XLSRW[0].LastRow do

        begin

          memo1.Lines.Add(xlsrw[0].AsString[C,R])

        end;

      except

      end;

    end;

  end;

end;

方法2：

var
  StrA:Tstringlist;
  R:integer;
  XLS: TXLSReadWriteII5; // 引用XLSReadWriteII5, Xc12DataStyleSheet5, ShellAPI
  DcpStr:String;
begin
  XLS := TXLSReadWriteII5.Create(nil);
  StrA:=TStringList.Create;
  OpenDialog1.Filter := 'Excel文件(*.xlsx)|*.xlsx';
  OpenDialog1.DefaultExt:='xlsx';
  try
    if OpenDialog1.Execute() then
     begin
          XLS.Clear;
          XLS.FileName :=OpenDialog1.FileName;
          xls.Read;
         for R := 0 to XLS.Sheets[0].LastRow do
            begin
              DcpStr:=XLS.Sheets[0].AsString[StrToInt(edit1.Text),R];
              StrA.Add(DcpStr);
            end;
         memo1.Text:=StrA.Text;
     end;
  finally
    XLS.Free;
  end;
end;