Типичная задача. Есть много листов названия которых нас не устраивают. Мы хотим их переименовать. Делать это вручную очень долго.
C надстройкой ЁXCEL это сделать легко.
Перейдите во вкладку "ЁXCEL" главного меню, нажмите кнопку "Листы", в выпавшем списке выберите пункт "Получить список листов книги":
В открывшемся диалоговом окне установите переключатель в положение "Простой список листов (все листы)" и нажмите "ОК":
Программа создаст в активной книге новый лист на который выведет названия всех листов:
Исключите из списка листы, которые вы не хотите переименовывать, а напротив оставшихся введите новые названия, чтобы получилось так:
Выделите диапазон со старыми и новыми названиями листов, перейдите во вкладку "ЁXCEL" главного меню, нажмите кнопку "Листы" и выберите команду "Переименовать листы из списка":
В открывшемся диалоговом окне нажмите "ОК":
Указанные листы будут переименованы.
 |
 |
 |
 |
Комментарии
Ошибка вот в этой строке
Me.RefEdit1.Value = "'" & ActiveSheet.Nam e & "'!" & Selection.Addre ss
На первый взгляд кажется, что у вас проблема с библиотекой refedit.dll. Она отсутствует. Решение такое:
1. Через проводник запустите поиск файла refedit.dll на ПК.
2. Если файл на ПК не найден, то его необходимо скачать и положить в соответствующую папку (для разных офисов она разная, при скачивании, обычно пишут для какой версии в какую папку помещать).
Просто наберите в поисковике: "скачать refedit.dll"
Библиотека найдена на ПК по пути C:\Program Files (x86)\Microsoft Office\Office14
Сергей я сам когда писал VB для Excel сейчас правда стал 1с ником я зашел в проектVB у меня на форме "Переименовать листы" в конструкторе VB нет поля с диапазоном листов.
Снести тоже не помогает.
Сергей через Tools подключал не помогло.
Сергей файл один у меня.
Файл отправил.
Windows 7? MS Office 2010