Kuidas Exceli faile makro abil kopeerida
Kas soovite kopeerida Exceli töövihiku ja anda sellele uue nime? Loomulikult saate seda teha Windowsi kaudu, kuid kuidas seda Excelis automatiseerida? Üks võimalus on avada sobiv töövihik ja seejärel see uue nime alla salvestada.
See võtab aga palju aega ja on tülikas, sest Excel teeb töövihiku avamisel arvutusi, uuendab linke jms. Seda on lihtsam teha otse, kasutades käsku VBA FileCopy. Järgmine makro kopeerib töövihiku ühest kataloogist teise, määrates uue nime:
Kopeeri alamtöövihik ()
Hämardage allikas stringina, sihtkoht stringina
Allikas = "c: \ August.xls"
Sihtkoht "" c: \ data \ September.xls "
FileCopy allikas, sihtkoht
End Sub
Sisestage muutuja allikas Määrake kopeeritava faili nimi ja tee. Salvestage muutuja sisse sihtmärk faili tee ja sihtkoht. Näidisprogrammis salvestatakse fail August.xls teelt C: \ uue nimega September.xls teele C: \ Daten. Lähtefail August.xls jääb muutmata.
Selle käsuga saate kopeerida mitte ainult Exceli töövihikuid, vaid ka muid faile.