Правильное закрытие Excel в vbs

@Тормоз · Регистрация: 09.10.2019

Author24 — интернет-сервис помощи студентам

Здравствуйте!

На vbs надо открыть таблицу Excel, прочитать данные, обработать, и выйти.
Начал с простого - открытия и закрытия файла(таблицы).
И заметил, что хотя скрипт заканчивает работу, сам процесс EXCEL.EXE *32 остаётся в памяти. Причём, сколько раз запустишь скрипт, столько копий и останется.
Сам скрипт (то, что закоментировано, это различные варианты таки прекратить эту гнусную традицию):

Visual Basic

Set xls = CreateObject("Excel.Application")
Set oWorkBook = xls.workbooks.open(Filename,,True)              
 
If Err.Number <> 0 Then 
    MsgBox "Err.Description" & Err.Description
    Quit
End if
 
' oWorkBook.Close           
Set oWorkBook = Nothing 
' oWorkBook.Close           
'Set oWorkBook = Nothing    
' xls.Close
' Set oWorkBook = Nothing
' Set xls = Nothing
xls.Quit
'xls.Close

Подскажите, пожалуйста. На просторах нашёл только борьбу, но не рецепт.
Excel 2016.

I can · 24.03.2021, 15:02

Visual Basic

oWorkBook.Close,false           
Set oWorkBook = Nothing 
xls.Quit
Set xls = Nothing

Добавлено через 47 секунд

Сообщение от Тормоз

Quit

Случае ошибки у тебя происходит выход без закрытия приложения.

@Тормоз · 24.03.2021, 15:32 **[ТС]**

Спасибо, но не помогло.
В Диспетчере задач так и висел Excel, а при попытке закрыть принудительно сообщение:
Ошибка: Сбой при удалённом вызове процедуры
на строке:
oWorkBook.Close, False

Добавлено через 16 минут
Сделал закрытие так, и вроде всё получилось:

Visual Basic

xls.DisplayAlerts = False
oWorkBook.Close, False
Set oWorkBook = Nothing 
xls.Quit
Set xls = Nothing

I can · 24.03.2021, 15:38

Сообщение от Тормоз

xls.DisplayAlerts = False

Надеюсь, знаешь, что это значит?

@Тормоз · 25.03.2021, 07:53 **[ТС]**

Да.
Мне не надо сохранять исходный файл.

I can · 25.03.2021, 11:18

Сообщение от Тормоз

Да.
Мне не надо сохранять исходный файл.

Нет. Совсем не то.

@Punkt5 · 25.03.2021, 13:05

Тормоз Может так попробовать?

Visual Basic

Set xls = CreateObject("Excel.Application")
xls.visible = True ' Добби покажет открытый файл
Set oWorkBook = xls.workbooks.open(FullFileName,,True)              
 
wscript.Sleep 5000 'Подождем 5 секунд. Пусть хозяин увидит
 
oWorkBook.Close           'Закроем
xls.Quit ' Выйдем из Excel. Вот сейчас он пропадёт из панели задач.
Set oWorkBook = Nothing : Set xls = Nothing

FlasherX · 25.03.2021, 16:34

Сообщение от I can

oWorkBook.Close,false

Это что за синтаксис такой не vb-шный?

@Тормоз · 02.04.2021, 09:26 **[ТС]**

Сообщение от I can

Нет. Совсем не то.

Уточню, мне не надо сохранять исходный файл, поэтому мне не нужны предупреждения, и не нужен диалог с Excel
Извините за паузу, болел.

Сообщение от FlasherX

Это что за синтаксис такой не vb-шный?

Это vbs. Те же яйца, вид сбоку.

Сообщение от Punkt5

xls.visible = True ' Добби покажет открытый файл

не нужен диалог с Excel, всё должно быть тихо и без вопросов.

Всем спасибо за участие и соучастие, всем здоровья!

FlasherX · 02.04.2021, 11:29

Сообщение от Тормоз

Это vbs. Те же яйца, вид сбоку.

