Добрый день, коллеги!
Среда: Tokyo 10.2, Windows 7.
Пациент: Windows 10 64bit
Использую следующий код для открытия эксель-файла (2 столбца по 10 заполненных строчек, размер файла 78 Кб) и дальнейшего заполнения.
1.
2.
3.
4.
5.
6.
7.
8.
procedure CreateExcelBase(AFileName:string);
begin
XL := Unassigned;
Sheet := Unassigned;
XL := CreateOleObject('Excel.Application');
XL.Workbooks.Open(AFileName);
Sheet:=XL.WorkBooks[1].WorkSheets[1];
end;
В Windows7 - MS Office 2016 проблем нет. Файл открывается почти мгновенно.
В Windows 10 - MSOffice 2016 при запуске программы из под пользователя наблюдаются 2 типа ошибок (появляются совершенно рандомно):
1. the server {00024500-0000-0000-C000-000000000046} did not register with DCOM within the required timeout
2. Server execution failed, ProgID: "Excel.Application"
Если запустить из под администратора, то файл открывается, но где-то через 20-30 секунд.
По 1-й ошибке гуглил, DCOMCNFG проверял, настройки безопасности изменял
Офис переставил - не помогло.
Интересности (бред какой-то..):
1. Если запустить данный код из главного окна приложения (кнопка на главной форме), то под админом открывается за 5-7 секунд
2. Если из модального окна, то, как указано выше, 20-30 секунд.
Если сделать пустую тестовую форму с 1 кнопкой и генерацией пустого листа экселя, то в Windows 10 это занимает 5-7 секунд. В Windows 7 - 1 секунда.
Тестовая пустая форма:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure TForm7.Button1Click(Sender: TObject);
var
XL : variant;
Sheet : variant;
WB: Variant;
begin
XL := CreateOleObject('Excel.Application');
XL.Visible := true;
// WB:=XL.WorkBooks.Open('D:\Excel2016\Win32\Release\QPRDetailSupplier.xls');
WB:=XL.WorkBooks.Add(EmptyParam);
XL.WorkBooks[1].WorkSheets[1].Name := 'my data';
Sheet := XL.WorkBooks[1].WorkSheets['my data'];
Sheet.Range['A10',EmptyParam].Value[EmptyParam]:='123';
end;
Есть идеи как побороть?
Может кто-то уже сталкивался с подобным?
