Како отворити најновију датотеку у фасцикли у програму Мицрософт Екцел
У случају да желите ВБА код који ће вам омогућити да отворите недавно сачувану датотеку у фасцикли само једним притиском на дугме за макро.
Питање): Имам тим од 10 људи и хитно тражим макро који ће ми помоћи да отворим најновију датотеку коју је сачувао члан тима, тако да не морам да идем путем којим је датотека сачувана.
Морамо да следимо следеће кораке:
- Кликните на картицу Девелопер
- Из групе кодова изаберите Висуал Басиц
- Унесите следећи код у модул радног листа
Опција Експлицитно
Суб НевестФиле ()
Дим МиПатх Ас Стринг
Дим МиФиле Ас Стринг
Дим ЛатестФиле Ас Стринг
Затамните ЛатестДате као датум
Затамните ЛМД као датум
МиПатх = "Ц: \ Корисници \ Документи \"
Ако је у реду (МиПатх, 1) "\" Онда МиПатх = МиПатх & "\"
МиФиле = Дир (МиПатх & "*.клс", вбНормал)
Ако је Лен (МиФиле) = 0 Тада
МсгБок "Није пронађена датотека …", вбЕкцламатион
Екит Суб
Крај Ако
До Вхиле Лен (МиФиле)> 0
ЛМД = ФилеДатеТиме (МиПатх & МиФиле)
Ако је ЛМД> Најновији датум
ЛатестФиле = Моја датотека
Најновији датум = ЛМД
Крај Ако
МиФиле = Дир
Лооп
Воркбоокс.Опен МиПатх & ЛатестФиле
Енд Суб
На овај начин ћемо помоћу макро кода моћи да отворимо најновију датотеку коју је сачувао члан тима.
Преузимање - Како отворити најновију датотеку у фасцикли - клсм
