Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Проверка наличия области в SharePoint - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка наличия области в SharePoint (Макросы/Sub)
Проверка наличия области в SharePoint
Tunka-s Дата: Среда, 09.08.2017, 17:48 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 82
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте.

Ужасно неудобно, но у меня опять дурацкий вопрос.

Есть код:

[vba]
Код

ActiveWorkbook.CustomDocumentProperties("SH_TAB").Value = Range("SH_TAB")

ActiveWorkbook.ContentTypeProperties("SH_TAB").Value = Names("SH_TAB").RefersToRange(1).Value
[/vba]

Он передает инфу из клеточки Sh_TAB в Эксель в соответствующую клеточку на Шаре. Если на шаре это имя не существует, имеем ошибку. А как записать, чтобы для начала макрос проверял, существует ли это имя, а потом уже передавал данные только если его нашел?
Нашла какой-то пример как проверить range в книге, но тут же другое...

Альтернативно идея была проверять маршрут куда сохраняется файл. Если маршрут Шаре/ааа, то выполняй макрос, а если нет, то выходи.
Но этот вариант тоже не реализуется с моими знаниями.

Как прикладывать файл не знаю, потому что все равно ссылки работать не будут.
 
Ответить
СообщениеЗдравствуйте.

Ужасно неудобно, но у меня опять дурацкий вопрос.

Есть код:

[vba]
Код

ActiveWorkbook.CustomDocumentProperties("SH_TAB").Value = Range("SH_TAB")

ActiveWorkbook.ContentTypeProperties("SH_TAB").Value = Names("SH_TAB").RefersToRange(1).Value
[/vba]

Он передает инфу из клеточки Sh_TAB в Эксель в соответствующую клеточку на Шаре. Если на шаре это имя не существует, имеем ошибку. А как записать, чтобы для начала макрос проверял, существует ли это имя, а потом уже передавал данные только если его нашел?
Нашла какой-то пример как проверить range в книге, но тут же другое...

Альтернативно идея была проверять маршрут куда сохраняется файл. Если маршрут Шаре/ааа, то выполняй макрос, а если нет, то выходи.
Но этот вариант тоже не реализуется с моими знаниями.

Как прикладывать файл не знаю, потому что все равно ссылки работать не будут.

Автор - Tunka-s
Дата добавления - 09.08.2017 в 17:48
Karataev Дата: Среда, 09.08.2017, 17:56 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 890
Репутация: 336 ±
Замечаний: 0% ±

Excel
Можно окружить код в обработчик ошибок и тогда не будет ошибки, если нет нужного свойства:
[vba]
Код
Sub Шар()
    On Error Resume Next
        ActiveWorkbook.CustomDocumentProperties("SH_TAB").Value = Range("SH_TAB")
        ActiveWorkbook.ContentTypeProperties("SH_TAB").Value = Names("SH_TAB").RefersToRange(1).Value
    On Error GoTo 0
End Sub
[/vba]


 
Ответить
СообщениеМожно окружить код в обработчик ошибок и тогда не будет ошибки, если нет нужного свойства:
[vba]
Код
Sub Шар()
    On Error Resume Next
        ActiveWorkbook.CustomDocumentProperties("SH_TAB").Value = Range("SH_TAB")
        ActiveWorkbook.ContentTypeProperties("SH_TAB").Value = Names("SH_TAB").RefersToRange(1).Value
    On Error GoTo 0
End Sub
[/vba]

Автор - Karataev
Дата добавления - 09.08.2017 в 17:56
Tunka-s Дата: Среда, 09.08.2017, 18:09 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 82
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Karataev, Спасибо! Просто и красиво. :)
 
Ответить
СообщениеKarataev, Спасибо! Просто и красиво. :)

Автор - Tunka-s
Дата добавления - 09.08.2017 в 18:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка наличия области в SharePoint (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!