Сохранение в формате .xlsb - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Сохранение в формате .xlsb - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сохранение в формате .xlsb (Макросы/Sub)

Сохранение в формате .xlsb

Дата: Четверг, 18.04.2019, 13:26 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день!
Столкнулся с такой проблемой. Работаю с макросом, который переносит данный из одного файла (oAwb) в "шаблон"(oPip) и сохраняет шаблон с именем файла.
Макрос переносит из "(oAwb)" значения в "(oPip)" в заданный диапазон ячеек.
Но проблема в том что (oPip) с поддержкой макросов, а (oAwb) без поддержки..
После завершения переноса, макрос сохраняет в формате (.xlsx), и естественно Шаблон уже не открывается, если только в названии файла не поменять в ручную на .xlsb (но там с пару тысяч моделей поэтому не вариант)
Код:
[vba]

Код

Workbooks(oPip).SaveCopyAs Workbooks(oAwb).Path & "\ИМ 2.0\" & Workbooks(oAwb).Name
Workbooks(oAwb).Close False
Workbooks(oPip).Close False
Next oFile

[/vba]
Подскажите как можно решить данную проблему?
Чуйка говорит что все очень просто..

Che

Сообщение отредактировал HaveHrono - Четверг, 18.04.2019, 14:01

Ответить

Дата: Четверг, 18.04.2019, 13:42 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

Репутация: 790 ±

Замечаний: 0% ±

365

Добрый день.
Сохраняйте сразу в xlsb - но конечно не копию, раз исходник в другом формате.
Как сохранять - смотрите что пишет рекордер.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Дата: Четверг, 18.04.2019, 13:45 | Сообщение № 3

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

HaveHrono, оформите код тэгами в соответствии с Правилами форума

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Четверг, 18.04.2019, 14:05 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Hugo, пытался добавить
[vba]

Код

Workbooks(oPip).SaveCopyAs Workbooks(oAwb).Path & "\ИМ 2.0\" & Workbooks(oAwb).Name & ".xlsb"
Workbooks(oAwb).Close False
Workbooks(oPip).Close False
Next oFile

[/vba]
Просто берет полное название файла открытого и сохраняет его в том же формате.

Che

Ответить

Дата: Четверг, 18.04.2019, 14:07 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4115

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

Workbook.SaveAs method Естественно расширение нужно в имени заменить будет.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Дата: Четверг, 18.04.2019, 14:08 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

Репутация: 790 ±

Замечаний: 0% ±

365

Цитата Hugo, 18.04.2019 в 13:42, в сообщении № 2 ()

но конечно не копию

- это очевидно не прочитали... Или английского вообще не знаете?
Да и про рекордер тоже никакой реакции...

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Сообщение отредактировал Hugo - Четверг, 18.04.2019, 14:09

Ответить

Дата: Четверг, 18.04.2019, 14:59 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Hugo, да все прочитал, но в данном случае необходимо время для изучения, которого нет сейчас.
Но увы у меня знания поверхностные по макросам. В данном случае макрос собран из блоков других макросов собранных с форумов.
И мне банально не понятно "как заменить расширение в имени в самом макросе".
И сохранить нужно именно копию в формате .xlsb с тем же названием, а не перезаписывать файлы.
Сам же шаблон в корректном формате, но при сохранении берет вместе с названием файла и формат .xlsx

Che

Ответить

Дата: Четверг, 18.04.2019, 15:05 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

Репутация: 790 ±

Замечаний: 0% ±

365

Копия не может быть в другом формате - она может быть только с другим названием. Это ведь копия!
А если желаете сменить формат - "сохраняйте как" а не "сохраняйте копию как" (это про английский) - и тут как сделать правильно напишет рекордер, я это даже и не пытаюсь дословно запоминать.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Сообщение отредактировал Hugo - Четверг, 18.04.2019, 15:25

Ответить

Дата: Четверг, 18.04.2019, 15:23 | Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Hugo, Ок. Понял..
Сделал так:
[vba]

Код

Workbooks(oPip).Sheets("Анализ проекта").Activate
        Workbooks(oPip).SaveAs Workbooks(oAwb).Path & "\ИМ 2.0\" & Workbooks(oAwb).Name, FileFormat:=".xlsb"
        Workbooks(oAwb).Close False
        Workbooks(oPip).Close False

[/vba]
Теперь выдает ошибку после завершения макроса.

К сообщению приложен файл: 5142078.png (15.8 Kb)

Che

Ответить

Дата: Четверг, 18.04.2019, 15:26 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

Репутация: 790 ±

Замечаний: 0% ±

365

Откуда такой формат взяли? Мой рекордер записал так: FileFormat:=xlExcel12
Или Вы не знаете что такое рекордер? Сразу бы и спросили тогда что это...

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Сообщение отредактировал Hugo - Четверг, 18.04.2019, 15:27

Ответить

Дата: Четверг, 18.04.2019, 15:29 | Сообщение № 11

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Hugo, да этот формат сразу взял но выдал ошибку тоже, "нельзя сохранить в данном формате"
[vba]

Код

Workbooks(oPip).Sheets("Àíàëèç ïðîåêòà").Activate
        Workbooks(oPip).SaveAs Workbooks(oAwb).Path & "\ÈÌ 2.0\" & Workbooks(oAwb).Name, FileFormat:=xlExcel12
        Workbooks(oAwb).Close False
        Workbooks(oPip).Close False
    Next oFile

[/vba]

К сообщению приложен файл: 8525512.png (17.3 Kb)

Che

Ответить

Дата: Четверг, 18.04.2019, 15:33 | Сообщение № 12

Группа: Друзья

Ранг: Ветеран

Сообщений: 559

Репутация: 167 ±

Замечаний: 0% ±

365

HaveHrono, Вам же Михаил дал ссылку

Цитата bmv98rus, 18.04.2019 в 14:07, в сообщении № 5 ()

Workbook.SaveAs method

там же, если почитать, и про форматы можно найти инфу

Ответить

Дата: Четверг, 18.04.2019, 15:44 | Сообщение № 13

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

boa, что такое "method"? ругается VBA

Che

Ответить

Дата: Четверг, 18.04.2019, 16:46 | Сообщение № 14

Группа: Друзья

Ранг: Ветеран

Сообщений: 559

Репутация: 167 ±

Замечаний: 0% ±

365

HaveHrono,
вы по ссылке "ходили"? там же даже пример есть
вот вам еще ссылка на рус.вариант

Ответить

Дата: Четверг, 18.04.2019, 17:00 | Сообщение № 15

Группа: Друзья

Ранг: Ветеран

Сообщений: 559

Репутация: 167 ±

Замечаний: 0% ±

365

[vba]

Код

    fName$ = Workbooks(oAwb).Name
    Extention$ = Split(fName, ".")(UBound(Split(fName, ".")))   'определяем расширение файла
    fName$ = Replace(fName, "." & Extention, ".xlsb")           'меняем старое расширение на xlsb

    Workbooks(oPip).SaveAs _
            Filename:=Workbooks(oAwb).Path & "\ИМ 2.0\" & fName, _
            FileFormat:=xlExcel12

[/vba]

Ответить

Сохранение в формате .xlsb (Макросы/Sub)

Страница 1 из 1
1

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!