|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.08.2010, 22:18 | #1 |
Новичок
Джуниор
Регистрация: 16.08.2010
Сообщений: 2
|
Как принудительно сохранить в .xls
Здравствуйте умные люди, помогите подправить код для успешного сохранения из любой версии офиса:
filesaveName = Application.GetSaveAsFilename(Initi alFileName:="c:\Имя файла", _ fileFilter:="Excel (*.xls), *.xls", _ Title:="Куда сохранить ?") If filesaveName <> False Then NewBook.SaveAs Filename:=filesaveName MsgBox "Файл: " & filesaveName & " успешно сохранен !" ActiveWorkbook.Close это работает успешно на 2003 версии и на 2007 тоже сохраняет, только вот по умолчанию новые офисы сохраняют в xlsx формате а расшинренее остается старое, может какую проверку на версию организовать а потом сохранять. Нужно чтобы один человек запустил на 2003 нормально а другой на 2010 офисе тоже сохранил и потом успешно открыл файл.. Хоть намекните как это делается пожалуйста. Последний раз редактировалось Nicos; 16.08.2010 в 22:19. Причина: неправильно тему назвал ) |
16.08.2010, 22:53 | #2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Воэможно так
Код:
Анализ,обработка данных Недорого
|
17.08.2010, 22:03 | #3 |
Новичок
Джуниор
Регистрация: 16.08.2010
Сообщений: 2
|
Вот это круто действительно, спасибо большое, работает, я в восторге
и быстро ответили, благодарю ! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль.Программа "Верификация", "Кака бригадиру разделить заработанные деньги?".Сложные | Valik102 | Помощь студентам | 11 | 23.06.2009 15:30 |
Как принудительно перерисовать форму. | IliaIT | Общие вопросы Delphi | 2 | 23.04.2009 14:34 |
xls-> xls с измененными полями | falcon-x | Общие вопросы C/C++ | 1 | 22.01.2008 02:25 |
как присвоить значение ячейки R1C1 из 1.xls, допустим какой-нибудь любой ячейке из 2.xls ? | diabloskrk | Microsoft Office Excel | 3 | 08.10.2007 12:27 |