Šī apmācība parādīs dažādas metodes, kā izveidot jaunu darbgrāmatu, izmantojot VBA.
Izveidot jaunu darbgrāmatu
Lai izveidotu jaunu darbgrāmatu, vienkārši izmantojiet Darbgrāmatas. Pievienot:
| 1 | Darbgrāmatas. Pievienot |
Nesen pievienotā darbgrāmata tagad ir ActiveWorkbook.
To var redzēt, izmantojot šo kodu:
| 123456 | Sub AddWB ()Darbgrāmatas. PievienotMsgBox ActiveWorkbook.NameBeigu apakš |
Izveidojiet jaunu darbgrāmatu un piešķiriet objektam
Varat izmantot ActiveWorkbook objektu, lai atsauktos uz jauno darbgrāmatu. Izmantojot to, jūs varat piešķirt jauno darbgrāmatu objekta mainīgajam:
| 1234 | Dim wb kā darbgrāmataDarbgrāmatas. PievienotIestatīt wb = ActiveWorkbook |
Bet ir labāk / vieglāk nekavējoties piešķirt darbgrāmatu mainīgajam, kad tiek izveidota darbgrāmata:
| 123 | Dim wb kā darbgrāmataIestatiet wb = darbgrāmatas. Pievienot |
Tagad jūs varat atsaukties uz jauno darbgrāmatu pēc tā mainīgā nosaukuma.
| 1 | MsgBox wb.Name |
Izveidojiet jaunu darbgrāmatu un saglabājiet
Varat arī izveidot jaunu darbgrāmatu un nekavējoties to saglabāt:
| 1 | Workbooks.Add.SaveAs Faila nosaukums: = "NewWB" |
Tādējādi darbgrāmata tiks saglabāta kā .xlsx fails noklusējuma mapē (piem., Mani dokumenti). Tā vietā varat pielāgot SaveAs, izmantojot mūsu rokasgrāmatu par darbgrāmatu saglabāšanu.
Tagad jūs varat atsaukties uz darbgrāmatu ar tās nosaukumu:
| 1 | Darbgrāmatas ("NewWB.xlsx"). Aktivizēt |
Šis kods aktivizēs “NewWB.xlsx”.
Izveidojiet jaunu darbgrāmatu un pievienojiet lapas
Pēc darbgrāmatas izveides varat to rediģēt. Šeit ir tikai viens piemērs, kā jaunajai darbgrāmatai pievienot divas lapas (pieņemot, ka tā ir ActiveWorkbook):
| 1 | ActiveWorkbook.Worksheets.Add Count: = 2 |
