|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.07.2011, 16:59 | #1 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
Как прописать программный ответ на диалоговые окна?
Здравствуйте!
пользовался поиском, но ответа на свой вопрос не нашёл, если не трудно подскажите, пожалуйста Суть в следующем: ежедневно получаю около сотни файлов xls для обработки. стандартные операции прописал макросами. Но мне приходят файлы Excel 5/95, поэтому постоянно приходится натыкаться на диалоговое окно с вопросом не желаю ли я сохранить файл в новой версии Excel (2003) Как прописать автоматический ответ на это сообщение в скрипте? Такая же проблема и скопированием после закрытия книг (спрашивает сохранить ли данные для последующей вставки) |
27.07.2011, 17:07 | #2 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
Думаю это поможет.
Просто сразу все фалы будут сохраняться в 2003 Excel ActiveWorkbook.SaveAs "D:\Book1.xls", 56
Заказать макрос можно на сайте http://excel4you.ru/
|
27.07.2011, 17:26 | #3 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
|
27.07.2011, 17:36 | #4 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
Можно взглянуть на код?
Заказать макрос можно на сайте http://excel4you.ru/
|
27.07.2011, 17:41 | #5 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
да не в коде дело, я создал книгу 95 и прописал в ней ваш код и он выдал ошибку
Код:
|
27.07.2011, 17:48 | #6 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
Напишите так
ThisWorkbook.SaveAs "C:\1CE66000" & ".xls", FileFormat:=xlNormal
Заказать макрос можно на сайте http://excel4you.ru/
|
27.07.2011, 17:56 | #7 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
Watcher_1, спасибо, тоже дошёл до этого
но это рождает туже проблему что я описывал, появляется диалогое окно "Файл уже существует на данном. Заменить?" как прописать, чтобы программа сама отвечала "Да" |
27.07.2011, 18:06 | #8 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
Тогда я думаю так
Application.DisplayAlerts = False ThisWorkbook.SaveAs "C:\1CE66000" & ".xls", FileFormat:=xlNormal
Заказать макрос можно на сайте http://excel4you.ru/
|
27.07.2011, 18:07 | #9 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ещё есть такое специализированное (правда не проверял...):
Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
27.07.2011, 18:13 | #10 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
Вот ведь Application.DisplayAlerts = False, совсем про него забыл по него, как все просто то. Спасибо за помощь, огромное, весь день мучался сэтой проблемой. вот что значит чайник
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Диалоговые окна. | AnnJoy | Помощь студентам | 0 | 15.06.2011 19:16 |
try-except Диалоговые окна ввода/вывода сообщений Типизированные файлы | Ko$ | Помощь студентам | 5 | 16.03.2011 12:26 |
Программа диалоговые окна | BaRSyk174 | Общие вопросы Delphi | 4 | 14.09.2009 21:53 |
Файлы и диалоговые окна | FeNiX_IU8 | Помощь студентам | 1 | 15.05.2009 20:38 |
Как зделать обычные диалоговые окна? | Editor | Общие вопросы Delphi | 1 | 03.05.2008 09:07 |