Овај ВБА водич описује како сачувати датотеку помоћу наредби Сачувај и Сачувај као у ВБА.
Сачувај радну свеску - ВБА
Команда ВБА Саве чува Екцел датотеку слично кликању иконе Саве или употребом Саве Схортцут (ЦТРЛ + С).
Сачувајте наведену радну свеску
Да бисте сачували радну свеску, позовите објекат радне свеске и користите команду Сачувај.
| 1 | Радне свеске ("савефиле.клсм"). Сачувај |
Сачувајте активну радну свеску
Напомена: Ово је тренутна активна радна свеска из са у ВБА коду, која се разликује од ТхисВоркбоок која садржи текући код.
Сачувајте радну свеску где се код складишти
Сачувајте све отворене радне свеске
Ово ће проћи кроз све отворене радне свеске, чувајући сваку.
| 12345 | Дим вб као радна свескаЗа сваку вб Ин Апплицатион.Воркбооксвб.СавеНект вб |
Сачувајте све отворене радне свеске које нису отворене само за читање
Напомена: отварање радне свеске у РеадОнли режиму спречава чување датотеке.
Да бисте сачували датотеку, морате да користите опцију Сачувај као и датотеку са другим именом.
| 1234567 | Дим вб као радна свескаЗа сваку вб Ин Апплицатион.ВоркбооксАко не вб РеадОнли ондавб.СавеЗаврши акоНект вб |
Сачувајте радну свеску дефинисану променљивом
Ово ће сачувати радну свеску која је додељена променљивој објекта радне свеске.
| 1234 | Дим вб као радна свескасет вб = радне свеске ("савефиле.клсм")вб.саве |
Сачувајте радну свеску дефинисану стринг променљивом
Ово ће сачувати радну свеску чији је назив сачуван у променљивој стринга.
| 1234 | Затамните вбстринг као стрингвбстринг = "савефиле.клсм"радне свеске (вбстринг) .сачувати |
Сачувајте радну свеску дефинисану редоследом отварања.
Напомена: Прва отворена радна свеска имала би 1, друга 2 итд.
| 1 | радне свеске (1) .сачувати |
Сачувајте радну свеску на основу вредности ћелије
Ово ће сачувати радну свеску чији се назив налази у вредности ћелије.
| 1234 | Затамните вбстринг као стрингвбстринг = ацтивеворкбоок.схеетс ("схеет1"). ранге ("вб_саве"). вреднострадне свеске (вбстринг) .сачувати |
Сачувај као - ВБА
Наредба ВБА Саве Ас чува Екцел датотеку као нову датотеку, слично клику на икону Саве Ас или употреби пречице Саве Ас (Алт> Ф> А).
Горе смо идентификовали све начине да наведете коју радну свеску да сачувате. Можете користити исте методе да идентификујете радне свеске када користите опцију Саве Ас.
Саве Ас се понаша слично као Саве, осим што такође морате навести назив нове датотеке.
У ствари, Саве Ас има много потенцијалних променљивих за дефинисање:
Синтакса СавеАс:
| 123 | објекат радне свеске .СавеАс (ФилеНаме, ФилеФормат, Пассворд, ВритеРесПассворд, _РеадОнлиРецоммендед, ЦреатеБацкуп, АццессМоде, ЦонфлицтРесолутион, _АддТоМру, ТектЦодепаге, ТектВисуалЛаиоут, Лоцал) |
Потпуни опис свих аргумената СавеАс дат је испод. За сада ћемо се фокусирати на најчешће примере.
Напомена: Ови аргументи се могу унети као низ са заградама или као дефинисане променљиве.
Примери синтаксе Саве Ас:
Радна свеска Сачувај као - исти именик
| 1 | АцтивеВоркбоок.СавеАс Назив датотеке: = "ново" |
или
| 1 | АцтивеВоркбоок.СавеАс "нев" |
или
| 1234 | Затамните вбстринг као стрингвбстринг = "ново"АцтивеВоркбоок.СавеАс Назив датотеке: = вбстринг |
Радна свеска Сачувај као - нови именик
| 1 | АцтивеВоркбоок.СавеАс Назив датотеке: = "Ц: \ нев" |
или
| 1234 | Затамните вбстринг као стрингвбстринг = "Ц: \ ново"АцтивеВоркбоок.СавеАс Назив датотеке: = вбстринг = |
Радна свеска Сачувај као - Нови директоријум, наведите екстензију датотеке
| 1 | АцтивеВоркбоок.СавеАс Назив датотеке: = "Ц: \ нев.клск" |
или
| 1234 | Затамните вбстринг као стрингвбстринг = "Ц: \ нев.клск"АцтивеВоркбоок.СавеАс Назив датотеке: = вбстринг |
Радна свеска Сачувај као - Нови директоријум, Наведите проширење датотеке - Алтернативни метод
Такође можете навести формат датотеке у сопственом аргументу.
| 1234 | .клск = 51 '(52 за Мац).клсм = 52 '(53 за Мац).клсб = 50 '(51 за Мац).клс = 56 '(57 за Мац) |
| 1 | АцтивеВоркбоок.СавеАс Назив датотеке: = "Ц: \ нев", ФилеФормат: = 51 |
Радна свеска Сачувај као - Додајте лозинку за отварање датотеке
| 1 | АцтивеВоркбоок.СавеАс Назив датотеке: = "Ц: \ нев.клск", Лозинка: = "лозинка" |
Радна свеска Сачувај као - Додајте лозинку за привилегије писања
Ако није наведена исправна лозинка, радна свеска се отвара као Само за читање
| 1 | АцтивеВоркбоок.СавеАс Назив датотеке: = "Ц: \ нев.клск", ВритеРес: = "лозинка" |
Радна свеска Сачувај као - препоручено само за читање
ТРУЕ за приказ оквира за поруку, препоручујући да се датотека отвори само за читање.
| 1 | АцтивеВоркбоок.СавеАс Назив датотеке: = "Ц: \ нев.клск", РеадОнлиРецоммендед: = ТРУЕ |
Други примери Саве Ас
Направи дијалог оквир Сачувај као
Ово генерише дијалошки оквир Сачувај као, од корисника се тражи да сачува датотеку.
Имајте на уму да овај једноставан код можда није прикладан у свим случајевима.
| 1 | Апплицатион.ГетСавеАсФиленаме |
Направи дијалошки оквир Сачувај као са наведеним подразумеваним именом датотеке
| 1 | Апплицатион.ГетСавеАсФиленаме ИнитиалФиленаме: = "тест.клск" |
Направи дијалошки оквир Сачувај као са наведеним подразумеваним именом датотеке
| 1 | Апплицатион.ГетСавеАсФиленаме ИнитиалФиленаме: = "тест.клск" |
Креирајте и сачувајте нову радну свеску
Ово ће креирати нову радну свеску и одмах је сачувати.
| 123456 | Дим вб Као радна свескаСет вб = Воркбоокс.АддАпплицатион.ДисплаиАлертс = Нетачновб.СавеАс Назив датотеке: = ”ц: \ Тест1.клск”Апплицатион.ДисплаиАлертс = Тачно |
Онемогућите чување упозорења
Док радите на чувању у ВБА -и, можда ћете наићи на различита упозорења или упите за спремање. Да бисте онемогућили упозорења, додајте овај ред кода:
| 1 | Апплицатион.ДисплаиАлертс = Нетачно |
и да бисте поново омогућили упозорења:
| 1 | Апплицатион.ДисплаиАлертс = Тачно |
