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

[artemavd]

Нет, колонка под название "л\с" может быть как третьей так и четвертым, т.е. заранее не всегда известно будет. Можно ли как-то находить этот "л\с" и считывать все значения из под этой надписи? Вот, я пробую занести весь этот слобец в StringGrid или ListBox:

    if sl.count >0 then
   //   showMessage(sl.Text);
      Form1.ListBox1.Items.Add(sl.text);

      for i:=1 to Form1.StringGrid1.RowCount do
      begin
       Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowCount + 1;
       Form1.StringGrid1.Cells[0,i]:=Trim(sl.Text);
      end;

но не получается. В ListBox они выводятся, но во-первых все в одну строчку, а не в столбец, а во-вторых между значениями стоят по 2 квадратика. В StringGrid тоже самое...

[MaxNik2009]

тогда это будет выглядеть так:

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

begin

  Path:= ExtractFileDir(ParamStr(0));

  Ex:= CreateOleObject('Excel.Application');
  Ex.Workbooks.Open('ПутьКФайлу'); // открываем книгу
  Sheet:= Ex.Workbooks[1].Sheets[1]; // цепляемся к листу №1

  Sheet.Cells.Find('л\с').Activate; // ищем в листе л\с
  Row:= Ex.Selection.Row; // строка в которой найдено  л\с
  col:= Ex.Selection.column; // колонка в которой найдено  л\с

  sl:= TStringList.Create;
  try
    while (Sheet.Cells[Row, col].Text <> '') do
    begin
      sl.Add(Sheet.Cells[Row, Col].Text); // добовляем в стринглист
      inc(Row);
    end;
    if sl.count > 0 then
      showMessage(sl.Text);
  finally
    Sheet:= Unassigned;
    Ex.Quit;
    sl.Free;
  end;
end;

[artemavd]

Выводится в сообщение это хорошо, а как в StringGrid в колонку? . Пробую циклом:

 if sl.count >0 then
   //   showMessage(sl.Text);
      Form1.ListBox1.Items.Add(sl.text);

      for i:=1 to Form1.StringGrid1.RowCount do
      begin
       Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowCount + 1;
       Form1.StringGrid1.Cells[0,i]:=Trim(sl.Text);
      end;

Не получается..

[MaxNik2009]

а так:

    if sl.count > 0 then
    begin
      StringGrid1.RowCount:=sl.count;
      for I := 0 to StringGrid1.RowCount-1 do
        StringGrid1.Cells[0,I]:= sl[i];
    end;

[artemavd]

Сейчас проверю. Я тут пытаюсь с OpenDialog сделать, но выдается ошибка: "Невозможно получить доступ к <тут имя папки, в которой находится файл excel>. Диск может быть доступен только для чтения или зашифрован". Вот весь код кнопки:

procedure TForm1.BtnOpenClick(Sender: TObject);
var
  Ex: variant;
  Sheet: variant;
  sl: TStringList;
  Row,i,Col: Integer;
  Path: string;
begin
  if Form1.OpenDialog1.Execute then
  Path:=ExtractFileDir(Form1.OpenDialog1.FileName);

  Ex:= CreateOleObject('Excel.Application');
  Ex.Workbooks.Open(Path);  // открываем книгу
  Sheet:= Ex.WorkBooks[1].Sheets[1]; //  цепляемся к листу №1

  Sheet.Cells.Find('л\с').Activate; //название колонки
  Row:=Ex.Selection.Row;
  Col:=Ex.Selection.Column;

  sl:= TStringList.Create;
  try
    while (Sheet.Cells[Row , Col].Text <> '') do
    begin
      sl.Add(Sheet.Cells[Row , Col].text);  // добовляем в стринглист
      inc(Row);
    end;
    if sl.count > 0 then
      begin
       Form1.StringGrid1.RowCount:=sl.Count;
       for i:=1 to Form1.StringGrid1.RowCount - 1 do
        begin
         Form1.StringGrid1.Cells[0,i]:=sl[i];
        end;
      end;
  finally

    Sheet:= Unassigned;
    Ex.Quit;
    sl.Free;
  end;
end;

Может я что-то не там разместил?

[MaxNik2009]

procedure TForm3.Button1Click(Sender: TObject);
var
  Ex: variant;
  Sheet: variant;
  sl: TStringList;
  Row, col: Integer;
  s: string;
  Path: string;
  I: Integer;
  xlsFile: string;

begin

  if OpenDialog1.Execute then
  begin
    xlsFile:= OpenDialog1.FileName;

    Ex:= CreateOleObject('Excel.Application');
    Ex.Workbooks.Open(xlsFile); // открываем книгу
    Sheet:= Ex.Workbooks[1].Sheets[1]; // цепляемся к листу №1

    Sheet.Cells.Find('л\с').Activate; // ищем в листе л\с
    Row:= Ex.Selection.Row; // строка в которой найдено  л\с
    col:= Ex.Selection.column; // колонка в которой найдено  л\с

    sl:= TStringList.Create;
    try
      while (Sheet.Cells[Row, col].Text <> '') do
      begin
        sl.Add(Sheet.Cells[Row, 1].Text); // добовляем в стринглист
        inc(Row);
      end;

      if sl.count > 0 then
      begin
        StringGrid1.RowCount:= sl.count;
        for I:= 0 to StringGrid1.RowCount - 1 do
          StringGrid1.Cells[0, I]:= sl[I];
      end;

    finally
      Sheet:= Unassigned;
      Ex.Quit;
      sl.Free;
    end;
  end;
end;

У меня вот это работает... Сам найдешь свои ошибки?
ладно объясню:

  if Form1.OpenDialog1.Execute then
  Path:=ExtractFileDir(Form1.OpenDialog1.FileName); // получаешь папку в которой хранится файл экселя

  Ex:= CreateOleObject('Excel.Application');
  Ex.Workbooks.Open(Path);  // тут пытаешься открыть папку а не файл!!!
  Sheet:= Ex.WorkBooks[1].Sheets[1]; //  цепляемся к листу №1

Будь внимательнее

[artemavd]

MaxNik2009, респект! Спасибо тебе большое за помощь. . Плюс тебе поставил уже. Жалко, что еще не могу.