Funcția Excel VBA FileCopy
File Copy este o funcție vba încorporată utilizată pentru a copia fișierul dintr-o locație într-o altă locație menționată. Pentru a utiliza această funcție, trebuie să menționăm calea fișierului curent și calea fișierului destinație.
Ok, să ne uităm la sintaxa funcției FileCopy.
- Sursa: Aceasta nu este altceva decât de unde trebuie să copiem fișierul. Trebuie să menționăm calea completă a folderului.
- Destinație: Acesta este folderul de destinație în care trebuie să lipim fișierul copiat.
Exemple
Mai jos sunt exemple de copiere a fișierelor folosind codul VBA.
Exemplul nr. 1
Să începem cu un exemplu simplu. Am un fișier numit „Vânzări aprilie 2019” în dosar. Mai jos este imaginea aceluiași, adică „ Sursă”.
Din locația de mai sus, vreau să copiez acest fișier și să-l lipesc într-un alt folder. Mai jos este imaginea aceleiași, adică „ Sursa destinației”.
Ok, hai să scriem codul pentru acesta.
Deschideți funcția FileCopy în cadrul procedurii Sub.
Cod:
Sub FileCopy_Example1 ()
FileCopy
Sfârșitul Sub
Acum, pentru primul argument, trebuie să menționăm calea fișierului în care se află moneda noastră.
Cod:
Sub FileCopy_Example1 ()
FileCopy „D: My Files VBA April Files
Sfârșitul Sub
După ce menționăm calea folderului, trebuie să menționăm și fișierul cu extensie de fișier. Deci, menționați numele fișierului punând o bară inversă ().
Cod:
Sub FileCopy_Example1 () FileCopy "D: My Files VBA April Files Sales April 2019.xlsx", End Sub
Acum, în al doilea argument, menționați unde trebuie să lipim fișierul copiat.
Cod:
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
Un lucru pe care trebuie să îl facem în continuare menționând calea folderului la final, trebuie să menționăm și numele fișierului în argumentul destinație.
Acum rulați codul folosind tasta F5 sau manual. Apoi, va copia fișierul din locația de mai jos într-o locație de destinație.
„D: My Files VBA April Files Sales April 2019.xlsx”
„D: My Files VBA Folder de destinație Vânzări aprilie 2019.xlsx”
Exemplul # 2 - Folosiți variabile pentru a stoca calea sursă și calea destinației.
În exemplul anterior, am furnizat calea sursă și calea destinației direct la formulă. Dar aceasta nu este cea mai bună practică pentru a continua, așa că hai să le stocăm în variabile.
De exemplu, uitați-vă la codul de mai jos.
Cod:
Sub FileCopy_Example2 () Dim SourcePath As String Dim DestinationPath As String SourcePath = "D: My Files VBA April Files Sales April 2019.xlsx" DestinationPath = "D: My Files VBA Destination Folder Sales April 2019. xlsx "FileCopy SourcePath, DestinationPath End Sub
Permiteți-mi să vă explic codul în detaliu.
În primul rând, am declarat două variabile.
Dim SourcePath As String Dim DestinationPath As String
Apoi, pentru prima variabilă, am atribuit calea folderului de unde trebuie să copieze fișierul și numele fișierului împreună cu extensia acestuia.
SourcePath = "D: My Files VBA April Files Sales April 2019.xlsx"
Pentru a doua variabilă, în mod similar, am atribuit calea folderului de destinație cu numele fișierului și extensia excel.
DestinationPath = "D: My Files VBA Folder destinație Vânzări aprilie 2019.xlsx"
Apoi pentru formula FileCopy, am furnizat aceste variabile în loc de șiruri de căi de dosare lungi.
FileCopy SourcePath, DestinationPath
Astfel, putem folosi variabile pentru a stoca căile și a le utiliza eficient.
Exemplul # 3 - Eroare cu funcția de copiere fișier
Uneori, funcția de copiere a fișierelor întâmpină o eroare de „Permisiune refuzată”.
Motivul pentru care primim această eroare deoarece atunci când fișierul de copiere este deschis și dacă încercați să copiați eroarea de mai sus, deci închideți întotdeauna fișierul și executați codul.
