Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.07.2011, 16:59   #1
Squarded
Пользователь
 
Регистрация: 23.07.2011
Сообщений: 20
По умолчанию Как прописать программный ответ на диалоговые окна?

Здравствуйте!
пользовался поиском, но ответа на свой вопрос не нашёл, если не трудно подскажите, пожалуйста

Суть в следующем:

ежедневно получаю около сотни файлов xls для обработки. стандартные операции прописал макросами. Но мне приходят файлы Excel 5/95, поэтому постоянно приходится натыкаться на диалоговое окно с вопросом не желаю ли я сохранить файл в новой версии Excel (2003)
Как прописать автоматический ответ на это сообщение в скрипте? Такая же проблема и скопированием после закрытия книг (спрашивает сохранить ли данные для последующей вставки)
Squarded вне форума Ответить с цитированием
Старый 27.07.2011, 17:07   #2
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Думаю это поможет.
Просто сразу все фалы будут сохраняться в 2003 Excel
ActiveWorkbook.SaveAs "D:\Book1.xls", 56
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума Ответить с цитированием
Старый 27.07.2011, 17:26   #3
Squarded
Пользователь
 
Регистрация: 23.07.2011
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Watcher_1 Посмотреть сообщение
Думаю это поможет.
Просто сразу все фалы будут сохраняться в 2003 Excel
ActiveWorkbook.SaveAs "D:\Book1.xls", 56
хм, не помогает, код выдает ошибку, но не пойму почему, 56 - это же формат 2003 Excel
Squarded вне форума Ответить с цитированием
Старый 27.07.2011, 17:36   #4
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Можно взглянуть на код?
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума Ответить с цитированием
Старый 27.07.2011, 17:41   #5
Squarded
Пользователь
 
Регистрация: 23.07.2011
Сообщений: 20
По умолчанию

да не в коде дело, я создал книгу 95 и прописал в ней ваш код и он выдал ошибку

Код:
ThisWorkbook.SaveAs "D:\1CE66000" & ".xls", FileFormat:=56
на такой вариант тоже, но я не пойму почему, синтаксически же всё верно
Squarded вне форума Ответить с цитированием
Старый 27.07.2011, 17:48   #6
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Напишите так
ThisWorkbook.SaveAs "C:\1CE66000" & ".xls", FileFormat:=xlNormal
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума Ответить с цитированием
Старый 27.07.2011, 17:56   #7
Squarded
Пользователь
 
Регистрация: 23.07.2011
Сообщений: 20
По умолчанию

Watcher_1, спасибо, тоже дошёл до этого
но это рождает туже проблему что я описывал, появляется диалогое окно "Файл уже существует на данном. Заменить?" как прописать, чтобы программа сама отвечала "Да"
Squarded вне форума Ответить с цитированием
Старый 27.07.2011, 18:06   #8
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Тогда я думаю так

Application.DisplayAlerts = False
ThisWorkbook.SaveAs "C:\1CE66000" & ".xls", FileFormat:=xlNormal
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума Ответить с цитированием
Старый 27.07.2011, 18:07   #9
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Ещё есть такое специализированное (правда не проверял...):
Код:
Application.AlertBeforeOverwriting = False
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 27.07.2011, 18:13   #10
Squarded
Пользователь
 
Регистрация: 23.07.2011
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Watcher_1 Посмотреть сообщение
Тогда я думаю так

Application.DisplayAlerts = False
ThisWorkbook.SaveAs "C:\1CE66000" & ".xls", FileFormat:=xlNormal
Вот ведь Application.DisplayAlerts = False, совсем про него забыл по него, как все просто то. Спасибо за помощь, огромное, весь день мучался сэтой проблемой. вот что значит чайник
Squarded вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Диалоговые окна. 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