Mõnikord võib tekkida vajadus või vajadus luua Exceli töövihik automatiseeritud viisil. Näiteks peate võib-olla kopeerima andmed tabelist ja kleepima need vastloodud töövihikusse. Järgmine makro kopeerib aktiivselt lehelt lahtrivahemiku ja kleebib andmed uude töövihikusse.
Kuidas makro töötab
Nagu näete koodi ridu läbi lugedes, on see makro suhteliselt intuitiivne:
Alammakro1()
1. samm Kopeerige andmed
Sheets("Näide 1").Range("B4:C15").Kopeeri
2. samm Looge uus töövihik
Töövihikud.Lisa
3. samm Kleepige andmed
ActiveSheet.Paste Destination:=Range("A1")
4. samm Lülitage rakenduste hoiatused välja
Application.DisplayAlerts = Vale
5. samm Salvestage vastloodud töövihik
ActiveWorkbook.SaveAs _
Failinimi:="C:TempMyNewBook.xlsx"
6. samm Lülitage rakenduste hoiatused uuesti sisse
Application.DisplayAlerts = Tõene
Lõpeta alam
1. sammus kopeerite lihtsalt andmed, mis ulatuvad lahtritest B4 kuni C15. Pange tähele, et määrate nii lehe kui ka vahemiku nime järgi. See lähenemisviis on parim tava mitme avatud töövihikuga töötamisel.
2. sammus kasutate töövihiku loomiseks töövihiku objekti lisamise meetodit. Tühi töövihik võrdub Exceli lindil käsitsi valimisega Fail → Uus → Tühi dokument.
3. sammus kasutate meetodit Paste, et saata kopeeritud andmed uue töövihiku lahtrisse A1.
Pöörake tähelepanu asjaolule, et kood viitab ActiveSheet objektile. Töövihiku lisamisel keskendub uus töövihik koheselt aktiivseks töövihikuks. (Excel teeb sama, kui lisate töövihiku käsitsi.)
Koodi 4. sammus määrate meetodi DisplayAlerts väärtuseks False, lülitades Exceli hoiatused tõhusalt välja. Teete seda seetõttu, et koodi järgmises etapis salvestate vastloodud töövihiku. Saate seda makrot mitu korda käitada, sel juhul proovib Excel faili mitu korda salvestada.
Mis juhtub, kui proovite töövihikut mitu korda salvestada? See on õige – Excel hoiatab, et selle nimega fail on juba olemas ja küsib seejärel, kas soovite varem olemasoleva faili üle kirjutada. Kuna teie eesmärk on töövihiku loomine automatiseerida, soovite selle hoiatuse maha jätta.
5. sammus salvestate faili, kasutades SaveAs meetodit. Pange tähele, et sisestate salvestuskoha täieliku tee, sealhulgas lõpliku failinime.
Kuna lülitasite 4. sammus rakenduste muudatused välja, peate need uuesti sisse lülitama (vt 6. sammu). Kui te seda ei tee, jätkab Excel kõigi hoiatuste mahasurumist praeguse seansi ajal.
Kuidas makrot kasutada
Selle makro rakendamiseks saate selle kopeerida ja kleepida standardmoodulisse:
Aktiveerige Visual Basic Editor, vajutades Alt+F11.
Paremklõpsake projekti aknas projekti/töövihiku nimel.
Valige Lisa → Moodul.
Tippige või kleepige kood vastloodud moodulisse.
Tõenäoliselt peate muutma lehe nime, vahemiku aadressi ja salvestuskohta.