Добавить лист в конец книги vba excel

8 ответов

Private Sub CreateSheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = "Tempo"
End Sub

Private Sub CreateSheet()
    Dim ws As Worksheet
    With ThisWorkbook
        Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count))
        ws.Name = "Tempo"
    End With
End Sub

Sub CreateSheet()
    With ThisWorkbook
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "Temp"
    End With
End Sub

Sheets.Add(After:=Sheets(Sheets.Count)).Name = "new_sheet_name"

Public Enum iSide
iBefore
iAfter
End Enum
Private Function addSheet(ByRef inWB As Workbook, ByVal inBeforeOrAfter As iSide, ByRef inNamePrefix As String, ByVal inName As String) As Worksheet
    On Error GoTo the_dark

    Dim wsSheet As Worksheet
    Dim bFoundWS As Boolean
    bFoundWS = False
    If inNamePrefix <> "" Then
        Set wsSheet = findWS(inWB, inNamePrefix, bFoundWS)
    End If

    If inBeforeOrAfter = iAfter Then
        If wsSheet Is Nothing Or bFoundWS = False Then
            Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = inName
        Else
            Worksheets.Add(After:=wsSheet).Name = inName
        End If
    Else
        If wsSheet Is Nothing Or bFoundWS = False Then
            Worksheets.Add(Before:=Worksheets(1)).Name = inName
        Else
            Worksheets.Add(Before:=wsSheet).Name = inName
        End If
    End If

    Set addSheet = findWS(inWB, inName, bFoundWS)         ' just to confirm it exists and gets it handle

    the_light:
    Exit Function
    the_dark:
    MsgBox "addSheet: " & inName & ": " & Err.Description, vbOKOnly, "unexpected error"
    Err.Clear
    GoTo the_light
End Function

ThisWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "XYZ"

Worksheets.Add (After:=Worksheets(Worksheets.Count)).Name = "MySheet"

Function funcCreateList(argCreateList)
    For Each Worksheet In ThisWorkbook.Worksheets
        If argCreateList = Worksheet.Name Then
            Exit Function ' if found - exit function
        End If
    Next Worksheet
    Worksheets.Add (After:=Worksheets(Worksheets.Count)).Name = argCreateList
End Function

Sub main

    funcCreateList "MySheet"

Exit Sub

Private Sub CreateSheet()
    Dim ws As Worksheet
    Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
    ws.Name = "Tempo"
End Sub

Call CreateWorksheet("New", False, False, False)


Sub CreateWorksheet(sheetName, preserveOldSheet, isLastSheet, selectActiveSheet)
  activeSheetNumber = Sheets(ActiveSheet.Name).Index

  If (Evaluate("ISREF('" & sheetName & "'!A1)")) Then 'Does sheet exist?
    If (preserveOldSheet) Then
      MsgBox ("Can not create sheet " + sheetName + ". This sheet exist.")
      Exit Sub
    End If
      Application.DisplayAlerts = False
      Worksheets(sheetName).Delete
    End If

    If (isLastSheet) Then
      Sheets.Add(After:=Sheets(Sheets.Count)).Name = sheetName 'Place sheet at the end.
    Else 'Place sheet after the active sheet.
      Sheets.Add(After:=Sheets(activeSheetNumber)).Name = sheetName
    End If

    If (selectActiveSheet) Then
      Sheets(activeSheetNumber).Activate
    End If

End Sub

Sheets.Add.Name = "Tempo"

В этом руководстве будет рассказано, как добавлять / вставлять листы с помощью VBA.

Добавить лист

Этот простой макрос добавит лист перед ActiveSheet:

После вставки листа новый лист становится ActiveSheet. Затем вы можете использовать объект ActiveSheet для работы с новым листом (внизу этой статьи мы покажем, как вставить новый лист непосредственно в переменную).

Добавить лист с именем

Вы также можете определить имя листа при создании нового листа:

Создать новый лист с именем из ячейки

Или используйте значение ячейки, чтобы назвать новый лист:

Добавить лист до / после другого листа

