| Вопрос: Файл Excel | Добавлено: 04.09.06 17:22 |
Автор вопроса:  RAD
|
|
Подскажите плз - в этим кодом хотелось бы запретить открытие файла экселя повторно. При первом повторном открытии это срабатывает. Потом закрываю файлы экселя и пытаюсь опять открыть две, три, четыре копии - ВСЕ ОТКРЫВАЕТСЯ !!! ПОЧЕМУ?? Почему открытый файл не перехватывает For Each ?
iFileName = "Книга1.xls" For Each iFile In Application.Workbooks If iFileName = iFile.Name Then MsgBox "Файл открыт", , iFileName: Exit Sub End If Next MsgBox "Файл закрыт", , iFileName 'Если файл закрыт - то открываем его... 'Cоздаем объект excel Set objExcel = New excel.Application objExcel.Visible = True 'Открываем лист и выбираем пример расчета objExcel.Workbooks.Open App.Path & "Книга1.xls", True, False objExcel.Sheets("расчет").Select Set objExcel = Nothing |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  -АлександР- Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #1 | Добавлено: 04.09.06 19:46 |
|
Еу ты ж открываешь каждый раз новый excel.application^ Set objExcel = New excel.Application Вот он и открывается; попробуй:Set objExcel = createobject("excel.Application" По-моему так это делается.
 |
||
Страница: 1 |