Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Как нажать на кнопку или....
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
kafka kafka вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 02.02.2006
По умолчанию Как нажать на кнопку или.... - 02.02.2006, 21:22

Ребята помогите плиз.
Я вообще не умею программировать, но как-то из положения выйти надо.
Ситуация:
1. из Access макросом в Excel сохраняется несколько файлов с данными (240 штук);
2. файлы сохраняются в старую версию Excel (5-7), т.к. в таком виде они получаются меньше, чем если преобразовывать в 8-10;
3. в Excel`е задается макрос: открыть файл, привести в нужный вид и закрыть файл;
4. на этапе "закрыть файл" возникает табличка "преобразовать файл в новую версию?" и надо нажать "ок" - в таком случае вес файла не увеличивается.

Вопрос: как этого избежать?
Т.е. как сразу в Excel`e задать преобразование файла в новый формат или программно нажать на "Ок".
Надеюсь на понимание и помощь.
Ольга.
Ответить с цитированием
  (#2 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 02.02.2006, 22:38

Можно попробовать несколько вариантов :
1. Предварительно установить нужный формат сохранения рабочей книги. Для этого, в меню Сервис выберите команду Параметры и в появившемся стандартном диалоговом окне выделите закладку Переход. В списке Сохранять файлы Excel как : выберите нужный элемент списка и нажмите кнопку OK.
Но это изменение коснётся всех рабочих книг, которые Вы в дальнейшем будете сохранять.
2. Менять формат перед сохранением рабочей книги, а затем всё возвращать на круги своя.
Код:
With Application
     iDefaultFormat = .DefaultSaveFormat
     .DefaultSaveFormat = xlExcel5
      ' Здесь должно быть сохранение рабочей книги
     .DefaultSaveFormat = iDefaultFormat
End With
3. Вместо обычного сохранения .Save использовать метод .SaveAs и явно указать нужный формат, например :
Код:
ThisWorkbook.SaveAs FileName:="Report.xls", FileFormat:=xlExcel5
P.S. Большинство подобных сообщений можно избежать, если использовать :
Код:
With Application
     .DisplayAlerts = False
      ' Здесь должен быть Ваш код
     .DisplayAlerts = True
End With

' или

Application.DisplayAlerts = False
' Здесь должен быть Ваш код
Application.DisplayAlerts = True
Ответить с цитированием
  (#3 (permalink)) Старый
kafka kafka вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 02.02.2006
По умолчанию 03.02.2006, 11:47

Спасибо за помощь, все работает
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
При запуске компьютер просит нажать F1 katsiaruna Любые вопросы от новичков 7 21.12.2010 11:00
При загрузке просит нажать Shift+F10 Михан Любые вопросы от новичков 3 21.10.2010 17:53
Как нажать на кнопку и закрыть форму St0rMiK C++ Builder 4 06.11.2006 17:04
Как программно нажать клавишу клавиатуры в любой программе Devill C++ Builder 11 04.06.2006 00:26
Как нажать клавишу для определенного окна devel0per WinAPI 10 03.04.2006 16:40
Как из программы нажать на клавишу в окне чужой программе Night's_bird Visual C++ 4 03.11.2005 17:46
Массив TVariant переменных или как нажать Submit на HTML creater C++ Builder 0 26.04.2005 10:22
TreeView, Как программно нажать на пункт creater C++ Builder 1 25.04.2005 18:27
Как программно нажать кнопку в С++ imported_AlterEgo Visual C++ 1 26.01.2005 14:04
Как нажать на определённую кнопку в определённом окне DENIS451 C++ Builder 8 24.05.2004 11:26
Как заполнить форму и нажать на ней отправить программно Anonymous Delphi 5 12.01.2004 23:38
Как программно нажать Alt+Enter или Развернуть консоль на по ~berkut WinAPI 4 16.07.2003 21:08



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов