Как убить процесс Excel

[asn]

Создаю объект Excel следующим образом:
ObjXlc = CreateObject("Excel.Application")
ObjXlc.Application.Workbooks.Open(Path)

Далее активирую нужную страницу,вставляю данные, сохраняю.
А вот убить процесс не получается. Пробовал
ObjXlc.close()
ObjXlc.quit()
ObjXlc=nothing
Excel продолжает висеть в процессах и умирает только когда закрываеш программу.

Что деляю не так?

[Nord777]

у меня пашет

Код: Выделить всё

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook

xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Add()
xlBook.Windows(1).Caption = "Tra-ta-ta"

'Make Excel visible
xlApp.Visible = True

Threading.Thread.Sleep(3000)
xlApp.Quit()

[asn]

Непрокатывает.
В процессах Excel все равно остается и уходит только после закрытия программы.

[Ramzes]

process.kill

[ANDLL]

xlApp.Quit(false)

[asn]

xlApp.Quit(false)

А это как?

[ANDLL]

вместо xlApp.Quit()

[asn]

xlApp.Quit(false)

Чего-то не получается, подчеркивает (False) как ошибку.

[Nord777]

так прокатывает

Код: Выделить всё

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook

xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Add()
xlBook.Windows(1).Caption = "Tra-ta-ta"

'Make Excel visible
xlApp.Visible = True

Threading.Thread.Sleep(3000)
xlApp.Quit()

xlApp = Nothing
xlBook = Nothing
GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()

[Ramzes]

Совсем забыл, я когда-то то-же спрашивал, г-н Sebas послал меня в сторону System.Reflection. Помниться мне это помогло

[Sebas]

Код: Выделить всё

        Dim e As Object = Nothing 'Excel.Application
        Dim b As Object = Nothing 'Excel.Workbook
        Dim s As Object = Nothing 'Excel.Worksheet

            e = CreateObject("Excel.Application") 'New Excel.Application
            b = e.Workbooks.Add
            s = b.Worksheets(1)

            b.Close()
            e.Quit()

        If s IsNot Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(s)
        End If
        If b IsNot Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(b)
        End If
        If e IsNot Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(e)
        End If

[asn]

Спасибо всем, надавали советов просто кучу. Долгими усилиями вроде получилось.

[asharky]

Какая-то ерунда у меня

Код: Выделить всё

