Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вывести список открытых кин в excel!!!!! / 4 сообщений из 4, страница 1 из 1
18.09.2006, 12:40:10
    #33993608
scouti8
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывести список открытых кин в excel!!!!!
...
Рейтинг: 0 / 0
18.09.2006, 12:41:22
    #33993611
scouti8
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывести список открытых кин в excel!!!!!
...
Рейтинг: 0 / 0
18.09.2006, 15:30:03
    #33994351
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывести список открытых кин в excel!!!!!
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test()
    Dim wb As Workbook, i As Long
    For Each wb In Workbooks
        i = i +  1 
        ActiveSheet.Cells(i,  1 ) = wb.Name
    Next wb
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
18.09.2006, 15:34:19
    #33994366
Eslavnov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывести список открытых кин в excel!!!!!
for i = 1 to workbooks.count
cells(1, I ) = workbooks(i).name
next
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вывести список открытых кин в excel!!!!! / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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