Желите да себи или својим корисницима омогућите брз начин тражења и отварања датотеке у Екцел-у? Овај макро користи једноставну технику која отвара пријатељски оквир за дијалог, омогућавајући вам да претражите и отворите Екцел датотеку по вашем избору.
Како функционише макро
Овај макро отвара дијалошки оквир који видите овде, омогућавајући кориснику да претражи и отвори Екцел датотеку.
Оквир за дијалог Опен активира макро.
Ево како овај макро функционише:
Подмакро1()
'Корак 1: Дефинишите стринг променљиву
Дим ФНаме као варијанта
„Корак 2: Метод ГетОпенФиленаме активира оквир за дијалог
ФНаме = Апплицатион.ГетОпенФиленаме( _
ФилеФилтер:="Екцел Воркбоокс,*.кл*", _
Титле:="Изаберите радну свеску за отварање", _
МултиСелецт:=Фалсе)
'Корак 3: Ако је датотека изабрана, отворите је!
Ако ФНаме <> Фалсе Онда
Воркбоокс.Опен Филенаме:=ФНаме
Крај Ако
Енд Суб
У кораку 1, макро декларише променљиву Вариант која садржи име датотеке које корисник одабере. ФНаме је име ваше променљиве.
У кораку 2 користите метод ГетОпенФиленаме да бисте позвали оквир за дијалог који вам омогућава да прегледате и изаберете датотеку која вам је потребна.
Метод ГетОпенФиленаме подржава неколико прилагодљивих параметара. Параметар ФилеФилтер вам омогућава да одредите тип датотеке коју тражите. Параметар Наслов вам омогућава да промените наслов који се појављује на врху дијалога. Параметар МултиСелецт вам омогућава да ограничите избор на једну датотеку.
Ако корисник изабере датотеку из дијалога, променљива ФНаме се попуњава изабраним именом датотеке. У кораку 3, проверавате да ли постоји празна променљива ФНаме. Ако променљива није празна, користите метод Опен објекта Воркбоокс да бисте отворили датотеку.
Како користити макро
Да бисте имплементирали овај макро, можете га копирати и налепити у стандардни модул:
Активирајте Висуал Басиц Едитор притиском на Алт+Ф11 на тастатури.
Кликните десним тастером миша на име пројекта/радне свеске у прозору пројекта.
Изаберите Инсерт→Модуле.
Откуцајте или налепите код у новокреирани модул.
(Опционално) Доделите макро дугмету.