Module MyModule

   Sub main()

      'Dim th As Threading.Thread
      'th = New Threading.Thread(AddressOf startExcel)
      'th.IsBackground = True
      'th.Start()
      'th.Join()
      'th = Nothing

      Dim cE As New sExcel

      cE.start()
      cE = Nothing
      Console.WriteLine("Останов")

      'GC.Collect()
      'GC.WaitForPendingFinalizers()
      'GC.Collect()

      Stop

   End Sub

   Sub startExcel()

      Dim e As Object = Nothing 'Excel.Application
      Dim b As Object = Nothing 'Excel.Workbook
      Dim s As Object = Nothing 'Excel.Worksheet

      e = CreateObject("Excel.Application") 'New Excel.Application
      b = e.Workbooks.Add
      s = b.Worksheets(1)

      b.Close()
      e.Quit()

      'If s IsNot Nothing Then
      '   System.Runtime.InteropServices.Marshal.ReleaseComObject(s)
      'End If
      'If b IsNot Nothing Then
      '   System.Runtime.InteropServices.Marshal.ReleaseComObject(b)
      'End If
      'If e IsNot Nothing Then
      '   System.Runtime.InteropServices.Marshal.ReleaseComObject(e)
      'End If

   End Sub

   Class sExcel

      Implements IDisposable

      Private e As Object = Nothing 'Excel.Application
      Private b As Object = Nothing 'Excel.Workbook
      Private s As Object = Nothing 'Excel.Worksheet

      '''<summary>Процедура уничтожения экземпляра класса</summary>
      Private Sub Dispose() Implements IDisposable.Dispose

         Me.Dispose()

         If s IsNot Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(s)
         End If
         If b IsNot Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(b)
         End If
         If e IsNot Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(e)
         End If

      End Sub   ' End Dispose()

      Sub start()

         e = CreateObject("Excel.Application") 'New Excel.Application
         b = e.Workbooks.Add
         s = b.Worksheets(1)

         b.Close()
         e.Quit()

      End Sub

   End Class

End Module

Всяко-разно пытался, и через поток в т.ч., но на Stop в Main(), если не использовать GC, процесс EXCEL.EXE всё ещё висит в памяти. Исчезает только после полного завершения программы. (Не компилил! В отладочном режиме!)

Что я сделал не так? Что не понимаю? Талмуды читал тут: http://www.microsoft.com/Rus/Msdn/publish/articles/MenuButton.mspx

[Viper]

Ндя... код весьма странен... Почто такие извращения? Цель всего этого какая?

[asharky]

Ндя... код весьма странен... Почто такие извращения? Цель всего этого какая?

Код тестовый - не для работы, понятное дело. Задача: загрузить EXCEL.EXE и попытаться его корректно выгрузить, не выходя из программы и не привлекая GC. Но не получается Процесс EXCEL.EXE в памяти остается на не определенное время, если не привлекать GC.

На самом деле у меня несколько другая задача решается: прицепить вот это http://www.sls.ru/products/net/activesklad.html под .VB.NET. Но там ещё хуже всё. Разработчики вообще под .NET не работают и помочь ниче не могут. Ну а с EXCEL я вожусь чтобы разобраться с взаимодействием между .NET и COM.

[lord0n]

я в свое время писал специальную процедуру для убийства ком объекта (не экселя, но тоже очень похож)
вот код:

Код: Выделить всё


   ''' <summary>
   ''' Ищет процесс Сапериона порожденный этой библиотекой и если находит, то убивает его
   ''' </summary>
   ''' <remarks></remarks>
   Private Sub KillApp()
      Dim Proc As Process() = Process.GetProcessesByName("ARCHIE32")
      Dim x As Integer
      If Not Proc Is Nothing Then
         For x = 0 To Proc.Length - 1
            If Proc(x).MainWindowTitle = "" Then 'в моем случае если заголовок окна был пустым, то процесс порождала моя программа
               Proc(x).Kill()
            End If
         Next
      End If
   End Sub


[asharky]

я в свое время писал специальную процедуру для убийства ком объекта (не экселя, но тоже очень похож)

Спасибо.

Но это просто кошмар какой-то получается Неужели средствами .NET вообще ничего поделать не возможно?

Но ведь при полном окончании программы GC как-то чистит всё помеченное? Как бы это сделать не выходя из программы? Ну в самом деле: не батники же писать в планировщике?

Эх Билли, Билли

[lord0n]

Ну я так понимаю чтобы нормально завершался процесс нужно использовать не CreateObject, а ком интерапт или раннее связывание.
Я его правда не разу не использовал: очень уж длинные команды получаются по сравнению CreateObject

вот так принудительно вызвать сборщик мусора:
я вызываю его когда завершаю работу приложения, хотя говорят что принудительный вызов GC плохой тон.

Код: Выделить всё


   Public Overloads Sub Dispose()
      KillApp() 'грохаем саперион (это предыдущая функция для убийства ком объекта)

      App = Nothing 'чистим переменные
      Doc = Nothing
      MySap = Nothing
      ' Инициировать очистку.
      ' Здесь наши объекты только помечаются
      ' как «свободные», а память не
      ' освобождается.
      GC.Collect()
      ' Подождать, пока отработают все
      ' деструкторы
      GC.WaitForPendingFinalizers()
      ' Еще раз запустить очистку – теперь
      ' память под наши объекты будет реально
      ' освобождена.
      GC.Collect()
      MyBase.Finalize()
   End Sub


[asharky]

Ну я так понимаю чтобы нормально завершался процесс нужно использовать не CreateObject, а ком интерапт или раннее связывание. Я его правда не разу не использовал: очень уж длинные команды получаются по сравнению CreateObject

Всяко-разно пытался. Толку нет: пока программа не закроется, процесс висит в памяти.

вот так принудительно вызвать сборщик мусора:
я вызываю его когда завершаю работу приложения, хотя говорят что принудительный вызов GC плохой тон.

Код: Выделить всё

   Public Overloads Sub Dispose()
      KillApp() 'грохаем саперион (это предыдущая функция для убийства ком объекта)

      App = Nothing 'чистим переменные
      Doc = Nothing
      MySap = Nothing
      ' Инициировать очистку.
      ' Здесь наши объекты только помечаются
      ' как «свободные», а память не
      ' освобождается.
      GC.Collect()
      ' Подождать, пока отработают все
      ' деструкторы
      GC.WaitForPendingFinalizers()
      ' Еще раз запустить очистку – теперь
      ' память под наши объекты будет реально
      ' освобождена.
      GC.Collect()
      MyBase.Finalize()
   End Sub


У меня в моём коде (выше) есть закоментированный:

Код: Выделить всё

                'If s IsNot Nothing Then
                '       System.Runtime.InteropServices.Marshal.ReleaseComObject(s)
                'End If
                'If b IsNot Nothing Then
                '       System.Runtime.InteropServices.Marshal.ReleaseComObject(b)
                'End If
                'If e IsNot Nothing Then
                '       System.Runtime.InteropServices.Marshal.ReleaseComObject(e)
                'End If

Из этого можно предположить, что я GC тоже пытался использовать. Нет результата всё равно.

[lord0n]

а тебе так критично чтобы ексель убивался во время выполнения программы?

[Sebas]

asharky

Так у Тебя класс не диспозится))))

[RayShade]

They killed Excel! Bastards!

[asharky]

asharky

Так у Тебя класс не диспозится))))

MyClass.Dispose() не вызван, в смысле?

Вот переделал:

Код: Выделить всё

Module MyModule

Sub main()

   For i As Integer = 1 To 10

      Dim cE1 As New sExcel
      cE1.start()
      cE1 = Nothing

      Dim cE2 As New sExcel
      cE2.start()
      cE2 = Nothing

      Dim cE3 As New sExcel
      cE3.start()
      cE3 = Nothing

      Dim cE4 As New sExcel
      cE4.start()
      cE4 = Nothing

      Dim cE5 As New sExcel
      cE5.start()
      cE5 = Nothing


      Console.WriteLine("Цикл № " & i.ToString)

      GC.Collect()
      GC.WaitForPendingFinalizers()
      GC.Collect()

   Next

   Stop

End Sub

Sub startExcel()

   Dim e As Object = Nothing 'Excel.Application
   Dim b As Object = Nothing 'Excel.Workbook
   Dim s As Object = Nothing 'Excel.Worksheet

   e = CreateObject("Excel.Application") 'New Excel.Application
   b = e.Workbooks.Add
   s = b.Worksheets(1)

   b.Close()
   e.Quit()

End Sub

Class sExcel

   Implements IDisposable

   Private e As Object = Nothing 'Excel.Application
   Private b As Object = Nothing 'Excel.Workbook
   Private s As Object = Nothing 'Excel.Worksheet

   '''<summary>Процедура уничтожения экземпляра класса</summary>
   Private Sub Dispose() Implements IDisposable.Dispose

      If s IsNot Nothing Then
         System.Runtime.InteropServices.Marshal.ReleaseComObject(s)
      End If
      If b IsNot Nothing Then
         System.Runtime.InteropServices.Marshal.ReleaseComObject(b)
      End If
      If e IsNot Nothing Then
         System.Runtime.InteropServices.Marshal.ReleaseComObject(e)
      End If

      MyClass.Dispose()

   End Sub   ' End Dispose()

   Sub start()

      e = CreateObject("Excel.Application") 'New Excel.Application
      b = e.Workbooks.Add
      s = b.Worksheets(1)

      b.Close()
      e.Quit()

   End Sub

