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