Функция Excel VBA FileCopy
File Copy е вградена vba функция, използвана за копиране на файла от едно място на друго споменато място. За да използваме тази функция, трябва да споменем текущия път на файла и пътя до целевия файл.
Добре, нека разгледаме синтаксиса на функцията FileCopy.

- Източник: Това не е нищо друго, освен оттам, където трябва да копираме файла. Трябва да споменем напълно квалифицирания път на папката.
- Дестинация: Това е папката дестинация, където трябва да поставим копирания файл.
Примери
По-долу са дадени примери за това как да копирате файлове с помощта на VBA код.
Пример # 1
Нека започнем с прост пример. Имам файл с име „Продажби април 2019 г.“ в папката. По-долу е изображението на същия, т.е. „ Източник“.

От горното местоположение искам да копирам този файл и да го поставя в друга папка. По-долу е изображението на същия, т.е. „ Източник на дестинация“.

Добре, нека напишем кода за него.
Отворете функцията FileCopy вътре в процедурата Sub.
Код:
Sub FileCopy_Example1 ()
FileCopy
Крайна под

Сега за първия аргумент трябва да споменем пътя на файла, в който се намира нашата валута.
Код:
Sub FileCopy_Example1 ()
FileCopy „D: My Files VBA April Files
Крайна под

След като споменем пътя на папката, трябва да споменем и файла с разширение на файла. Така че споменете името на файла, като поставите обратна наклонена черта ().
Код:
Sub FileCopy_Example1 () FileCopy "D: My Files VBA April Files Sales April 2019.xlsx", End Sub

Сега във втория аргумент споменете къде трябва да поставим копирания файл.
Код:
Sub FileCopy_Example1 () FileCopy "D: My Files VBA April Files Sales April 2019.xlsx", "D: My Files VBA Destination Folder Sales April 2019.xlsx" End Sub

Едно нещо, което трябва да направим по-долу, като споменем пътя на папката в края, трябва да споменем и името на файла в аргумента за местоназначение.
Сега стартирайте кода с помощта на клавиша F5 или ръчно. След това ще копира файла от местоположението по-долу в местоназначението.
„D: Моите файлове VBA Априлски файлове Продажби април 2019.xlsx”
„D: My Files VBA Destination Folder Sales април 2019.xlsx“

Пример # 2 - Използвайте променливи за съхраняване на изходния път и пътя на дестинацията.
В предишния пример ние предоставихме пътя на източника и пътя до местоназначението директно към формулата. Но това не е най-добрата практика за продължаване, така че нека ги съхраняваме в променливи.
Например погледнете кода по-долу.
Код:
Sub FileCopy_Example2 () Затъмнете SourcePath като низ Затъмнете DestinationPath като низ SourcePath = "D: My Files VBA April Files Sales април 2019.xlsx" DestinationPath = "D: My Files VBA Destination Folder Sales април 2019. xlsx "FileCopy SourcePath, DestinationPath End Sub

Позволете ми да ви обясня подробно кода.
Първо, декларирах две променливи.
Затъмнява SourcePath като низ Затъмнява DestinationPath като низ
След това за първата променлива съм задал пътя на папката, откъдето трябва да копира файла и името на файла заедно с неговото разширение.
SourcePath = "D: Моите файлове VBA Априлски файлове Продажби април 2019.xlsx"
За втората променлива, по същия начин, аз съм назначил пътя на папката местоназначение с името на файла и разширението на Excel.
DestinationPath = "D: My Files VBA Destination Folder Sales април 2019.xlsx"
Тогава за формулата FileCopy предоставих тези променливи вместо дълги низове на пътя на папката.
FileCopy SourcePath, DestinationPath
По този начин можем да използваме променливи, за да съхраняваме пътеките и да ги използваме ефективно.
Пример # 3 - Грешка с функцията за копиране на файлове
Понякога функцията за копиране на файлове среща грешка „Разрешението е отказано“.

Причината, поради която получаваме тази грешка, защото когато се отвори копиращият файл и ако се опитате да копирате горната грешка, винаги затваряйте файла и изпълнявайте кода.