Funkcija Excel VBA FileCopy
File Copy je vgrajena funkcija vba, ki se uporablja za kopiranje datoteke z enega mesta na drugo omenjeno mesto. Za uporabo te funkcije moramo omeniti trenutno pot datoteke in pot ciljne datoteke.
V redu, poglejmo sintakso funkcije FileCopy.
- Vir: To ni nič drugega kot od kod moramo kopirati datoteko. Omeniti moramo popolnoma kvalificirano pot do mape.
- Cilj: To je ciljna mapa, kamor moramo prilepiti kopirano datoteko.
Primeri
Spodaj so primeri kopiranja datotek s kodo VBA.
Primer # 1
Začnimo s preprostim primerom. V mapi imam datoteko z imenom »Prodaja aprila 2019«. Spodaj je slika istega, tj. » Vir«.
Z zgornje lokacije želim kopirati to datoteko in jo prilepiti v drugo mapo. Spodaj je slika istega, tj. » Destination Source«.
Ok, napišimo kodo zanj.
Odprite funkcijo FileCopy znotraj postopka Sub.
Koda:
PoddatotekaCopy_Example1 ()
FileCopy
Končaj pod
Zdaj za prvi argument moramo omeniti pot do datoteke, kjer je naša valuta.
Koda:
PoddatotekaCopy_Example1 ()
FileCopy “D: My Files VBA April Files
Končaj pod
Po omembi poti mape moramo omeniti tudi datoteko s pripono datoteke. Torej omenite ime datoteke, tako da vstavite poševnico nazaj ().
Koda:
Sub FileCopy_Example1 () FileCopy "D: My Files VBA April Files Sales April 2019.xlsx", End Sub
Zdaj v drugem argumentu omenite, kam moramo prilepiti kopirano datoteko.
Koda:
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
Ena stvar, ki jo moramo storiti v nadaljevanju, ko na koncu omenimo pot do mape, v ciljnem argumentu moramo omeniti tudi ime datoteke.
Zdaj zaženite kodo s tipko F5 ali ročno. Nato bo kopiral datoteko s spodnjega mesta na ciljno mesto.
"D: Moje datoteke VBA April Files Prodaja april 2019.xlsx"
"D: Moje datoteke VBA Ciljna mapa Prodaja april 2019.xlsx"
2. primer - Uporabite spremenljivke za shranjevanje izvorne poti in ciljne poti.
V prejšnjem primeru smo izvorno in ciljno pot podali neposredno v formulo. Toda to ni najboljša praksa za nadaljevanje, zato jih shranimo v spremenljivke.
Na primer, poglejte spodnjo kodo.
Koda:
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
Naj vam podrobno razložim kodo.
Najprej sem razglasil dve spremenljivki.
Zatemni izvorno pot kot niz Zatemni ciljno pot kot niz
Nato sem prvi spremenljivki dodelil pot do mape, od koder mora kopirati datoteko in ime datoteke skupaj s pripono datoteke.
SourcePath = "D: Moje datoteke VBA April Files Prodaja april 2019.xlsx"
Za drugo spremenljivko sem podobno dodal pot do ciljne mape z imenom datoteke in pripono excel.
DestinationPath = "D: Moje datoteke VBA Ciljna mapa Prodaja april 2019.xlsx"
Nato sem za formulo FileCopy navedel te spremenljivke namesto dolgih nizov poti do mape.
FileCopy SourcePath, DestinationPath
Tako lahko spremenljivke uporabljamo za shranjevanje poti in njihovo učinkovito uporabo.
3. primer - Napaka s funkcijo kopiranja datotek
Včasih se pri funkciji kopiranja datotek pojavi napaka »Dovoljenje zavrnjeno«.
Razlog, zakaj smo dobili to napako, je, da ko se datoteka za kopiranje odpre in če poskusite kopirati zgornjo napako, vedno zaprite datoteko in izvedite kodo.
