169 похожих чатов

Ребят подскажите как закрыть excel процесс после чтения? А то

получается при каждом запуске создается новый процесс

13 ответов

4 просмотра
Sergey-TS Автор вопроса

Сдела вот так

Sergey TS
screenshot Сдела вот так

Безопасный код

var Xl = (Microsoft.Office.Interop.Excel.Application)new Microsoft.Office.Interop.Excel.ApplicationClass(); // вот это поможет XL.Quit(); XL = null; или https://stackoverflow.com/a/17777840/354473 https://stackoverflow.com/a/5794256/354473

Sergey TS
screenshot Сдела вот так

пользователь, использующий твою программу и эксель... найдёт тебя. и сделает что-то очень обидное с тобой

Sergey-TS Автор вопроса
Dmitry
пользователь, использующий твою программу и эксель...

А я открыл документ и он не закрывает, тот что запущен в ручную

Sergey TS
А я открыл документ и он не закрывает, тот что зап...

ты чужие документы хочешь закрывать, те которые не твоя программа открыла?

Sergey-TS Автор вопроса
Sergey TS
Он не закрывает, я уже проверил

using Microsoft.Office.Interop.Excel; using System.Diagnostics; var xApp = new Application(); var xWbs = xApp.Workbooks; var xWb = xWbs.Open(Path.Combine(AppContext.BaseDirectory, "t3.xlsx")); Console.WriteLine(xWb.Sheets.Count); xWb.Close(); xApp.Quit(); int count; do { count = Process.GetProcessesByName("excel.exe").Count(); Console.WriteLine($"{count} EXCEL.EXE found"); } while (count > 0); Console.WriteLine($"Press ENTER to exit."); Console.ReadLine();

Sergey-TS Автор вопроса
Andrii Kurdiumov
using Microsoft.Office.Interop.Excel; using System...

Спасибо. Возможно я чего-то не понимаю, но нормально ли что он пишет count = 0, но при этом процесс остается висеть

Sergey TS
screenshot Спасибо. Возможно я чего-то не понимаю, но нормаль...

using Microsoft.Office.Interop.Excel; using System.Diagnostics; using System.Runtime.InteropServices; var xApp = new Application(); var xWbs = xApp.Workbooks; var xWb = xWbs.Open(Path.Combine(AppContext.BaseDirectory, "t3.xlsx")); // Uncomment to keep hanging //Console.WriteLine(xWb.Sheets.Count); var sheets = xWb.Sheets; Console.WriteLine(sheets.Count); xWb.Close(); xApp.Quit(); Marshal.ReleaseComObject(sheets); Marshal.ReleaseComObject(xWb); Marshal.ReleaseComObject(xWbs); Marshal.ReleaseComObject(xApp); int count; do { count = Process.GetProcesses().Count(_ => _.ProcessName == "EXCEL"); Console.WriteLine($"{count} EXCEL.EXE found"); Thread.Sleep(1000); GC.Collect(); GC.WaitForPendingFinalizers(); } while (count > 0); Console.WriteLine($"Press ENTER to exit."); Console.ReadLine();

Sergey-TS Автор вопроса
Andrii Kurdiumov
using Microsoft.Office.Interop.Excel; using System...

Спасибо. Не знаю насколько оправдано пока оставляю так . По другому не работает. Надо искать значит

Sergey TS
screenshot Спасибо. Не знаю насколько оправдано пока оставляю...

Це COM. По іншому не буде. Цикл не обов‘язковий

Похожие вопросы

Обсуждают сегодня

а зачем этот вопрос для удаления из чата?
Mёdkinson Medvezhkin
63
Добрый день. Хочу сделать отрисовку по команде на панели. Почему-то рисуется только при втором вызове. С чем может быть связано, не подскажете? procedure TForm1.FormDblClick(...
Kirill Filippenok
20
Всем доброго дня! Подскажите может кто использовал связку Pagebuilder + Clientsetting. Сами параметры с типом pagebuilder в модуле Clientsetting работают нормально, можно такж...
Александр Добриков
12
А почему в си некоторые вещи работают с двойными кавычками некоторые с одинарными? Нельзя было все сделать с одними или чтоб работало с разными? например чтоб выводить строки ...
.
15
Всем привет! Нужен совет от опытных. Переношу свой проект с Делфи 10.2 Токио на Лазарус 3.2 установленный через инсталлятор fpcupdeluxe-x86_64-win64. При импортировании проект...
Дмитрий Завгородний
7
Эх кто-то пришел и весь праздник испортил :( You need complex FBX scene importing setup to change things on import? good luck with that. You need navigation and pathfinding? g...
Serg Gini
5
Всем привет! procedure TForm1.FormCreate(Sender: TObject); type TStartEnd = record S: Byte; E: Byte; end; var a, b: TStartEnd; begin {1} a.S := 1; {2} a.E := 2; ...
Руслан Михайлович
10
Всем привет!) я тут новенький и пытаюсь освоить evolution методом тыка. У меня при переходе между папками файлов выскакивают вот такие уведомления Можете подсказать как их от...
Диман Samoed
10
Всем привет! Подскажите. Я написал приложение на Delphi 10.2 Tokyo под Windows 10. И передо мной стал вопрос о том чтобы сделать это приложение кроссплатформенным (под Linux и...
Дмитрий Завгородний
24
Какого хера? /Sources/App/Modules/User/Models/UserLinkApple.swift:21:20: warning: stored property '_id' of 'Sendable'-conforming class 'UserLinkApple' is mutable @ID(...
Alexander Sherbakov
14
Карта сайта