Excel VBA FileCopy-funktion
File Copy er en indbygget vba-funktion, der bruges til at kopiere filen fra et sted til et andet nævnt sted. For at bruge denne funktion skal vi nævne den aktuelle filsti og destinationsfilsti.
Ok, lad os se på syntaksen for FileCopy-funktionen.
- Kilde: Dette er ikke andet end hvorfra vi har brug for at kopiere filen. Vi skal nævne den fuldt kvalificerede mappesti.
- Destination: Dette er destinationsmappen, hvor vi skal indsætte den kopierede fil.
Eksempler
Nedenfor er eksempler på, hvordan man kopierer filer ved hjælp af VBA-kode.
Eksempel nr. 1
Lad os starte med et simpelt eksempel. Jeg har en fil med navnet “Salg april 2019” i mappen. Nedenfor er billedet af det samme, dvs. " Kilde".
Fra ovenstående placering vil jeg kopiere denne fil og indsætte den i en anden mappe. Nedenfor er billedet af det samme, dvs. " Destinationskilde".
Ok, lad os skrive koden til det.
Åbn FileCopy- funktionen inde i underproceduren.
Kode:
UnderfilKopi_eksempel1 ()
FileCopy
Afslut sub
Nu for det første argument skal vi nævne filstien, hvor vores valuta er i.
Kode:
UnderfilKopi_eksempel1 ()
FileCopy “D: My Files VBA April Files
Afslut sub
Efter at have nævnt mappestien skal vi også nævne filen med en filtypenavn. Så næv filnavnet ved at sætte et tilbageslag ().
Kode:
Sub FileCopy_Example1 () FileCopy "D: My Files VBA April Files Sales April 2019.xlsx", Afslut sub
Nu i det andet argument skal du nævne, hvor vi skal indsætte den kopierede fil.
Kode:
Sub FileCopy_Example1 () FileCopy "D: My Files VBA April Files Sales April 2019.xlsx", "D: My Files VBA Destination Folder Sales April 2019.xlsx" Afslut sub
En ting, vi skal gøre herefter med at nævne mappestien i slutningen, skal vi også nævne filnavnet i destinationsargumentet.
Kør nu koden ved hjælp af F5-tasten eller manuelt. Derefter kopieres filen fra nedenstående placering til en destinationsplacering.
“D: My Files VBA April Files Sales April 2019.xlsx”
“D: My Files VBA Destination Folder Sales April 2019.xlsx”
Eksempel # 2 - Brug variabler til at gemme kildesti og destinationssti.
I det foregående eksempel har vi leveret kildestien og destinationsstien direkte til formlen. Men dette er ikke den bedste praksis at fortsætte, så lad os gemme dem i variabler.
Se f.eks. Nedenstående kode.
Kode:
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
Lad mig forklare koden i detaljer for dig.
For det første har jeg erklæret to variabler.
Dim SourcePath As String Dim DestinationPath As String
Så for den første variabel har jeg tildelt mappestien, hvorfra den skal kopiere filen og filnavnet sammen med dens filtypenavn.
SourcePath = "D: My Files VBA April Files Sales April 2019.xlsx"
Til den anden variabel har jeg ligeledes tildelt destinationsmappestien med filnavnet og excel-udvidelsen.
DestinationPath = "D: My Files VBA Destination Folder Sales April 2019.xlsx"
Så for formlen FileCopy har jeg leveret disse variabler i stedet for lange mappestiestrenge.
FileCopy SourcePath, DestinationPath
På denne måde kan vi bruge variabler til at gemme stierne og bruge dem effektivt.
Eksempel # 3 - Fejl med filkopiering
Nogle gange støder File Copy-funktionen på en fejl "Tilladelse nægtet."
Årsagen til, at vi får denne fejl, fordi når kopieringsfilen åbnes, og hvis du prøver at kopiere ovenstående fejl, skal du altid lukke filen og udføre koden.
