Vba to kill excel

BraniBrani

6,57415 gold badges46 silver badges49 bronze badges

I think your problem is that it’s closing the document that calls the macro before sending the command to quit the application.

Your solution in that case is to not send a command to close the workbook. Instead, you could set the «Saved» state of the workbook to true, which would circumvent any messages about closing an unsaved book. Note: this does not save the workbook; it just makes it look like it’s saved.

ThisWorkbook.Saved = True

and then, right after

Application.Quit

answered Sep 2, 2010 at 16:00

I tried a certain sequence that seems to work as you can see below:

ThisWorkbook.Saved = True
Application.Quit
Application.ActiveWindow.Close SaveChanges:=False
ActiveWorkbook.Close SaveChanges:=False

You can try out

ThisWorkbook.Save
ThisWorkbook.Saved = True
Application.Quit

answered Mar 27, 2019 at 5:19

In my case, I needed to close just one excel window and not the entire application, so, I needed to tell which exact window to close, without saving it.

The following lines work just fine:

Sub test_t()
  Windows("yourfilename.xlsx").Activate
  ActiveWorkbook.Close SaveChanges:=False
End Sub

answered Jun 7, 2018 at 13:55

Sub button2_click()
'
' Button2_Click Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
    ActiveSheet.Shapes("Button 2").Select
    Selection.Characters.Text = "Logout"
    ActiveSheet.Shapes("Button 2").Select
    Selection.OnAction = "Button2_Click"
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Save
    Application.Quit
End Sub

Kill Residual Excel Process using VBA

Pressing Ctrl+* (asterisk) will select the «current region» — all contiguous cells in all directions.

Создаю объект Excel следующим образом:

ObjXlc = CreateObject(«Excel.Application»)

ObjXlc.Application.Workbooks.Open(Path)

Далее активирую нужную страницу,вставляю данные, сохраняю.

А вот убить процесс не получается. Пробовал

ObjXlc.close()

ObjXlc.quit()

ObjXlc=nothing

Excel продолжает висеть в процессах и умирает только когда закрываеш программу.

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

у меня пашет

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

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.Quit(false)

А это как?

xlApp.Quit(false)

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

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

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

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()

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

        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

— Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

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

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

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 писал(а):Ндя… код весьма странен… Почто такие извращения? Цель всего этого какая?

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

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

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

вот код:

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



   ''' <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



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

Спасибо.

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

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

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

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

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

вот так принудительно вызвать сборщик мусора:

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

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

   Public Overloads Sub Dispose()

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

      App = Nothing 'чистим переменные

      Doc = Nothing

      MySap = Nothing

      ' Инициировать очистку.

      ' Здесь наши объекты только помечаются

      ' как «свободные», а память не

      ' освобождается.

      GC.Collect()

      ' Подождать, пока отработают все

      ' деструкторы

      GC.WaitForPendingFinalizers()

      ' Еще раз запустить очистку – теперь

      ' память под наши объекты будет реально

      ' освобождена.

      GC.Collect()

      MyBase.Finalize()

   End Sub

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

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

lord0n писал(а):вот так принудительно вызвать сборщик мусора:
я вызываю его когда завершаю работу приложения, хотя говорят что принудительный вызов 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 тоже пытался использовать. Нет результата всё равно.

asharky

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

— Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

Sebas писал(а):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 висят до закрытия программы. И даже пару раз вот такая вот картинка выскочила:

asn писал(а):Создаю объект 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()… значит дописываем в ваш проэкт

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

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

добавляем

System.GC.Collect()

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

вот и всё.

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

ShadowTFT

ShadowTFT

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

— Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

Sebas писал(а):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

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