Excel VBA FileCopy-funktion
File Copy är en inbyggd vba-funktion som används för att kopiera filen från en plats till en annan nämnd plats. För att använda den här funktionen måste vi nämna den aktuella filvägen och destinationsfilvägen.
Okej, låt oss titta på syntaxen för FileCopy-funktionen.
- Källa: Detta är inget annat än varifrån vi behöver kopiera filen. Vi måste nämna den fullständigt kvalificerade mappvägen.
- Destination: Detta är målmappen där vi behöver klistra in den kopierade filen.
Exempel
Nedan följer exempel på hur man kopierar filer med VBA-kod.
Exempel 1
Låt oss börja med ett enkelt exempel. Jag har en fil med namnet ”Försäljning april 2019” i mappen. Nedan är bilden av samma, dvs. " Källa".
Från ovanstående plats vill jag kopiera den här filen och klistra in den i en annan mapp. Nedan är bilden av samma, dvs " Destinationskälla."
Okej, låt oss skriva koden för det.
Öppna FileCopy- funktionen i Sub-proceduren.
Koda:
Sub FileCopy_Example1 ()
FileCopy
Avsluta sub
För det första argumentet måste vi nämna filvägen där vår valuta finns.
Koda:
Sub FileCopy_Example1 ()
FileCopy “D: My Files VBA April Files
Avsluta sub
Efter att ha nämnt mappsökvägen måste vi också nämna filen med ett filtillägg. Så nämn filnamnet genom att sätta en backslash ().
Koda:
Sub FileCopy_Example1 () FileCopy "D: My Files VBA April Files Sales April 2019.xlsx", End Sub
Nu i det andra argumentet, nämna var vi behöver klistra in den kopierade filen.
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
En sak som vi behöver göra nedan nämner mappvägen i slutet, vi måste också nämna filnamnet i destinationsargumentet.
Kör nu koden med F5-tangenten eller manuellt. Sedan kommer den att kopiera filen från platsen nedan till en destinationsplats.
“D: My Files VBA April Files Sales April 2019.xlsx”
“D: My Files VBA Destination Folder Sales April 2019.xlsx”
Exempel # 2 - Använd variabler för att lagra källväg och destinationsväg.
I föregående exempel har vi levererat källvägen och destinationsvägen direkt till formeln. Men det här är inte den bästa metoden att fortsätta, så låt oss lagra dem i variabler.
Titta till exempel på koden nedan.
Koda:
Sub FileCopy_Example2 () Dim SourcePath Som String Dim DestinationPath Som 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
Låt mig förklara koden i detalj för dig.
Först har jag förklarat två variabler.
Dim SourcePath Som String Dim DestinationPath Som String
Sedan för den första variabeln har jag tilldelat mappsökvägen från vilken den måste kopiera filen och filnamnet tillsammans med dess filtillägg.
SourcePath = "D: My Files VBA April Files Sales April 2019.xlsx"
För den andra variabeln har jag också tilldelat sökvägen till målmappen med filnamnet och Excel-tillägget.
DestinationPath = "D: My Files VBA Destination Folder Sales April 2019.xlsx"
Sedan för formeln FileCopy har jag levererat dessa variabler istället för långa mappsöksträngar.
FileCopy SourcePath, DestinationPath
Så här kan vi använda variabler för att lagra banorna och använda dem effektivt.
Exempel # 3 - Fel med filkopiering
Ibland stöter File Copy-funktionen på felet "Tillstånd nekad."
Anledningen till att vi får detta fel eftersom när kopieringsfilen öppnas och om du försöker kopiera ovanstående fel kommer alltid att stänga filen och köra koden.
