Този урок ще демонстрира различни методи за създаване на нова работна книга с помощта на VBA.
Създайте нова работна книга
За да създадете нова работна книга, просто използвайте Работни книги:
| 1 | Работни книги |
Наскоро добавената работна книга вече е ActiveWorkbook.
Можете да видите това с помощта на този код:
| 123456 | Sub AddWB ()Работни книгиMsgBox ActiveWorkbook.NameEnd Sub |
Създаване на нова работна книга и присвояване на обект
Можете да използвате обекта ActiveWorkbook, за да препратите към новата работна книга. Използвайки това, можете да присвоите новата работна книга на променлива на обект:
| 1234 | Dim wb като работна книгаРаботни книгиЗадайте wb = ActiveWorkbook |
Но е по -добре / по -лесно да присвоите работната книга веднага на променлива, когато работната книга е създадена:
| 123 | Dim wb Като работна книгаЗадайте wb = Работни книги |
Сега можете да посочите новата работна книга по нейното име на променлива.
| 1 | MsgBox wb.Name |
Създайте нова работна книга и запазете
Можете също да създадете нова работна книга и веднага да я запазите:
| 1 | Workbooks.Add.SaveAs Име на файла: = "NewWB" |
Това ще запише работната книга като .xlsx файл във вашата папка по подразбиране (напр. Моите документи). Вместо това можете да персонализирате SaveAs с нашето ръководство за запазване на работни книги.
Сега можете да се обърнете към работната книга по нейното име:
| 1 | Работни книги („NewWB.xlsx“). Активирайте |
Този код ще активира „NewWB.xlsx“.
Създайте нова работна книга и добавете листове
След като създадете работна книга, можете да я редактирате. Ето само един пример за добавяне на два листа към новата работна книга (ако приемем, че е ActiveWorkbook):
| 1 | ActiveWorkbook.Worksheets.Adff Count: = 2 |
