MyTetra Share
Делитесь знаниями!
задать имя листу, который будет вставлен?
16.03.2019
23:43
Текстовые метки: Excel, VBA, имя, лист
Раздел: !Закладки - VBA - Excel

Р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

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

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования