У овом чланку ћемо створити макро за отварање више датотека са дијалошким оквиром за датотеке.
Направили смо макро „опенинг_мултипле_филе“ за отварање више датотека. Корисник може кликнути на дугме „Отвори више датотека“ да би покренуо макро.
Логичко објашњење
Направили смо макро „опенинг_мултипле_филе“ за отварање више датотека. Корисник може кликнути на дугме „Отвори више датотека“ да би покренуо макро. Отвара дијалошки оквир за датотеке из којег корисник може изабрати више екцел датотека које жели отворити.
Када су све датотеке одабране, кликните на дугме „ОК“ да бисте отворили све изабране датотеке.
Објашњење кода
Апплицатион.ФилеДиалог (мсоФилеДиалогФилеПицкер)
Горњи код се користи за отварање дијалога датотеке.
.АлловМултиСелецт = Тачно
У горњем коду, својство АлловМултиплеСелецт је постављено као тачно да омогући вишеструки избор у дијалогу за датотеку.
.Филтерс.Адд "Екцел Филес", "*.клс*"
У горњем коду, дијалог за филтер за датотеку је подешен да изабере само Екцел датотеке.
Ако је .Схов = Тачно
Горњи код се користи за проверу да ли корисник притиска дугме „ОК“ или „Откажи“ у дијалогу за датотеку.
Воркбоокс.Опен .СелецтедИтемс (и)
Горњи код се користи за отварање изабране Екцел датотеке.
Молимо следите доле за код
Опција Експлицитно Суб опенинг_мултипле_филе () Дим и Ас Интегер 'Дијалошки оквир Отварање датотеке са Апплицатион.ФилеДиалог (мсоФилеДиалогФилеПицкер)' Омогућавање одабира више датотека .АлловМултиСелецт = Труе .Филтерс.Цлеар 'Могу се изабрати само Екцел датотеке .Филтерс.Адд "Екцел Филес" , "*.клс*" Иф .Схов = Труе тхен Фор и = 1 То .СелецтедИтемс.Цоунт 'Отварање изабране датотеке Воркбоокс.Опен .СелецтедИтемс (и) Нект и Енд Иф Енд Витх Енд Суб
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште