ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как перебрать все книги Эксель?
10 сообщений из 10, страница 1 из 1
Как перебрать все книги Эксель?
    #37110771
Fixin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fixin
Участник
Хочу сделать скриптик для сохранения всех открытых Эксель-книг. Не получается.
Код: plaintext
1.
2.
3.
4.
5.
set Excel = CreateObject("Excel.Application")
WScript.Echo Excel.Workbooks.Count
    For Each wb In Excel.Workbooks
        wb.Save
    Next
...
Рейтинг: 0 / 0
11.02.2011, 10:53
| Ответить | Цитировать | Написать  
Как перебрать все книги Эксель?
    #37110806
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Fixin,

Вы хотите открытые книги перебрать ?
...
Рейтинг: 0 / 0
11.02.2011, 11:11
| Ответить | Цитировать | Написать  
Как перебрать все книги Эксель?
    #37110813
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_slan_
Участник
продолжу :)

тогда надо их открыть..
...
Рейтинг: 0 / 0
11.02.2011, 11:14
| Ответить | Цитировать | Написать  
Как перебрать все книги Эксель?
    #37110856
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Если хотите из сторонней программы перебрать УЖЕ открытые книги, то надо обращаться к уже запущенному приложению Excel, а не создавать новое:
Код: plaintext
1.
2.
3.
set Excel = GetObject(,"Excel.Application")
For Each wb In Excel.Workbooks
     wb.Save
Next
...
Рейтинг: 0 / 0
11.02.2011, 11:34
| Ответить | Цитировать | Написать  
Как перебрать все книги Эксель?
    #37112079
Fixin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fixin
Участник
The_PristЕсли хотите из сторонней программы перебрать УЖЕ открытые книги, то надо обращаться к уже запущенному приложению Excel, а не создавать новое:
Код: plaintext
1.
2.
3.
set Excel = GetObject(,"Excel.Application")
For Each wb In Excel.Workbooks
     wb.Save
Next


Да, уже открытые.
А вы уверены, что я получу существующее приложение? Ведь их может быть открыто несколько?
...
Рейтинг: 0 / 0
11.02.2011, 17:21
| Ответить | Цитировать | Написать  
Как перебрать все книги Эксель?
    #37112103
Fixin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fixin
Участник
Хотя как ни странно, но работает:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
'set Excel = CreateObject("Excel.Application")
set Excel = GetObject(,"Excel.Application")
ResName = "Saved:"
    For Each wb In Excel.Workbooks
	ResName = ResName & chr( 13 ) & chr( 10 ) & wb.Name 
        wb.Save
    Next

WScript.Echo ResName
...
Рейтинг: 0 / 0
11.02.2011, 17:26
| Ответить | Цитировать | Написать  
Как перебрать все книги Эксель?
    #37112104
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Fixin,

а попробовать религия не позволяет? Мой метод по крайней мере точно ОТКРЫТОЕ приложение получает. А Ваш метод - точно создает новое и ни одной книги, уже открытой - Вы через него не получите. Если у Вас несколько приложений открыто - тогда не знаю как Вам все перебрать, кроме как не через API окна опрашивать.
...
Рейтинг: 0 / 0
11.02.2011, 17:27
| Ответить | Цитировать | Написать  
Как перебрать все книги Эксель?
    #37112170
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Fixin,

конечно работает, вместо того чтобы сохранять книги в новом Excel, вы теперь сохраняете их в текущем.
Но у вас все равно будет проблема, если запущено несколько копий Excel.
...
Рейтинг: 0 / 0
11.02.2011, 17:48
| Ответить | Цитировать | Написать  
Как перебрать все книги Эксель?
    #37112620
Fixin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fixin
Участник
big-dukeFixin,

конечно работает, вместо того чтобы сохранять книги в новом Excel, вы теперь сохраняете их в текущем.
Но у вас все равно будет проблема, если запущено несколько копий Excel.

Нет, оно конечно работает. Но как быть если открыто несколько приложений Экселя, не знаю.
...
Рейтинг: 0 / 0
11.02.2011, 22:37
| Ответить | Цитировать | Написать  
Как перебрать все книги Эксель?
    #37112626
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Fixin,

ответ здесь
Поведение объектов GetObject и CreateObject приложений Office в процессе автоматизации
...
Рейтинг: 0 / 0
11.02.2011, 22:45
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как перебрать все книги Эксель?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37112626&tid=2177178]:
 0ms
get settings:
 10ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 146ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 205ms
total:  433ms
созд. / загр.: 433ms
x
x
Закрыть


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