Отправляет email-рассылки с помощью сервиса Sendsay

Уважаемые,

Как получить в таблице следующие значения:
Имя листа
Имя файла
Количество листов в файле
Не могу найти подобные функции в Help

С уважением ко всем
Сергей
Написать модератору: crimeanho***@m*****.ru
Архив: http://subscribe.ru/archive/comp.soft.others.word
Подписаться:
mailto:comp.soft.others.word-sub@subscribe.ru
Подписчиков: 1390; Номер выпуска: 52

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.others.word-list@subscribe.ru
Отписаться: mailto:comp.soft.others.word--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Wed, 11 Feb 2004 14:36:03 +0500 (#77513)

 

Ответы:

*****
Dim i As Integer
For i = 1 To Sheets.Count
MsgBox Application.Sheets(i).Name
Next i

*****
Application.ActiveWorkbook.Name

*****
Application.Sheets.Count

С уважением,
Борис Сурин, surin_***@m*****.ru
Написать модератору: crimeanho***@m*****.ru
Архив: http://subscribe.ru/archive/comp.soft.others.word
Подписаться:
mailto:comp.soft.others.word-sub@subscribe.ru
Подписчиков: 1390; Номер выпуска: 53

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.others.word-list@subscribe.ru
Отписаться: mailto:comp.soft.others.word--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Wed, 11 Feb 2004 15:57:51 +0300 (#77724)