В открытой книге ,т.е. файле с расширением
“.XLS”  надо найти лист с именем “Sheet_1”
Как программно это сделать?

Dim m_sNameSheet As String
m_sNameSheet = “Sheet_1”

If m_sNameSheet <>  “Sheet_1” Then
	MsgBox “Лист ” & vbNewLine & _
m_sNameSheet & _
vbNewLine & “НЕ НАЙДЕН в ОТКРЫТОЙ КНИГЕ“
Exit  Sub
End If

' sWsName  - имя листа

Sub SomeSub(ByVal sWsName As String)
    Dim ws As Worksheet
On Error GoTo ErrH
    For Each ws In Workbooks("ИмяРабочейКниги").Worksheets
        If ws.Name = sWsName Then
            Exit For
        End If
    Next ws
    If ws Is Nothing Then
        MsgBox "Рабочий лист """ & sWsName & """ в данной книге не найден!", vbExclamation, ""
    End If
Exit Sub
ErrH:
    MsgBox Err.Description, vbCritical, Err.Source
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы