Du kan noen ganger ønsker eller trenger å opprette en Excel-arbeidsbok i en automatisert måte. For eksempel kan du trenger å kopiere data fra en tabell, og lim det inn i en nyopprettet arbeidsbok. Følgende makro kopier et utvalg av celler fra det aktive arket og pastaer data inn i en ny arbeidsbok.

Hvordan makro verk

Som du ser når du leser gjennom linjene av kode, er denne makroen relativt intuitivt:
Sub Makro1 () 'Trinn 1 Kopier datablad ("Eksempel 1") Range ("B4: C15").. Copy'Step 2 Opprett en ny arbeidsbok Workbooks.Add' Trinn 3 Lim inn data ActiveSheet.Paste Destination: = Range ("A1") 'Trinn 4 Slå av applikasjonsvarsler Application.DisplayAlerts = False'Step 5 Redd nyopprettede arbeidsbok ActiveWorkbook.SaveAs _ Name: = "C: \\ Temp \\ MyNewBook.xlsx «Trinn 6 Slå applikasjonsvarsler tilbake på Application.DisplayAlerts = TrueEnd Sub

I trinn 1, du bare kopiere data som spenner fra cellene B4 til C15. Merk at du oppgir både arket og området ved navn. Denne tilnærmingen er en beste praksis når du arbeider med flere åpne arbeidsbøker.

I trinn 2 bruker du på Legg til metoden i arbeidsbok objekt for å skape en arbeidsbok. Den blank arbeidsbok tilsvarer manuelt velge Fil → New →.. Tomt dokument i Excel bånd

I trinn 3, du bruker Lim inn metoden for å sende de kopierte data til celle A1 til den nye arbeidsboken

Vær oppmerksom på at koden refererer til Active objektet. Når du legger til en arbeidsbok, umiddelbart får den nye arbeidsboken fokus, blir den aktive arbeidsboken. (Excel gjør det samme når du legger til en arbeidsbok manuelt.)

I trinn 4 av koden, setter du DisplayAlerts metoden til False, effektivt slå av Excel advarsler. Du gjør dette fordi i neste trinn av koden, sparer du den nyopprettede arbeidsboken. Du kan kjøre denne makro flere ganger, og i så fall Excel forsøker å lagre filen flere ganger.

Hva skjer når du prøver å lagre en arbeidsbok flere ganger? Det er riktig - Excel advarer deg om at det allerede finnes en fil med det navnet, og deretter spør om du vil overskrive den tidligere eksisterende filen. Fordi målet ditt er å automatisere opprettelsen av arbeidsboken, ønsker du å undertrykke den advarselen.

I trinn 5, lagrer du filen ved hjelp av SaveAs metoden. Legg merke til at du skriver inn den fullstendige banen til lagringssted, inkludert den endelige filnavnet.

Fordi du slått av applikasjons endrer i trinn 4, må du slå dem på igjen (se trinn 6). Hvis du ikke gjør det, fortsetter Excel til å undertrykke alle advarsler i løpet av inneværende sesjon

Hvordan bruke makro

For å implementere denne makroen, kan du kopiere og lime den inn i en standard modul.:

Aktiver Visual Basic Editor ved å trykke Alt + F11

Høyreklikk navnet på prosjektet /arbeidsbok i prosjektvinduet

Velg Sett &rarr..; modulen.

Skriv eller lim inn koden i den nyopprettede modulen.
Du vil sannsynligvis må endre arknavnet, utvalget adresse og lagringssted.