Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA: Проверить существование листа в книге, как ? / 7 сообщений из 7, страница 1 из 1
31.08.2006, 17:14
    #33956295
QnX
QnX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: Проверить существование листа в книге, как ?
Собственно сабж.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.08.2006, 17:35
    #33956405
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: Проверить существование листа в книге, как ?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Function SheetExists(ShName As String) As Boolean
Dim Sh As Worksheet
    SheetExists = False
    For Each Sh In ActiveWorkbook.Sheets
        If Sh.Name Like ShName Then
            SheetExists = True
            Set Sh = Nothing
            Exit Function
        End If
    Next Sh
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.08.2006, 17:37
    #33956415
QnX
QnX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: Проверить существование листа в книге, как ?
Спасибо или вот такое решение, сам нарыл
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Function SheetExist(strSheetName As String) As Boolean
    Dim objSheet As Object
    
    On Error GoTo HandleError
    ThisWorkbook.Worksheets(strSheetName).Activate
    SheetExist = True
    Exit Function
    
HandleError:
    SheetExist = False
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.08.2006, 17:39
    #33956422
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: Проверить существование листа в книге, как ?
Пример из одной книги. Вроде проще.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Function SheetExists(SheetName As String) As Boolean
        Dim obj As Object
        On Error GoTo errorHandler:
        Set obj = sheets(SheetName)
        SheetExists = True
        Exit Function
errorHandler:
        SheetExists = False
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
15.08.2012, 08:37
    #37916904
Bagir
Bagir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: Проверить существование листа в книге, как ?
Ну первое решение конечно же красивее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.08.2012, 09:52
    #37917005
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: Проверить существование листа в книге, как ?
Чуть короче:
Код: vbnet
1.
2.
3.
4.
5.
6.
Function Sh_Exist(sName As String) As Boolean
    Dim wsSh As Worksheet
    On Error Resume Next
    Set wsSh = Sheets(sName)
    Sh_Exist = Not wsSh Is Nothing
End Function



Ссылка на статью , где описано как применить в виде функции и вне её.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.08.2012, 09:56
    #37917012
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA: Проверить существование листа в книге, как ?
Код: vbnet
1.
2.
3.
4.
Function SheetExists(SheetName As String) As Boolean
On Error Resume Next
SheetExists = Not Sheets(SheetName) Is Nothing
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA: Проверить существование листа в книге, как ? / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]