End Class

End Module

С закоментаренными:

Код: Выделить всё

   'GC.Collect()
   'GC.WaitForPendingFinalizers()
   'GC.Collect()

получается фигня Процессы EXCEL.EXE висят до закрытия программы. И даже пару раз вот такая вот картинка выскочила:

[asharky]

Проблему решил. Она вообще не в той плоскости была у меня.

[ShadowTFT]

Создаю объект Excel следующим образом:
ObjXlc = CreateObject("Excel.Application")
ObjXlc.Application.Workbooks.Open(Path)

Далее активирую нужную страницу,вставляю данные, сохраняю.
А вот убить процесс не получается. Пробовал
ObjXlc.close()
ObjXlc.quit()
ObjXlc=nothing
Excel продолжает висеть в процессах и умирает только когда закрываеш программу.

Что деляю не так?

Молодой человек,объясняю ситуацию... Обращение к Excel у вас идет через Com Reference, их приимущество и недостаток состоит в том, что пока не будет нофинговона последняя ссылка на данный объект, объект не завершит своий процесс жизнедеятельности. Что делать?
В принципе ваше решение ObjXlc=nothing правильно НО!!!!!
В VB.Net очистка занятие для GC (сборщика мусора). Запуск его происходит произвольно. НО!!!! Мы можем запустить его руками, его так и зовут GC нах-ся он в пространстве имен System и его метод очистки зовут Collect()... значит дописываем в ваш проэкт

