| Вопрос: Получить имена открытых файлов | Добавлено: 31.08.05 16:00 |
Автор вопроса:  ДенисЧ
|
|
Подскажите как получить имена всех открытых файлов Excel.
Нужно увидеть список всех файлов, в том числе и hidden, а не только nonhidden. Если это конечно возможно. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  ionux ICQ: 327420631 Вопросов: 10 Ответов: 41 |
Web-сайт: Профиль | | #1 | Добавлено: 02.09.05 13:05 |
|
А google зачем?
http://microsoft.ru/offext/developers/materials/material.aspx?id=62 |
||
|
Номер ответа: 2 Автор ответа: ДенисЧВопросов: 25 Ответов: 32 |
Профиль | | #2 | Добавлено: 06.09.05 10:43 |
|
Да не в этом дело. Есть прога и в ней хочу получить все имена запущенных файлов Excel. Пишу:
xlApp = GetObject(, "Excel.Application" 
db = xlApp.Workbooks.Count значение db не соответствует количеству открытых файлов (как оказывается потом - некоторые не видит) xlApp.Workbooks.Add() 'созданю новую книгу sbn = xlApp.ActiveWorkbook.name ssn = xlApp.Workbooks(sbn).ActiveSheet.name RTB1.Text = sbn ReDim st(0, 0) ne = 0 For ri = 1 To cn www = xlApp.Workbooks(ri).Name и пытаюсь туда написать имена файлов - пишет тока те которые увидела (когда как то 1 то 3 раз на раз не приходится) If www <> "" And www <> sbn Then xlApp.Workbooks(sbn).Worksheets(ssn).Cells(ri, 2).Value = www End If Next Чё делать? |
||
|
Номер ответа: 3 Автор ответа: ДенисЧВопросов: 25 Ответов: 32 |
Профиль | | #3 | Добавлено: 06.09.05 10:45 |
|
Да пардон cn - количество процессов Excel пробовал и db без разницы |
||
Страница: 1 |