Kaip kopijuoti „Excel“ failus naudojant makrokomandą
Ar norėtumėte nukopijuoti „Excel“ darbaknygę ir suteikti jai naują pavadinimą? Žinoma, tai galite padaryti per „Windows“, bet kaip tai automatizuoti „Excel“? Viena galimybė yra atidaryti atitinkamą darbaknygę ir išsaugoti ją nauju pavadinimu.
Tačiau tai užima daug laiko ir yra sudėtinga, nes atidarius darbaknygę „Excel“ atlieka skaičiavimus, atnaujina nuorodas ir panašiai. Tai lengviau padaryti tiesiogiai naudojant komandą VBA FileCopy. Ši makrokomanda nukopijuoja darbaknygę iš vieno katalogo į kitą, nurodydama naują pavadinimą:
Kopijuoti papildomą darbaknygę ()
Pritemdyti šaltinį kaip eilutę, paskirties vietą kaip eilutę
Šaltinis = "c: \ August.xls"
Paskirties vieta = "c: \ data \ September.xls"
„FileCopy“ šaltinis, paskirtis
Pabaiga Sub
Įdėkite kintamąjį šaltinis Nurodykite failo, kurį norite kopijuoti, pavadinimą ir kelią. Išsaugoti kintamajame taikinys failo kelias ir paskirties vieta. Pavyzdinėje programoje August.xls failas iš kelio C: \ įrašomas nauju pavadinimu September.xls kelyje C: \ Daten. Šaltinio failas August.xls lieka nepakitęs.
Naudodami komandą galite ne tik nukopijuoti „Excel“ darbaknyges, bet ir kitus failus.