Dažreiz var vēlēties vai nepieciešams izveidot Excel darbgrāmatu automatizētā veidā. Piemēram, jums var būt nepieciešams kopēt datus no tabulas un ielīmēt tos jaunizveidotā darbgrāmatā. Šis makro kopē šūnu diapazonu no aktīvās lapas un ielīmē datus jaunā darbgrāmatā.
Kā darbojas makro
Kā jūs redzēsit, izlasot koda rindiņas, šis makro ir salīdzinoši intuitīvs:
Apakšmakro1()
1. darbība Kopējiet datus
Sheets("Piemērs 1").Diapazons("B4:C15").Kopēt
2. darbība Izveidojiet jaunu darbgrāmatu
Darba burtnīcas.Pievienot
3. darbība Ielīmējiet datus
ActiveSheet.Paste Destination:=Range("A1")
4. darbība Izslēdziet lietojumprogrammu brīdinājumus
Application.DisplayAlerts = False
5. darbība Saglabājiet jaunizveidoto darbgrāmatu
ActiveWorkbook.SaveAs _
Faila nosaukums:="C:TempMyNewBook.xlsx"
6. darbība. Atkal ieslēdziet lietojumprogrammu brīdinājumus
Application.DisplayAlerts = True
Beigt apakš
1. darbībā vienkārši nokopējiet datus no šūnām B4 līdz C15. Ņemiet vērā, ka jūs norādāt gan lapu, gan diapazonu pēc nosaukuma. Šī pieeja ir labākā prakse, strādājot ar vairākām atvērtām darbgrāmatām.
2. darbībā darbgrāmatas izveidei izmantojiet darbgrāmatas objekta pievienošanas metodi. Tukša darbgrāmata ir līdzvērtīga manuālai izvēlei Fails → Jauns → Tukšs dokuments Excel lentē.
3. darbībā izmantojiet metodi Ielīmēt, lai nosūtītu kopētos datus uz jaunās darbgrāmatas šūnu A1.
Pievērsiet uzmanību tam, ka kods attiecas uz ActiveSheet objektu. Kad pievienojat darbgrāmatu, jaunā darbgrāmata nekavējoties tiek fokusēta, kļūstot par aktīvo darbgrāmatu. (Excel dara to pašu, kad darbgrāmatu pievienojat manuāli.)
Koda 4. darbībā iestatījāt DisplayAlerts metodi uz False, efektīvi izslēdzot Excel brīdinājumus. Jūs to darāt, jo nākamajā koda darbībā tiek saglabāta jaunizveidotā darbgrāmata. Šo makro var palaist vairākas reizes, un tādā gadījumā Excel mēģina saglabāt failu vairākas reizes.
Kas notiek, ja mēģināt saglabāt darbgrāmatu vairākas reizes? Tieši tā — programma Excel brīdina, ka jau ir fails ar šādu nosaukumu, un pēc tam jautā, vai vēlaties pārrakstīt iepriekš esošo failu. Tā kā jūsu mērķis ir automatizēt darbgrāmatas izveidi, vēlaties izslēgt šo brīdinājumu.
5. darbībā fails tiek saglabāts, izmantojot metodi SaveAs. Ņemiet vērā, ka ievadāt pilnu saglabāšanas vietas ceļu, ieskaitot galīgo faila nosaukumu.
Tā kā 4. darbībā izslēdzāt lietojumprogrammu izmaiņas, tās ir jāieslēdz no jauna (skatiet 6. darbību). Ja to nedarīsit, programma Excel turpina apspiest visus brīdinājumus pašreizējās sesijas laikā.
Kā lietot makro
Lai ieviestu šo makro, varat to kopēt un ielīmēt standarta modulī:
Aktivizējiet Visual Basic redaktoru, nospiežot Alt+F11.
Ar peles labo pogu noklikšķiniet uz projekta/darbgrāmatas nosaukuma projekta logā.
Izvēlieties Ievietot → Modulis.
Ierakstiet vai ielīmējiet kodu jaunizveidotajā modulī.
Iespējams, jums būs jāmaina lapas nosaukums, diapazona adrese un saglabāšanas vieta.