ВБА вам омогућава да изаберете датотеку за отварање помоћу Апплицатион.ГетОпенФиленаме метода. У овом водичу ћете научити како отворити дијалог датотеке и поставити параметре.
Ако желите научити како отворити и затворити датотеку, можете кликнути на ову везу: ВБА Отвори/Затвори датотеку
Отворите дијалог датотека у ВБА
Ако желите да отворите датотеку у ВБА, прво морате отворити дијалог за одабир датотеке. Ево кода:
| 123 | Дим стрФиле Ас СтрингстрФиле = Апплицатион.ГетОпенФиленаме ( |
Као што видите, метода има неколико параметара. ФилеФилтер омогућава вам да филтрирате врсте датотека које су вам потребне, у нашем случају .клск датотеке.
У Титле параметар, можете поставити наслов дијалошког оквира. Ако желите да дозволите отварање више датотека, морате да подесите МултиплеСелецт до Истине. Ако не поставите овај параметар, може се изабрати само једна датотека.
Слика 1. Отворите дијалог датотеке
Као што видите на слици 1, појављује се оквир за дијалог са насловом Одаберите Екцел датотеку. Филтрирају се само Екцел датотеке и можемо одабрати више датотека.
Отворите оквир за дијалог датотеке у одређеној фасцикли
Ако желите да отворите оквир за дијалог у одређеној фасцикли, морате да користите метод .ФилеДиалог са параметром мсоФилеДиалогФилеПицкер. У примеру ћемо отворити дијалог у фасцикли Ц: \ ВБА фасцикла. Ево кода:
| 123456789101112131415161718192021 | Дим фд Као Оффице.ФилеДиалогДим стрФиле Ас СтрингПостави фд = Апплицатион.ФилеДиалог (мсоФилеДиалогФилеПицкер)Витх фд.Филтерс.Цлеар.Филтерс.Адд "Екцел Филес", "*.клск?", 1.Титле = "Одаберите Екцел датотеку".АлловМултиСелецт = Нетачно.ИнитиалФилеНаме = "Ц: \ ВБА фасцикла"Ако је .Схов = ТачнострФиле = .СелецтедИтемс (1)Крај АкоЗавршити |
Прво морате да декларишете променљиву фд тип Оффице.ФилеДиалог и стринг променљива за преузимање датотека:
| 12 | Дим фд Као Оффице.ФилеДиалогДим стрФиле Ас Стринг |
Након тога морате да подесите фд до Апплицатион.ФилеДиалог (мсоФилеДиалогФилеПицкер):
| 1 | Постави фд = Апплицатион.ФилеДиалог (мсоФилеДиалогФилеПицкер) |
Сада, унутар Са фд Заврши са, можемо поставити више параметара:
| 1234567 | .Филтерс.Цлеар.Филтерс.Адд "Екцел Филес", "*.клск?", 1.Титле = "Одаберите Екцел датотеку".АлловМултиСелецт = Нетачно |
Овде бришемо филтере датотека (.Филтерс.Цлеар) и подесите га на .клск (.Филтери. Додајте „Екцел датотеке“, „*.клск?“, 1).
Такође, можемо поставити наслов дијалога: .Титле = “Одаберите Екцел датотеку”.
Корисника можемо ограничити на одабир само једне датотеке:АлловМултиСелецт = Нетачно
Да бисмо отворили оквир за дијалог у фасцикли коју желимо, морамо да ставимо овај ред кода:
| 1 | .ИнитиалФилеНаме = "Ц: \ ВБА фасцикла" |
На крају ћемо само отворити дијалошки оквир са свим претходно постављеним параметрима:
| 12345 | Ако је .Схов = ТачнострФиле = .СелецтедИтемс (1)Крај Ако |
Када извршимо овај код, у фасцикли се појављује дијалог за отварање датотеке Ц: \ ВБА фасцикла:
Слика 2. Отворите дијалог датотеке у одређеној фасцикли