Какой ещё вид сбоку? Это ошибка и неверный синтаксис. Такое не будет работать на vb(a,s).

@Тормоз · 02.04.2021, 13:04 **[ТС]**

Работает же.

FlasherX · 02.04.2021, 13:11

Не верю. Должно выдать "Недопустимое число аргументов или присвоение значения свойства:".

@Тормоз · 02.04.2021, 13:14 **[ТС]**

Специально посмотрел в работающем коде:

Visual Basic

1	oWorkBook.Close, False

Добавлено через 48 секунд

Сообщение от FlasherX

Не верю. Должно выдать "Недопустимое число аргументов или присвоение значения свойства:".

Ничем помочь больше не могу, извините.

FlasherX · 02.04.2021, 13:22

Фантастика. Не знаю, как этот рудимент может не выдать ошибки. В любом случае , False тут делать нечего.

@Catstail · 01.05.2021, 16:23

https://docs.microsoft.com/ru-... book.close

FlasherX 6325 / 2752 / 1070 Регистрация: 06.06.2017 Сообщений: 9,351
	02.04.2021, 13:11	12
	Не верю. Должно выдать "Недопустимое число аргументов или присвоение значения свойства:". 0

I can help 4417 / 4073 / 809 Регистрация: 13.04.2015 Сообщений: 8,911
	24.03.2021, 15:38	4
	Сообщение от Тормоз xls.DisplayAlerts = False Надеюсь, знаешь, что это значит? 1

@Тормоз 4 / 4 / 1 Регистрация: 09.10.2019 Сообщений: 246
	25.03.2021, 07:53 [ТС]	5
	Да. Мне не надо сохранять исходный файл. 0

I can help 4417 / 4073 / 809 Регистрация: 13.04.2015 Сообщений: 8,911
	25.03.2021, 11:18	6
	Сообщение от Тормоз Да. Мне не надо сохранять исходный файл. Нет. Совсем не то. 1

FlasherX 6325 / 2752 / 1070 Регистрация: 06.06.2017 Сообщений: 9,351
	25.03.2021, 16:34	8
	Сообщение от I can oWorkBook.Close,false Это что за синтаксис такой не vb-шный? 1

@Тормоз 4 / 4 / 1 Регистрация: 09.10.2019 Сообщений: 246
	02.04.2021, 09:26 [ТС]	9
	Сообщение от I can Нет. Совсем не то. Уточню, мне не надо сохранять исходный файл, поэтому мне не нужны предупреждения, и не нужен диалог с Excel Извините за паузу, болел. Сообщение от FlasherX Это что за синтаксис такой не vb-шный? Это vbs. Те же яйца, вид сбоку. Сообщение от Punkt5 xls.visible = True ' Добби покажет открытый файл не нужен диалог с Excel, всё должно быть тихо и без вопросов. Всем спасибо за участие и соучастие, всем здоровья! 0

FlasherX 6325 / 2752 / 1070 Регистрация: 06.06.2017 Сообщений: 9,351
	02.04.2021, 11:29	10
	Сообщение от Тормоз Это vbs. Те же яйца, вид сбоку. Какой ещё вид сбоку? Это ошибка и неверный синтаксис. Такое не будет работать на vb(a,s). 1

@Тормоз 4 / 4 / 1 Регистрация: 09.10.2019 Сообщений: 246
	02.04.2021, 13:04 [ТС]	11
	Работает же. 0

FlasherX 6325 / 2752 / 1070 Регистрация: 06.06.2017 Сообщений: 9,351
	02.04.2021, 13:22	14
	Фантастика. Не знаю, как этот рудимент может не выдать ошибки. В любом случае `, False` тут делать нечего. 0

@Catstail Модератор 37291 / 20725 / 4272 Регистрация: 12.02.2012 Сообщений: 34,111 Записей в блоге: 14
	01.05.2021, 16:23	15
	https://docs.microsoft.com/ru-... book.close 0

Правильное закрытие Excel в vbs

Решение