Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

Автор Тема: Сохранение формы без макросов с именем из нескольких ячеек  (Прочитано 220 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Crysi

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 4

Добрый день, форумчане.

Прошу помощи знатоков. Есть необходимость сохранять заполненную таблицу с именем из ячеек, и при всем при этом чтоб таблица была без макросов и весила минимально. С созданием имени из ячеек вроде разобрался и допилил один макрос (найден на просторах интернета), но при открытии сохраненного файла выскакивает ошибка "The file format and extension of "имя файла" don't match. The file could be corrupted or unsafe. Unless you trust its source, don't open it." и созданая кнопка (можно увидеть в прикрепленном примере) тоже отображается в вновь созданом файле.
Прошу помощи допилить макрос либо возможно есть альтернатива - подсказать ее и помочь разобраться как оно работает, т.е. дать расшифровку действий в макросе, если это не задрунит конечно же.
С VBA только начинаю знакомиться, опыта в программровании нет, так что читаю форумы, паралельно смотрю ролики основ.

Заранее спасибо.
Записан

Crysi

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 4

Еще раз добрый вечер, вроде бы как разобрался, как удалять не нужные кнопки и очищать от формул, если что не правильно, пожалуйста подскажите как улучшить.

"ActiveSheet.Shapes("Button X").Delete" где Х это номер нашей конкретной кнопки, его можно посмотреть при выделении кнопки в левом верхнем углу.
 
"ActiveWorkbook.SaveAs Filename, xlWorkbookNormal" сохраняем файл под заданным именем в формате Excel 2003

"ActiveWorkbook.Selection.SpecialCells(xlFormulas).ClearContents" эта часть кода удаляет все формулы из книги, если это необходимо.
       
Записан

boa

  • Глобальный модератор
  • Постоялец
  • *****
  • Уважение: +26/-0
  • Оффлайн Оффлайн
  • Сообщений: 472
  • Доброта спасет мир...

Здравствуйте, Crysi,

"The file format and extension of "имя файла" don't match. The file could be corrupted or unsafe. Unless you trust its source, don't open it."
так как вы при сохранении файла не указали явный формат файла, могу догадываться, что это "xlExcel8, 56, Excel 97-2003 Workbook, * .xls".
ActiveWorkbook.SaveAs NewFileNameNewFileExt = ".xls"Excel сохранил файл в формате, установленном по умолчанию в настройках Приложения, не зависимо от расширения(указанного в имени) сохраняемого файла.
Укажите Приложению явно, что и как сохранять, и у Приложения не будет вопросов к открываемым файлам
      ActiveWorkbook.SaveAs Filename:=NewFileName, FileFormat:=56
Записан
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра
 



Темы без ответов

22.05.2018 11:38 Скрипт написать который допишет данные в файл 158
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 592
14.02.2018 10:11 Подготовить читабельную отчетность по платежам 562
23.01.2018 13:46 Найти вероятность повторной покупки 570
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 760
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 839
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 1072
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 2507
15.03.2017 15:45 автозамена картинок PowerPoint 1560
11.03.2017 13:43 Изменить нумерацию страниц 1794





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.134 секунд. Запросов: 101.