ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBScript и Excel (WorkBooks.Count всегда равен нулю)
2 сообщений из 2, страница 1 из 1
VBScript и Excel (WorkBooks.Count всегда равен нулю)
    #36779329
Diamond1309
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Diamond1309
Гость
создаю файл Script.vbs
пишу туда:
Dim ExcelApp
Dim Book, ExcelName
Set ExcelApp= CreateObject( "Excel.Application" )
If ExcelApp.WorkBooks.Count = 0 Then
Set Book = ExcelApp.WorkBooks.Add
Else
MsgBox "Count = " & ExcelApp.WorkBooks.Count
End If
ExcelApp.Visible=TRUE

При каждом запуске ExcelApp.WorkBooks.Count равен нулю, хотя имеются открытые книги Excel.
Что я делаю не правильно?
...
Рейтинг: 0 / 0
06.08.2010, 14:08
| Ответить | Цитировать | Написать  
VBScript и Excel (WorkBooks.Count всегда равен нулю)
    #36779336
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Diamond1309
> Что я делаю не правильно?

Каждый раз создаешь новый инстанс екселя. Пробуй сначала получить запущенный екземпляр ексела через GetObject,
если не будет запущенного, тогда открывай новый через CreateObject

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
06.08.2010, 14:11
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBScript и Excel (WorkBooks.Count всегда равен нулю)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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