Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Войти
 
Страницы: 1
RSS
Microsoft Excel - Как сохранить?
 
Проблема такая, у меня есть 30 листов екселевских в одном файле, мне их нужно сохранить быстренько в 30 екселевских файлов, могет кто-нить подскажет как ето можно сделать?
 
Скопировать файл в 30 файлов, а затем в каждом файле легким нажатием мышки удалить лишние листы
 
Или же макрос написать внутри Excel
 
Цитата
X_Tra пишет:
Или же макрос написать внутри Excel
Вот с макросом - эта идея намного интереснее смотриться! Но можно ли об этом немного поподробнее...
 
Берешь пишешь функцию (макрос) на VBA который создает объекты Excel:

Dim m_appXl As New Excel.Application
Dim m_shUsageData As Excel.Worksheet
Dim m_wbEnergy As Excel.Workbook

заполняешь эти объекты нужными тебе данными и сохраняешь так:

m_wbEnergy.SaveAs "c:\file.xls", xlNoramal

или так
ActiveWorkbook.saveas "c:\file.xls", xlNoramal

в общем покапай в эту сторону посмотри примеры там все просто.....могу если надо книгу по VBA на английском выслать на почту, только скажи  
 
проще так:
Код
for i=1 to excel.activeworkbook.worksheets.count
     excel.activeworkbook.worksheets(I).s aveas( I)
next i

после этого файлы будут в папке Мои документы текущего пользователя
подробнее написано в справке Excel VBA
Страницы: 1
Читают тему