powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытый файл Excel
4 сообщений из 4, страница 1 из 1
Открытый файл Excel
    #32281174
kat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kat
Гость
Я открываю файл Excel (spravka.xls), помещаю в него всякую инфу, а потом сохраняю под другим именем (spravka_new). Но исходный файл оказывается как бы программно незакрытым (в процессах висит Excel.exe, а если открыть spravka_new, то потом обязательно спросит, сохранять ли изменения в spravka).
Код: plaintext
1.
2.
3.
4.
5.
6.
Set App = New Excel.Application
App.Workbooks.Open  "C:\Programming\spravka.xls" 
App.Visible = False
Set sApp = App.Worksheets( "Лист1" )
...
sApp.SaveAs ( "C:\spravka_new.xls" )
App.Quit

Скажите, как в проге указать, что закрыть надо не только spravka_new, но и spravka (без сохранения).
...
Рейтинг: 0 / 0
Открытый файл Excel
    #32281372
Фотография tpg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
???
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
App.DisplayAlerts = False 'выключаем предупреждения
.
.
.
App.ActiveWorkbook.Close False 'закрываем активную книгу
App.ScreenUpdating = True 'апдэйтим экран
App.Quit 'закрываем эксель
Set App = Nothing 'освобождаем объект
DoEvents 'даем поработать системе
...
Рейтинг: 0 / 0
Открытый файл Excel
    #32321048
kat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kat
Гость
tpg, спасибо. А зачем апдейтить экран, если у меня:
App.Visible = False
?
...
Рейтинг: 0 / 0
Открытый файл Excel
    #32321056
Фотография tpg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не делай апдэйт...
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытый файл Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]