автоматизация

  • Автор темы Че за ботва?
  • Дата начала
Ч

Че за ботва?

Гость
Народ есть такая тема - есть куча файлов однотипных в экселе и нун их всех прогнать чтобы у них вырезались певые ячеки таблиц - никто не в курсах чем и как мона?
 

McSimm.Korobov

Пользователь
Пользователь
12 Фев 2005
326
0
0
36
Луганская 4
Нет ничего проще. Программы MS Office - классический пример автоматизации как с помощью внутреннего VBA, так и извне.

Пример сделан с помошью Delphi:

PHP:
const
  ArtCol = 1;

var
  Excel  : Variant;
  Article  : string;
  Stop : Boolean;
  i : Integer;

  StartRow : Integer;

  function IsEmptyRow(Row : Integer) : Boolean;
  begin
    Result := True;
    Article := Excel.Sheets[1].Cells[Row, ArtCol].Text;
    if (Article <> '') then
      Result := False;
  end;

begin

  if OpenDialogData.Execute then begin
    try
      Excel := CreateOleObject('Excel.Application');
      Excel.Visible := False;
      Excel.Workbooks.Open(OpenDialogData.FileName);
      Application.ProcessMessages;

      Stop := False;
      i := 0;

      while not Stop do begin
        if not IsEmptyRow(i) then
          Article := Excel.Sheets[1].Cells[i, ArtCol].Text
        else
          if IsEmptyRow(i + 1) then
            Stop := True;
        Inc(i);
        Application.ProcessMessages;
      end;

    finally
      Excel.Quit;
    end;
  end;
end;
 
Ч

Че за ботва?

Гость
ага брат тыб его тама еще скомпелил а то я в дельфях ваще не секу
 

McSimm.Korobov

Пользователь
Пользователь
12 Фев 2005
326
0
0
36
Луганская 4
Единственное, чего нехватает - это OpenDialog'а на форме.
Кинь его с закладки Dialogs и обзови OpenDialogData.

Всё.
 

McSimm.Korobov

Пользователь
Пользователь
12 Фев 2005
326
0
0
36
Луганская 4
На. ВыДрал из оочень старого проекта.

Вопросы (если возникнут) в ПМ.
 
Последнее редактирование модератором:
Ч

Че за ботва?

Гость
чет я не понял как этим пользоваться - одна кнопка и все
 

firetrap

Активный пользователь
Пользователь
9 Фев 2005
988
11
18
Че за ботва? сказал(а):
чет я не понял как этим пользоваться - одна кнопка и все
Ты спрашивал, "чем и как можно", тебе ответили как и чем и даже исходники дали для дельфей, что еще тебе нужно? Если ты не шаришь в программировании и хочешь, чтобы кто-то написал тебе программу для твоих файлов, так и скажи, может кто-нить возьмется помочь..