Вы также можете выбрать место, где будет вставлен новый лист. Вы можете использовать свойства «После» или «До», чтобы вставить лист в определенное место в книге.

Вставить лист после другого листа

Этот код вставит новый лист ПОСЛЕ другого листа:

Это вставит новый лист ПОСЛЕ другого листа и укажет имя листа:

Обратите внимание на дополнительные круглые скобки, необходимые во втором примере (первый пример выдаст ошибку, если добавить вторую круглую скобку).

или до:

В этих примерах мы явно назвали Лист, используемый для определения местоположения листа. Часто вместо этого вам нужно использовать индекс листа, чтобы можно было вставить лист в начало или конец книги:

Добавить лист в конец книги

Чтобы добавить лист в конец книги:

Добавить лист в начало книги:

Чтобы добавить лист в начало книги:

Добавить лист в переменную

Этот код назначает новый лист переменной при создании листа:

Отсюда вы можете ссылаться на новый лист с помощью переменной «ws»:

Дополнительные примеры добавления листов

Создать лист, если его еще нет

Вы можете создать лист, только если он еще не существует.

Создать рабочие листы из списка имен

Следующая процедура будет смотреть на содержимое одного столбца, настраивая рабочие листы Excel в текущей книге с этими именами. Он вызывает другую функцию, чтобы узнать, существует ли уже лист с таким именем, и если да, то лист не создается.

Итак, если у нас есть следующий текст в ячейках A1: A30 на листе 2:

Тогда будут созданы следующие листы:

Обратите внимание, что хотя «Собака» появляется дважды, создается только один лист.

Чтобы загрузить файл .XLS для этого руководства, щелкните здесь.

Вы поможете развитию сайта, поделившись страницей с друзьями

13.10.10 — 12:55

в VBA это      Sheets.Add After:=ActiveSheet

а в 1С такая запись не прокатывает… только со скобками, типа РабочаяКнига.Sheets.Add()

но так добавляется лист в начало, а мне нужно в конец….

1 — 13.10.10 — 12:57

РабочаяКнига.Sheets.Add(,ActiveShhet)

2 — 13.10.10 — 13:02

ахха… только нету в 1С ActiveSheet

3 — 13.10.10 — 13:02

можно высказывать практические а не теоретические выкладки?

4 — 13.10.10 — 13:10

5 — 13.10.10 — 13:15

(4) в VBA все работает нужно из 1С выполнять… пока не соображу…

6 — 13.10.10 — 13:19

может у кого-то все же живой коТ есть?

7 — 13.10.10 — 13:22

есть три варианта, Вам какой ?

8 — 13.10.10 — 13:27

(7) рабочий

9 — 13.10.10 — 13:29

нагуглил кучу копипастеных Add ПЕРЕД текущим листом… и немного вопросов как вставить ПОСЛЕ, но без ответов

10 — 13.10.10 — 13:43

(7) ты где? или рабочих вариантов нет?

11 — 13.10.10 — 13:57

ку ку
где коллективный разум?

12 — 13.10.10 — 14:00

старый баян.

без изврата с выполнением скриптов вба — никак

надо добавлять перед последним листом и перемещать его в конец.

13 — 13.10.10 — 14:41

перемещать там тоже только     ActiveSheet.Move After:=Sheets(6)
примерно такая схема, в 1Ц не прокатит

14 — 13.10.10 — 14:46

(13) ща пороюсь в старом коде

15 — 13.10.10 — 14:47

Дак сделай макрос в экселе который будет создавать новую страницу и помещать её в конец. И запускай этот макрос из 1С.

16 — 13.10.10 — 14:50

Можно на лету (из 1С) добавлять макросы в эксель.

17 — 13.10.10 — 14:54

(13) Е=СоздатьОбъект(«Excel.Application»);

Е.Workbooks.Open(«…»,0,0,5,Строка(«…»));

Е.Sheets(Е.Sheets.Count).Select();

Е.Sheets.Add();

Е.Sheets(Е.Sheets.Count).Move(Е.Sheets(Е.Sheets.Count-1));

