Проверка наличия области в SharePoint

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка наличия области в SharePoint (Макросы/Sub)

Tunka-s

Дата: Среда, 09.08.2017, 17:48 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124

Репутация: 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 в книге, но тут же другое...

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

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

Ответить

Karataev

Дата: Среда, 09.08.2017, 17:56 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 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]

Ответить

Tunka-s

Дата: Среда, 09.08.2017, 18:09 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Karataev, Спасибо! Просто и красиво.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка наличия области в SharePoint (Макросы/Sub)

Страница 1 из 1
1