Excel VBA FileCopy-funksjon
File Copy er en innebygd vba-funksjon som brukes til å kopiere filen fra ett sted til et annet nevnt sted. For å bruke denne funksjonen, må vi nevne den nåværende filbanen og destinasjonsfilbanen.
Ok, la oss se på syntaksen til FileCopy-funksjonen.
- Kilde: Dette er ikke annet enn fra hvor vi trenger å kopiere filen. Vi må nevne den fullstendige mappen.
- Destinasjon: Dette er destinasjonsmappen der vi trenger å lime inn den kopierte filen.
Eksempler
Nedenfor er eksemplene på hvordan du kopierer filer ved hjelp av VBA-kode.
Eksempel 1
La oss starte med et enkelt eksempel. Jeg har en fil med navnet “Salg april 2019” i mappen. Nedenfor er bildet av det samme, dvs. " Kilde".
Fra stedet ovenfor ønsker jeg å kopiere denne filen og lime den inn i en annen mappe. Nedenfor er bildet av det samme, dvs. " Destinasjonskilde."
Ok, la oss skrive koden for det.
Åpne FileCopy- funksjonen i underprosedyren .
Kode:
UnderfilKopi_eksempel1 ()
FileCopy
Slutt Sub
Nå for det første argumentet må vi nevne filstien der valutaen vår er.
Kode:
UnderfilKopi_eksempel1 ()
FileCopy “D: My Files VBA April Files
Slutt Sub
Etter å ha nevnt mappestien, må vi også nevne filen med filtypen. Så nevn filnavnet ved å sette et tilbakeslag ().
Kode:
Sub FileCopy_Example1 () FileCopy "D: My Files VBA April Files Sales April 2019.xlsx", Slutt Sub
Nå i det andre argumentet, nevn hvor vi trenger å lime inn den kopierte filen.
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" End Sub
En ting vi må gjøre heretter med å nevne mappestien på slutten, vi må også nevne filnavnet i målargumentet.
Kjør nå koden ved hjelp av F5-tasten eller manuelt. Deretter vil den kopiere filen fra stedet nedenfor til et destinasjonssted.
“D: My Files VBA April Files Sales April 2019.xlsx”
“D: My Files VBA Destination Folder Sales April 2019.xlsx”
Eksempel 2 - Bruk variabler til å lagre kildebane og destinasjonssti.
I forrige eksempel har vi levert kildebanen og destinasjonsstien direkte til formelen. Men dette er ikke den beste fremgangsmåten for å fortsette, så la oss lagre dem i variabler.
Se for eksempel på koden nedenfor.
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
La meg forklare koden i detalj for deg.
Først har jeg erklært to variabler.
Dim SourcePath As String Dim DestinationPath As String
Så for den første variabelen har jeg tilordnet mappestien der den må kopiere filen og filnavnet sammen med filtypen.
SourcePath = "D: My Files VBA April Files Sales April 2019.xlsx"
For den andre variabelen, på samme måte, har jeg tildelt målmappestien med filnavnet og Excel-utvidelsen.
DestinationPath = "D: My Files VBA Destination Folder Sales April 2019.xlsx"
Så for formelen FileCopy, har jeg levert disse variablene i stedet for lange mappestier.
FileCopy SourcePath, DestinationPath
Slik kan vi bruke variabler til å lagre banene og bruke dem effektivt.
Eksempel # 3 - Feil med filkopifunksjon
Noen ganger støter File Copy-funksjonen på feilen "Tillatelse nektet."
Årsaken til at vi får denne feilen fordi når kopifilen åpnes, og hvis du prøver å kopiere feilen ovenfor, så lukk alltid filen og kjør koden.
