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

Вход

Регистрация

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

 

= Мир MS Excel/КОПИРОВАНИЕ ЛИСТОВ И ЗАМЕНА ЗНАЧЕНИЙ МАКРОСОМ - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
КОПИРОВАНИЕ ЛИСТОВ И ЗАМЕНА ЗНАЧЕНИЙ МАКРОСОМ
i72 Дата: Четверг, 22.10.2015, 11:58 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Имеется файл PERSONAL вкладываемый в папку XLSTART, несущий в себе макросы. Данные макросы были написаны для Microsoft 2007 и при пользовании в нем была добавлена надстройка, при установке Microsoft 2013, макросы перестали работать. Помогите адаптировать данный макрос в настоящий офис. Этот макрос копировал последний созданный лист с данными и менял некоторые значения.
К сообщению приложен файл: PERSONAL1.xls (77.0 Kb)
 
Ответить
СообщениеИмеется файл PERSONAL вкладываемый в папку XLSTART, несущий в себе макросы. Данные макросы были написаны для Microsoft 2007 и при пользовании в нем была добавлена надстройка, при установке Microsoft 2013, макросы перестали работать. Помогите адаптировать данный макрос в настоящий офис. Этот макрос копировал последний созданный лист с данными и менял некоторые значения.

Автор - i72
Дата добавления - 22.10.2015 в 11:58
SLAVICK Дата: Четверг, 22.10.2015, 13:10 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Этот макрос

Это какой - у Вас там 13-ь модулей? :'( где именно выдает ошибку?
У меня ругался только на 13-й:
[vba]
Код
Sub zp_best()
    ActiveWorkbook.SaveAs Filename:="РАСПЗП01.CSV", FileFormat:=xlCSVMSDOS, CreateBackup:=False
End Sub
[/vba]
потому-что в нем были разделители ";"
К сообщению приложен файл: PERSONAL1-1-.xls (62.5 Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Этот макрос

Это какой - у Вас там 13-ь модулей? :'( где именно выдает ошибку?
У меня ругался только на 13-й:
[vba]
Код
Sub zp_best()
    ActiveWorkbook.SaveAs Filename:="РАСПЗП01.CSV", FileFormat:=xlCSVMSDOS, CreateBackup:=False
End Sub
[/vba]
потому-что в нем были разделители ";"

Автор - SLAVICK
Дата добавления - 22.10.2015 в 13:10
  • Страница 1 из 1
  • 1
Поиск:

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