2010 - как пакетно назначить имена для клеток excel?

Pozia · Отправлено: **14:55, 23-01-2012** | #11

Iska, не могу найти у себя в 2010 русском. Не могли бы вы подсказать в какой хоть области это должно быть?

Iska · Отправлено: **15:01, 23-01-2012** | #12

выглядит иначе?

Pozia · Отправлено: **23:11, 23-01-2012** | #13

Iska, у меня в 2010 есть только Microsoft Office 14.0 Object Library. Это то, что нужно? Если да, то все равно ошибка, как на фото. Еще прикрепил свой персонал. Что может быть не так?
И еще, я попутал. Нужно вставлять не "Неформатированный текст", а "Текст в формате RTF". Можно это в скрипте исправить?

okshef · Конфигурация компьютера

Pozia, зачем вы сделали вложение в формате .xlsb?
Ну в крайнем случае *.xla, чтобы 2003 мог понять
Во-вторых, уберите все лишнее и оставьте только

Код:

Selection.PasteSpecial

и всё заработает

Pozia · Отправлено: **23:56, 23-01-2012** | #15

Цитата okshef:

и всё заработает »

почти заработал. Имя присваивает клетке. В ворд ничего не вставляется (. Прикрепил сейчас как надо

okshef · Конфигурация компьютера

Pozia, подождите Iska, а то я не совсем в теме

Iska · Отправлено: **04:29, 24-01-2012** | #17

Цитата Pozia:

Iska, у меня в 2010 есть только Microsoft Office 14.0 Object Library. Это то, что нужно? »

Да.

Цитата Pozia:

Если да, то все равно ошибка, как на фото. »

Мне следовало, пожалуй, вдумчивее подходить к подбору скриншота для иллюстрации. Вас это, очевидно, и ввело в заблуждение.

Суть вот в чём: код, приведённый в #8 нужно вставлять в проект того документа Microsoft Word, с которым мы работаем. Туда же добавлять и ссылку на «Microsoft Excel Object Library». Потом, когда всё заработает, можно будет подумать и о переносе кода в отдельный шаблон, ежели данный код Вам окажется потребен не только для одного документа.

Цитата Pozia:

И еще, я попутал. Нужно вставлять не "Неформатированный текст", а "Текст в формате RTF". Можно это в скрипте исправить? »

Попробуйте заменить в вышеприведённом коде:

Код:

            Selection.PasteSpecial , True, , , wdPasteText

на:

Код:

            Selection.PasteSpecial , True, , , wdPasteRTF

Pozia · Отправлено: **09:29, 24-01-2012** | #18

Iska, прошу прощения за свою тупоголовость ). Получилось. Сейчас попробовал на работе в глючном 2007 офисе и портабельном 2010. Наблюдалась только подвисание эксель секунд на 40 при первых двух трех вставках. Затем вроде нормально. У вас есть такие подвисания? Если нет, значит мои офисы кривые.
В шаблоне тоже прекрасно заработал. Спасибо огромное! ) Ваш скрипт сбережет кучу драгоценного времени ).
И еще вопрос по работе скрипта. Если я несколько раз вставляю одну и ту же клетку, то скрипт в последующем это количество раз пропускает и называет клетку не по порядку. Можно ли как то это исправить?

Iska · Отправлено: **11:08, 24-01-2012** | #19

Механизм там такой:

* имена назначаются уровня рабочего листа, а не рабочей книги;
* при повторном использовании того же диапазона просто назначается дополнительно ещё одно имя.

Можно попробовать тот же механизм с обработкой ошибок, что и в «NameExists()». Вам надо, чтобы, при наличии у выделенного диапазона имени, не задавалось новое имя, а использовалось уже существующее имя диапазона, так?

Цитата Pozia:

У вас есть такие подвисания? »

Нет, не наблюдалось.

Pozia · Отправлено: **11:52, 24-01-2012** | #20

да. Нужно чтобы использовалось текущее имя при его наличие у клетки