18 — 13.10.10 — 14:55

+(17) то бишь перемещаем последний лист на предпоследнее место

19 — 13.10.10 — 14:55

(13) давно бы уже разобрался и сделал. держи добавление в конец:
   обЭксел  = Новый ComОбъект(«excel.application»);
   НашФайл = обЭксел.Workbooks.Open(СокрЛП(Путь)); //Открываем файл
   НашФайл.Sheets(3).Select();  //выбираем третий лист (у меня он был последним) как выбрать самый последний лист через каунт найдешь.
   НовыйЛист = НашФайл.Sheets.Add(,НашФайл.ActiveSheet);
   НашФайл.Save();
   ОбЭксел.WorkBooks.close(); // закрываем файл- экселя
все, добавлен лист в конец. никаких проблем.
код восьмерочный, но думаю в седьмой перевести не проблема.

20 — 13.10.10 — 14:56

(19) проблема. Насколько я помню, проблема в том, что в 77 не работают пустые параметры

21 — 13.10.10 — 14:59

(20) ок.
строку
НовыйЛист = НашФайл.Sheets.Add(,НашФайл.ActiveSheet);
заменить на:
НовыйЛист = НашФайл.Sheets.Add();
один фиг в конц добавит.

22 — 13.10.10 — 15:00

(21) потесть теперь. эксель 2003 добавляет предпоследним

23 — 13.10.10 — 15:07

(21) читай 0

24 — 13.10.10 — 15:09

(17) спс, сейчас проверю

25 — 13.10.10 — 15:10

(23) а что там? тебе в начало чтоли нужно?

26 — 13.10.10 — 15:11

(25) прочитай

27 — 13.10.10 — 15:13

(26)
«но так добавляется лист в начало, а мне нужно в конец….»
что я не так прочитал?

28 — 13.10.10 — 15:14

(27) мне нужно, в конец… а предпоследний, это ПОЧТИ в конец, мне не нужно ПОЧТИ нужно апсолютно

29 — 13.10.10 — 15:17

(28) я что-то написал про почти не конец?
если ты внимательно читаешь ветку, то код что написал я добавляет его в конец, но в восьмерке, мувнуть лист не проблема, хотя если два часа ждать готового решения, то наверное это сложно. сейчас потестю под семеркой отпишу.

30 — 13.10.10 — 15:23

(29) у Add первый параметр — это лист, ПЕРЕД которым добавится лист, по умолчанию перед текущим. В семерку ты не можешь опустить этот параметр, точнее можешь, но вместе со всеми остальными. Поэтому либо ты указываешь лист, перед которым вставить, либо вставляешь перед текущим. Поэтому (21) не отработает как надо

31 — 13.10.10 — 15:32

(30) согласен, в семерке только двигать лист.

32 — 13.10.10 — 15:56

33 — 13.10.10 — 16:03

(32) без скриптов есть? просто из интереса спрашиваю

34 — 13.10.10 — 16:04

(33) есть, используется Excel4Macro

35 — 13.10.10 — 16:05

только сейчас на вскидку не скажу как, надо справку зырить, вней говорится, что только перед активным на сколько помню, но как то изворачивался

36 — 13.10.10 — 16:06

(29) я два часа немного другим занимался и сейчас занимаюсь, этот вопрос пока отложил… как освобожусь, попробую предпоследний в конец перекидывать

37 — 13.10.10 — 16:07

(34) а это что такое?

38 — 13.10.10 — 16:08

(37) это методы для объекта апликейшн (екселя) выполнения устаревших макрокоманд

39 — 13.10.10 — 16:53

(17) чото они не перемещаются…. команда выполняется, но ни чего не происходит

40 — 13.10.10 — 16:54

(39) а (32)?

41 — 13.10.10 — 17:01

(40) чото (32) пока религия не позволяет… (17) работает… тупанул немного куча файлов открытая… не то не туда снесло

42 — 13.10.10 — 17:36

(41) какая на религия, в (32) два способа добавления, один как в (17) но более правильный

(42) с первым согласен… а вот скрипты это уже религия