Считать определенный столбец из Excel

[artemavd]

Добрый день! Вопрос: как считать определенный столбец из документа xls? Например он называется он Л/С. Только этот столбец нужен из всего документа.

[Grag]

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

Только этот столбец нужен из всего документа.

Т.е. со всех листов книги???

[artemavd]

Там один лист книги. С одного листа один столбец . Знаешь как?)

[MaxNik2009]

procedure TForm3.Button1Click(Sender: TObject);
var
  Ex: variant; // экземпляр экселя
  Sheet: variant; // активный лист экселя
  sl: TStringList; // для данных из ячеек 
  Row: Integer; // номер строки
  s: string; 
begin
  Ex:= GetActiveOleObject('Excel.Application');
  Sheet:= Ex.ActiveWorkBook.ActiveSheet;    // цепляемся с активному листу

  sl:= TStringList.Create;
  try
    Row:= 1; // в экселе номерауия строк с 1
    while (Sheet.Cells[Row , 1{№ колонки}].Text <> '') do  // цикл будет выполняться пока ячейки содержат текст
    begin
      sl.Add(Sheet.Cells[Row , 1].text);  // добовляем в стринглист
      inc(Row);
    end;
    
    if sl.count > 0 then
      // делай с данными что хочешь

  finally
    sl.Free;
  end;
end;

это работает при условии что первый столбец и тебя заполнен с 1-й строки.

[artemavd]

То есть нужно, чтобы документ уже был открыт? Можно ли просто указав путь к документу считать из него, не открывая его?

[MaxNik2009]

Тогда так:

procedure TForm3.Button1Click(Sender: TObject);
var
  Ex: variant;
  Sheet: variant;
  sl: TStringList;
  Row: Integer;
  s: string;
begin

  Ex:= CreateOleObject('Excel.Application');
  Ex.Workbooks.Open('ПутьКФайлу');  // открываем книгу
  Sheet:= Ex.WorkBook[1].Sheets[1]; //  цепляемся к листу №1
  sl:= TStringList.Create;
  try
    Row:= 1; // в экселе номерауия строк с 1
    while (Sheet.Cells[Row , 1{№ колонки}].Text <> '') do
    begin
      sl.Add(Sheet.Cells[Row , 1].text);  // добовляем в стринглист
      inc(Row);
    end;
  finally
    Sheet:= Unassigned;
    Ex.Quit; // закрываем эксель
    sl.Free;
  end;
end;

end.

[artemavd]

Что-то ничего не происходит при сипользовании данного кода. Документ xls нужный открыт, а колонка не заносится. Вот, во вложении фрагмент таблицы, из которой нужно считать столбец - л\с.

[MaxNik2009]

Выложи свой файл экселя. Посмотри мой пример в архиве(Delphi 2010).

[artemavd]

Ок. Нужно, чтобы была возможность выбора файла через диалог. В архиве проект.

[MaxNik2009]

вопрос: а данные в твоей таблице всегда будут начинаться с 7 -й строки?
если да, то в моем примере укажи в этом месте

 
...........................................................................................
 sl:= TStringList.Create;
  try
    Row:= 2; // начинаем считывать со 2-й строки
    while (Sheet.Cells[Row , 3{читаем 3 колонку}].Text <> '') do
    begin
............................................................................................

Row:= 7;
ну а OpenDialog к моему примеру, думаю, сможешь прикрутить.