Информационные технологииStfw.Ru 🔍

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

RU.EXCEL
🕛 04.07.2006, 15:28
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

Visual Basic   Теги:

Читать IT-новости в Telegram
Информационные технологии
Мы в соцсетях ✉