сравнить файлы в Excel

[Yu.V]

есть 2 таблицы, которые находятся в разных файлах. необходимо выяснить, есть ли в столбце А табл 1 файла 1 значения, которые есть в столбце А табл 2 файла 2 (в моем задании -- это номера счетов, например #10235689)

[cvv]

если еще актуально:

var
  Form1: TForm1;
  x1, x2: Variant;
  v1, v2: string;
implementation
uses comObj;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i, ii: integer;
begin
  x1 := CreateOleObject('Excel.Application');
  x1.Workbooks.Open('d:\Temp\f1.xls');
  x1.Visible := True;

  x2 := CreateOleObject('Excel.Application');
  x2.Workbooks.Open('d:\Temp\f2.xls');
  x2.Visible := True;
  ii := 0;

  repeat
    i := 0;
    inc(ii);
     v2 := x2.Workbooks[1].WorkSheets[1].cells[ii, 1].Value;
     if v2 = '' then break;
    repeat
      inc(i);
      v1 := x1.Workbooks[1].WorkSheets[1].cells[i,1].Value;
      if v1 = '' then break;
      if v1 = v2 then Memo1.Lines.Add(v1);  // вывод в Memo1 совпадающих номеров
    until false;
  until false ;
  x1.Quit;
  x2.Quit;

end;

[Yu.V]

спс попробую сегодня сделать..

а с помощью макроса ет можно реализовать?)

[Stilet]

cvv

Когда-то я такое умудрился сделать через ODBC SQL запросом в том же Экзеле. Там по-моему была инструкция JOIN

[cvv]

Сообщение от Stilet

Когда-то я такое умудрился сделать через ODBC SQL запросом в том же Экзеле. Там по-моему была инструкция JOIN

Здесь просто перебор значений в 1х столбцах 1го и 2 файла и сравнение.
JOIN - инструкция из sql, а т.к. задачи реализовать с помощью sql-запроса не было, то и решение соответствующее.