VPF::Сохранение измененного Excel документа

demoded

Дата 26.3.2007, 08:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 7.12.2006

Репутация: нет
Всего: нет

вот код:

Код


  if FileIn1='' then Exit;
  Excel1.Connect;
  Excel1.Workbooks.Open(FileIn1, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam, LOCALE_USER_DEFAULT);
  Excel1.Visible[0]:=false;
  WorkBook1:=Excel1.Workbooks.Item[1];
  WorkSheet1:=WorkBook1.Worksheets.Get_Item(1) as _WorkSheet;
  if Format('%s',[WorkSheet1.Cells.Item[1,1].Value])='' then
    begin
      WorkSheet1.Range['A1','A65535'].Delete(1);
      WorkSheet1.Range['A1','Z1'].Delete(2);
    end;
  WorkBook1.Close(true,EmptyParam,EmptyParam,LOCALE_USER_DEFAULT);
  Excel1.Quit;
  Excel1.Disconnect;

удаляет ячейки корректно, сохраняется и выходит, НО
Открываем измененный документ - все хорошо.
ничего не меняя закрываем Excell - Microsoft Office Excel - обнаружена ошибка. Приложение будет закрыто. Приносим извинения за неудобства.

demoded

Дата 26.3.2007, 12:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 7.12.2006

Репутация: нет
Всего: нет

проблема решилась сама-собой...
перед закрытием и выходом добавил

Код


  WorkSheet1.Range['A1','A1'].ColumnWidth:=50;
  WorkSheet1.Range['A1','A1'].RowHeight:=21;

в документе строка '1' и столбец 'А' были 0-й ширины
видимо это мешало.

Это сообщение отредактировал(а) demoded - 26.3.2007, 12:10

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »