Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / окно Excel становится скрытым. / 8 сообщений из 8, страница 1 из 1
24.02.2005, 16:14
    #32931679
zz
zz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
окно Excel становится скрытым.
При работе с книгой Екселя из другого внешнего файла (Ворд, Аксесс) таким вот образом (например):
Код: 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:46
    #32931783
ноль
ноль
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
окно Excel становится скрытым.
xla.visible=true
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2005, 18:10
    #32932052
zz
zz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
окно Excel становится скрытым.
но-но!
Сия команда просто отображает окно Екселя как приложения.
Мне же надо:
1. Отработался код (удачно) например из Акссеса. В данном случае - переименование листа. Отработался скрытно, как и полагается.

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

Требуется, чтобы после преобразований в п. 1. юзер открыл файл и сразу узрел все без лишних телодвижений.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2005, 08:18
    #32932474
Ирча
Ирча
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
окно Excel становится скрытым.
Код: plaintext
1.
2.
3.
xla.Quit
Set xlw = Nothing
Set xla = Nothing
Set xls = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2005, 09:14
    #32932537
ноль
ноль
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
окно Excel становится скрытым.
Ирча совершенно права.
zz, Вы не уточнили когда должен открываться файл. Если программно сразу после обработки, то достаточно отобразить окно приложения в нужный момент. Если ручками и позже, то при выходе из обработки нужно грохнуть висящее в памяти приложение.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2005, 17:19
    #32934234
zz
zz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
окно Excel становится скрытым.
Неправда ваша. Да вы сами попробуйте. Выполните этот код
Код: 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
| Ответить | Цитировать | Написать  
28.02.2005, 08:18
    #32935690
Ирча
Ирча
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
окно Excel становится скрытым.
Код: 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
| Ответить | Цитировать | Написать  
01.03.2005, 21:03
    #32939863
vkle
vkle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
окно Excel становится скрытым.
Разумнее было б
Код: plaintext
1.
2.
3.
4.
5.
............
Set xlw = Nothing
Set xls = Nothing
xlw.Close True
xla.Quit
Set xla = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / окно Excel становится скрытым. / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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