„Excel VBA FileCopy“ funkcija
Failo kopijavimas yra integruota „VBA“ funkcija, naudojama failui nukopijuoti iš vienos vietos į kitą paminėtą vietą. Norėdami naudoti šią funkciją, turime paminėti dabartinį failo kelią ir paskirties failo kelią.
Gerai, pažvelkime į „FileCopy“ funkcijos sintaksę.
- Šaltinis: Tai ne kas kita, o iš kur turime nukopijuoti failą. Turime paminėti visiškai kvalifikuotą aplanko kelią.
- Paskirtis: Tai yra paskirties aplankas, kuriame turime įklijuoti nukopijuotą failą.
Pavyzdžiai
Toliau pateikiami pavyzdžiai, kaip nukopijuoti failus naudojant VBA kodą.
1 pavyzdys
Pradėkime nuo paprasto pavyzdžio. Aš aplanke turiu failą pavadinimu „Pardavimų balandis 2019“. Žemiau pateikiamas to paties, ty „ Šaltinio“ vaizdas.
Iš pirmiau nurodytos vietos noriu nukopijuoti šį failą ir įklijuoti į kitą aplanką. Žemiau pateikiamas to paties, ty „ Paskirties šaltinio“ vaizdas.
Gerai, parašykime jo kodą.
Atidarykite „ FileCopy“ funkciją „Sub“ procedūroje.
Kodas:
Antrinis failo kopija_pavyzdys1 ()
„FileCopy“
Pabaigos sub
Pirmam argumentui reikia paminėti failo kelią, kuriame yra mūsų valiuta.
Kodas:
Antrinis failo kopija_pavyzdys1 ()
FileCopy „D: My Files VBA April Files
Pabaigos sub
Paminėjus aplanko kelią, reikia paminėti ir failą su failo plėtiniu. Taigi paminėkite failo pavadinimą įdėdami atgalinį brūkšnį ().
Kodas:
Sub FileCopy_Example1 () FileCopy "D: My Files VBA April Files Sales April 2019.xlsx", pabaiga Sub
Dabar antrame argumente paminėkite, kur turime įklijuoti nukopijuotą failą.
Kodas:
Sub FileCopy_Example1 () FileCopy "D: My Files VBA April Files Sales April 2019.xlsx", "D: My Files VBA Destination Folder Sales April.xlsx" End Sub
Vienas dalykas, kurį turime padaryti toliau, paminėdami aplanko kelią pabaigoje, paskirties argumente turime paminėti ir failo pavadinimą.
Dabar paleiskite kodą naudodami F5 klavišą arba rankiniu būdu. Tada jis nukopijuos failą iš toliau nurodytos vietos į paskirties vietą.
„D: My Files VBA April Files Sales April 2019.xlsx“
„D: Mano failai VBA Paskirties aplankas Pardavimai, 2019 m. Balandžio mėn. Xlsx“
2 pavyzdys - naudokite kintamuosius šaltinio keliui ir paskirties keliui išsaugoti.
Ankstesniame pavyzdyje mes pateikėme šaltinio kelią ir paskirties kelią tiesiai į formulę. Bet tai nėra geriausia praktika tęsti, todėl saugokime juos kintamuosiuose.
Pavyzdžiui, pažvelkite į žemiau pateiktą kodą.
Kodas:
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 2019 April. xlsx "FileCopy SourcePath, DestinationPath End Sub
Leiskite man išsamiai paaiškinti kodą.
Pirma, aš paskelbiau du kintamuosius.
„Dim SourcePath As String“ „Dim DestinationPath“ kaip eilutė
Tada pirmajam kintamajam priskyriau aplanko kelią, iš kurio jis turi nukopijuoti failą ir failo pavadinimą kartu su failo plėtiniu.
SourcePath = "D: My Files VBA April Files Sales April 2019.xlsx"
Antram kintamajam, panašiai, paskyriau paskirties aplanko kelią su failo pavadinimu ir „Excel“ plėtiniu.
DestinationPath = "D: Mano failai VBA Paskirties aplankas Pardavimai, 2019 m. Balandžio mėn. Xlsx"
Tada formulei „FileCopy“ pateikiau šiuos kintamuosius, o ne ilgas aplanko kelio eilutes.
„FileCopy“ šaltinio kelias, paskirties kelias
Taip galime naudoti kintamuosius keliams saugoti ir efektyviai naudoti.
3 pavyzdys - klaida naudojant failo kopijavimo funkciją
Kartais failo kopijavimo funkcija aptinka klaidą „Leidimas atmestas“.
Priežastis, kodėl mes gauname šią klaidą, nes atidarius kopijavimo failą ir bandant nukopijuoti minėtą klaidą, visada uždarykite failą ir vykdykite kodą.
