Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытый файл Excel / 4 сообщений из 4, страница 1 из 1
01.10.2003, 18:38
    #32281174
kat
kat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытый файл Excel
Я открываю файл 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
| Ответить | Цитировать | Написать  
02.10.2003, 06:57
    #32281372
tpg
tpg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытый файл Excel
???
Код: 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
| Ответить | Цитировать | Написать  
12.11.2003, 10:31
    #32321048
kat
kat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытый файл Excel
tpg, спасибо. А зачем апдейтить экран, если у меня:
App.Visible = False
?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2003, 10:36
    #32321056
tpg
tpg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытый файл Excel
Не делай апдэйт...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытый файл Excel / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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