Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как обойти безопасний режим открития файла в офисе 
V
    Опции темы
NOCaut
Дата 6.10.2014, 10:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



При работе с ексель через оле возникает ошибка: "Система Office обнаружила проблему с этим файлом. Чтобы обеспечить защиту компьютера, этот файл не будет открыт"
После этого файл сохраняется нормально, но теряются настройки печати (сквозные строки, номерация и так дале).

Код

procedure TExprDataToExcel.FileToExcel(SaveFileName: string);
var
  Ap   : OleVariant;
  i,j  : Integer;
  p    : PCellCoord_;
  nCord: PCellCoord_;
  hLine: Boolean;
begin
  Ap := CreateOleObject('Excel.Application');
  MSFx.Position := 0;
  MSFx.SaveToFile(SaveFileName);
  Ap.Workbooks.open(SaveFileName);
  try
    Ap.Visible       := False;
    Ap.DisplayAlerts := False;
    nCord            := CoordList.GetPItem(0);
    for i := 0 to CoordList.Count - 1 do
    begin
      ShowProgress(PRT_SAVE, CoordList.Count, i);
      p := CoordList.GetPItem(i);
      Ap.Sheets[p.Sheet+1].Cells[p.Row+1,p.Col+1] := ValueList[i];
    end;
    Ap.ActiveWorkBook.SaveAs(SaveFileName);
  finally
    Ap.Workbooks.Close;
    Ap.Quit;
    HideProgress;
  end;
end;

PM MAIL   Вверх
NOCaut
Дата 6.10.2014, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Помогло.Файл->Параметры->Центр управления безопасностью->Параметры центра упраления безопасностью. Выбираете пункт "Надежные расположения" и добавляете директорию, их которой файлы будете обрабатывать.
Теперь буду думать как програмно добавить етот путь.
PM MAIL   Вверх
Google
  Дата 25.5.2019, 04:06 (ссылка)  





  Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

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


 




[ Время генерации скрипта: 0.4105 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.