Создаю объект Excel следующим образом:
ObjXlc = CreateObject("Excel.Application")
ObjXlc.Application.Workbooks.Open(Path)

Далее активирую нужную страницу,вставляю данные, сохраняю.
А вот убить процесс не получается. Пробовал
ObjXlc.close()
ObjXlc.quit()
ObjXlc=nothing

добавляем
System.GC.Collect()

нажимаем три ласковых кнопки и смотрим результат))
вот и всё.

Приятного вам времяпрепровождения.
ShadowTFT

[Sebas]

ShadowTFT

Уж сколько говорено, System.GC.Collect() нехорошо. Ибо делать надо 2 раза. + времени может уйти до... нескольких минут

[ShadowTFT]

ShadowTFT

Уж сколько говорено, System.GC.Collect() нехорошо. Ибо делать надо 2 раза. + времени может уйти до... нескольких минут

Ну да ладно GC быстро работает, просто её не надо ждать, её надо вызвать в ручную Collect и будет вам счастье..
Ок, не хотите пользовать GC по пользуйте кострукцию With!

Код: Выделить всё

With [object]
[statements]
end with

поясняю на примере

Код: Выделить всё

With Label1
         .text = "Аргументов может быть несколько"
         .width = 300
end with

И после этого Самого "end with" все ссылки на объект сами чистятся, если мне не изменяет пампять...

В вашем случае, конструкция будет чуть сложнее:

Код: Выделить всё

With ExcelApplication.workbook(путь).Sheet(идекс листа)
     for y = 1 to 10
          for x = 1 to 100         
              str(x,y)= .cells(x,y).value
          next
     next
end with

что-то вроде того..

[ShadowTFT]

Да и вообще, если по хорошему, можно просто создать ещё поток(Благо в net'е есть BackgroundWorker) и положить всё в этот поток. Как только поток закончит своё грязное дело, он закроется и все ссылки не просто Nothing'нуться, а канут в никуда.. Просто с Com компонентами всегда тяжко, не спорю, комфорт, но вот только процессы остаются весеть и Com объекты, а конкретнее Excel точно, очень медленно работаю. Я в своё время просто написал себе класс с DataTabl'ами, и читал Excel без Com'а.. Но вот к сожалению, он куда-то пропал...((