Средства разработки приложений


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


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




Начало  Назад  Вперед



Книжный магазин