выгрузка определенных ячеек из excel

[kate158]

смотрите 9 пост

[grenles]

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

пытаюсь побороться с ячейками..

procedure TForm1.Button3Click(Sender: TObject);
var
  D1, D2 : Variant;
  E, W, SB,SH : Variant;
  i:integer;
BEGIN
    E  := CreateOleObject('Excel.Application');
      E.DisplayAlerts  := False;
      for i:=0 to Memo1.Lines.Count - 1 do
      E.WorkBooks.Open(trim(Memo1.Lines[i]), ReadOnly:=True);
      W := E.WorkBooks.Item[1];
      SH := W.Sheets.Item[1];
         D1 :=  SH.Range[EditAA.Text].Value;
            showmessage(d1);
            //E.Visible:=true;
               e.WorkBooks.close;
   Application.ProcessMessages;
end;

теперь пользователь может добавить либо диапазон вида D1:D3 либо D5 либо D1;D4;D8
цикл по excel файлам есть, по значениям ячеек нет..
в чем проблема?

Правильно цикла по ячейкам тут и нет
Ты же просто считала диапазон и все. А работать с ним кто будет?

А что ты хочешь сказать фразой?

       showmessage(d1);

и еще - я конечно не знаю, может у тебя
EditAA и Memo1.Lines[i] - все четко заполненно, но я бы делал хотя бы примитивную проверку на ошибочное содержание. или хотя бы не допустимые символы.

Или хотя бы облачил все в скобки обработки исключения.

try
{ код работы с эксель мало ли что - может и заглючить по любой причине}
except
{ что делать в случае ошибки в основном коде}
end

а выборка из диапазона D1

start := 1 { "E11:E15" } первая ячейка нашего диапазона 
end_s :=  4 { ""E11:E15"" } 15 - 11 = последняя

for ki = start to end_s // цикл 
   единичное_значение := VarArrayGet( D1,[ki]);

где VarArrayGet - вытаскивает из диапазона D1 текущую ki ячейку

кажется так если я не ошибаюсь

Вообщем надо организовывать еще цикл по считываемому диапазону причем границы цикла каждый раз заканчивают разным числом, а начинаются
с 1 (единицы), а конец - это число считанных элементов, вне зависимости от диапазон с 100 по 105 или с 11 по 15 все равно будет 1...4 (если у меня все в порядке с математикой)

Кроме того, Если вы считал диапазон E1:J15, что считывание будет идти так.

 for STLOB = 1 to 6 do// E=1 F=2 G=3.... J=6
 for ki = 1 to 14 do
...
   единичное_значение := VarArrayGet( D1,[ki, STOLB]);
....

то есть мы читаем как бы из массива где Ki - строка STOLB - столбец. По умолчанию столбец не используется.

From Stilet: Оно конечно хорошо, но попрошу не постить подряд свои посты. Если видишь что предидущий твой - подредактируй.

[kate158]

в общем, вот

procedure TForm1.Button4Click(Sender: TObject);
var
   f: TextFile;       
   fName: String[80]; 
   i,res: integer;
     D1 : Variant;
  E, W, SB,SH : Variant;
begin
  if not OpenDialog1.Execute then begin
     exit;
     end
     else
  fName := OpenDialog1.FileName; 
  AssignFile(f, fName);
  Rewrite(f);  
  try
  for i:=0 to Memo1.Lines.Count - 1 do
   begin
   E  := CreateOleObject('Excel.Application');
   E.DisplayAlerts  := False;
   E.WorkBooks.Open(trim(Memo1.Lines[i]), ReadOnly:=True);
   W := E.WorkBooks.Item[1];
   SH := W.Sheets.Item[1];
   D1 :=  SH.Range[EditAA.Text].Value;
   writeln(f, (Memo1.Lines[i]+' '+inttostr(d1))); 
      e.quit;
  end;
   finally
   CloseFile(f); 
   end;
   MessageDlg(Данные записаны в файл!',mtInformation,[mbOk],0);
   end;

+ нужно обработать всякие неприятности с экселем.ну, это уже ерунда.