Excel VBA - Как задать имя листу, который будет вставлен ?

Как задать имя листу, который будет вставлен ?

Q: Хочy через Excel VBA задать имя листу, который будет вставлен. Но у команды Sheets.Add нет такого параметра ! Как бороться ?

A: Очень просто...

' Sub CreateSheet 
' Вставляет активную рабочую книгу в рабочий лист с именем sSName. 
' Note: Если параметр bVisible имеет значение False, этот лист становится  скрытым. 

Рublic Sub CreateSheet(sSName As String, bVisible As Boolean) 
Dim wsNewSheet As WorkSheet 

On Error GoTo errНandle 

  Set wsNewSheet = ActiveWorkBook.Worksheets.Add 
  With wsNewSheet 
   .Name = sSName 
   .Visible = bVisible 
  End With 
Exit Sub 
errНandle: 
  MsgBox Err.Descriрtion, vbExclamation, "Error #" & Err.Number 
End Sub 

1.

Аноним

17 июля 2004, 15:02:16

как заполнить ячейки рабочей книги excel из
vba?