| Вопрос: Как открыть-активировать книгу ?. | Добавлено: 11.11.03 11:58 |
Автор вопроса:  SLV
|
|
Необходимо сносить данные в Excel файл. Если он открыт работает - Windows("c.xls").Activate Если его необходимо открыть - Workbooks.Open FileName:="c.xls" Как написать универсальную процедуру, чтобы диалоговое окно не всплывало?
|
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  bird ICQ: 40490794 Вопросов: 0 Ответов: 11 |
Профиль | | #1 | Добавлено: 15.11.03 13:16 |
|
Dim xlBook As Excel.Workbook For Each xlBook In Excel.Application.Workbooks ' Display the name of each workbook. MsgBox xlBook.FullName Next xlBook Дальше думаю разберешься сам |
||
|
Номер ответа: 2 Автор ответа: dedtolyaВопросов: 0 Ответов: 39 |
Профиль | | #2 | Добавлено: 15.11.03 14:07 |
|
On Error Next Workbooks.Open FileName:="c.xls" On Error GoTo 0 Успехов dedtolya |
||
|
Номер ответа: 3 Автор ответа: SLV Вопросов: 4 Ответов: 10 |
Профиль | | #3 | Добавлено: 24.11.03 10:34 |
|
dedrolya, спасибо работает. Активирует книгу если открыта (без заморочек), открывает книгу если не открыта и выдает диалоговое окно - файл c.xls уже открыт, повторное открытие приведет к потере выполненных изменений. Открыть c.xls ? Здесь как-то можно имитировать нажатие кнопки НЕТ, чтобы окно не всплывало вообще ?
|
||
|
Номер ответа: 4 Автор ответа: dedtolyaВопросов: 0 Ответов: 39 |
Профиль | | #4 | Добавлено: 24.11.03 20:01 |
|
Application.DisplayAlerts = False dedtolya |
||
|
Номер ответа: 5 Автор ответа: SLVВопросов: 4 Ответов: 10 |
Профиль | | #5 | Добавлено: 25.11.03 09:43 |
|
ЗАРАБОТАЛО !!! Гениально, спасибо всем. |
||
Страница: 1 |