![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
![]()
Здравствуйте!
пользовался поиском, но ответа на свой вопрос не нашёл, если не трудно подскажите, пожалуйста Суть в следующем: ежедневно получаю около сотни файлов xls для обработки. стандартные операции прописал макросами. Но мне приходят файлы Excel 5/95, поэтому постоянно приходится натыкаться на диалоговое окно с вопросом не желаю ли я сохранить файл в новой версии Excel (2003) Как прописать автоматический ответ на это сообщение в скрипте? Такая же проблема и скопированием после закрытия книг (спрашивает сохранить ли данные для последующей вставки) |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
![]()
Думаю это поможет.
Просто сразу все фалы будут сохраняться в 2003 Excel ActiveWorkbook.SaveAs "D:\Book1.xls", 56
Заказать макрос можно на сайте http://excel4you.ru/
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
![]() |
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
![]()
Можно взглянуть на код?
Заказать макрос можно на сайте http://excel4you.ru/
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
![]()
да не в коде дело, я создал книгу 95 и прописал в ней ваш код и он выдал ошибку
Код:
|
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
![]()
Напишите так
ThisWorkbook.SaveAs "C:\1CE66000" & ".xls", FileFormat:=xlNormal
Заказать макрос можно на сайте http://excel4you.ru/
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 23.07.2011
Сообщений: 20
|
![]()
Watcher_1, спасибо, тоже дошёл до этого
но это рождает туже проблему что я описывал, появляется диалогое окно "Файл уже существует на данном. Заменить?" как прописать, чтобы программа сама отвечала "Да" |
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
![]()
Тогда я думаю так
Application.DisplayAlerts = False ThisWorkbook.SaveAs "C:\1CE66000" & ".xls", FileFormat:=xlNormal
Заказать макрос можно на сайте http://excel4you.ru/
|
![]() |
![]() |
![]() |
#9 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,170
|
![]()
Ещё есть такое специализированное (правда не проверял...):
Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
![]() |
![]() |
![]() |
#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 |