Saatat joskus haluta tai joutua luomaan Excel-työkirjan automaattisella tavalla. Saatat esimerkiksi joutua kopioimaan tiedot taulukosta ja liittämään ne äskettäin luotuun työkirjaan. Seuraava makro kopioi solualueen aktiivisesta taulukosta ja liittää tiedot uuteen työkirjaan.
Kuinka makro toimii
Kuten näet, kun luet koodin rivit läpi, tämä makro on suhteellisen intuitiivinen:
Alamakro1()
Vaihe 1 Kopioi tiedot
Sheets("Esimerkki 1").Alue("B4:C15").Kopioi
Vaihe 2 Luo uusi työkirja
Työkirjat.Lisää
Vaihe 3 Liitä tiedot
ActiveSheet.Paste Destination:=Range("A1")
Vaihe 4 Poista sovellushälytykset käytöstä
Application.DisplayAlerts = False
Vaihe 5 Tallenna juuri luotu työkirja
ActiveWorkbook.SaveAs _
Tiedostonimi:="C:TempMyNewBook.xlsx"
Vaihe 6 Ota sovellushälytykset takaisin käyttöön
Application.DisplayAlerts = Tosi
Lopeta ala
Vaiheessa 1 kopioit tiedot, jotka vaihtelevat soluista B4 - C15. Huomaa, että määrität sekä arkin että alueen nimellä. Tämä lähestymistapa on paras käytäntö, kun työskentelet useiden avoimien työkirjojen kanssa.
Vaiheessa 2 käytät työkirjaobjektin Lisää-menetelmää työkirjan luomiseen. Tyhjä työkirja vastaa manuaalista valintaa Tiedosto→Uusi→Tyhjä asiakirja Excel-nauhasta.
Vaiheessa 3 käytät Liitä-menetelmää kopioitujen tietojen lähettämiseen uuden työkirjan soluun A1.
Kiinnitä huomiota siihen, että koodi viittaa ActiveSheet-objektiin. Kun lisäät työkirjan, uusi työkirja keskittyy välittömästi ja siitä tulee aktiivinen työkirja. (Excel tekee saman, kun lisäät työkirjan manuaalisesti.)
Koodin vaiheessa 4 määrität DisplayAlerts-metodin arvoksi False, mikä sammuttaa Excelin varoitukset tehokkaasti. Teet tämän, koska koodin seuraavassa vaiheessa tallennat juuri luodun työkirjan. Voit suorittaa tämän makron useita kertoja, jolloin Excel yrittää tallentaa tiedoston useita kertoja.
Mitä tapahtuu, kun yrität tallentaa työkirjan useita kertoja? Aivan oikein – Excel varoittaa, että samanniminen tiedosto on jo olemassa, ja kysyy sitten, haluatko korvata aiemmin olemassa olevan tiedoston. Koska tavoitteesi on automatisoida työkirjan luominen, haluat estää tämän varoituksen.
Vaiheessa 5 tallennat tiedoston SaveAs-menetelmällä. Huomaa, että annat tallennuspaikan koko polun, mukaan lukien lopullisen tiedostonimen.
Koska poistit sovellusmuutokset käytöstä vaiheessa 4, sinun on otettava ne uudelleen käyttöön (katso Vaihe 6). Jos et, Excel jatkaa kaikkien varoitusten estämistä nykyisen istunnon aikana.
Kuinka käyttää makroa
Voit ottaa tämän makron käyttöön kopioimalla ja liittämällä sen vakiomoduuliin:
Aktivoi Visual Basic Editor painamalla Alt+F11.
Napsauta hiiren kakkospainikkeella projektin/työkirjan nimeä projektiikkunassa.
Valitse Lisää → Moduuli.
Kirjoita tai liitä koodi äskettäin luotuun moduuliin.
Sinun on luultavasti muutettava taulukon nimeä, alueen osoitetta ja tallennuspaikkaa.