ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / окно Excel становится скрытым.
8 сообщений из 8, страница 1 из 1
окно Excel становится скрытым.
    #32931679
zz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zz
Участник
При работе с книгой Екселя из другого внешнего файла (Ворд, Аксесс) таким вот образом (например):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim xla As Excel.Application
Dim xlw As Excel.Workbook
Dim xls As Excel.Worksheet

Set xlw = GetObject("D:\My.xls")
Set xla = xlw.Parent
Set xls = xlw.Worksheets( 1 )
xls.Name = "MySheet"
xlw.Close True

после выполнения кода и последующего открытия файла My.xls рабочее окно становится скрытым. Приходится лезть в меню "Окно" - "Отобразить..."
Пользователи нервничают.
Как сие исправить?
...
Рейтинг: 0 / 0
24.02.2005, 16:14
| Ответить | Цитировать | Написать  
окно Excel становится скрытым.
    #32931783
ноль
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ноль
Участник
xla.visible=true
...
Рейтинг: 0 / 0
24.02.2005, 16:46
| Ответить | Цитировать | Написать  
окно Excel становится скрытым.
    #32932052
zz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zz
Участник
но-но!
Сия команда просто отображает окно Екселя как приложения.
Мне же надо:
1. Отработался код (удачно) например из Акссеса. В данном случае - переименование листа. Отработался скрытно, как и полагается.

2. Через некоторое время юзер открывает файл, в котором переименовывался лист. И ничего не видит, кроме серой безликой массы. Потому что основное окно с данными скрыто и отображается только после команды "Окно" - "Отобразить..."

Требуется, чтобы после преобразований в п. 1. юзер открыл файл и сразу узрел все без лишних телодвижений.
...
Рейтинг: 0 / 0
24.02.2005, 18:10
| Ответить | Цитировать | Написать  
окно Excel становится скрытым.
    #32932474
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
Код: plaintext
1.
2.
3.
xla.Quit
Set xlw = Nothing
Set xla = Nothing
Set xls = Nothing
...
Рейтинг: 0 / 0
25.02.2005, 08:18
| Ответить | Цитировать | Написать  
окно Excel становится скрытым.
    #32932537
ноль
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ноль
Участник
Ирча совершенно права.
zz, Вы не уточнили когда должен открываться файл. Если программно сразу после обработки, то достаточно отобразить окно приложения в нужный момент. Если ручками и позже, то при выходе из обработки нужно грохнуть висящее в памяти приложение.
...
Рейтинг: 0 / 0
25.02.2005, 09:14
| Ответить | Цитировать | Написать  
окно Excel становится скрытым.
    #32934234
zz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zz
Участник
Неправда ваша. Да вы сами попробуйте. Выполните этот код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim xla As Excel.Application
Dim xlw As Excel.Workbook
Dim xls As Excel.Worksheet

Set xlw = GetObject("D:\My.xls")
Set xla = xlw.Parent
Set xls = xlw.Worksheets( 1 )
xls.Name = "MySheet"
xlw.Close True
xla.Quit
Set xlw = Nothing
Set xla = Nothing
Set xls = Nothing
хоть из того же Ворда, а затем ручками откройте My.xls
...
Рейтинг: 0 / 0
25.02.2005, 17:19
| Ответить | Цитировать | Написать  
окно Excel становится скрытым.
    #32935690
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ирча
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim xla As Excel.Application
Dim xlw As Excel.Workbook
Dim xls As Excel.Worksheet

Set xlw = GetObject("D:\My.xls")
Set xla = xlw.Parent
Set xls = xlw.Worksheets( 1 )
xls.Name = "MySheet"
xlw.Windows("My.xls").Visible = True
xlw.Close True
xla.Quit
Set xlw = Nothing
Set xla = Nothing
Set xls = Nothing
...
Рейтинг: 0 / 0
28.02.2005, 08:18
| Ответить | Цитировать | Написать  
окно Excel становится скрытым.
    #32939863
vkle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkle
Участник
Разумнее было б
Код: plaintext
1.
2.
3.
4.
5.
............
Set xlw = Nothing
Set xls = Nothing
xlw.Close True
xla.Quit
Set xla = Nothing
...
Рейтинг: 0 / 0
01.03.2005, 21:03
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / окно Excel становится скрытым.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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