ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA группируем и режем листы на книги
2 сообщений из 2, страница 1 из 1
VBA группируем и режем листы на книги
    #39838259
Wild-Jack
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wild-Jack
Участник
Здравствуйте, помогите дописать макрос.
Макрос ниже режет листы на книги. Все листы имеют формат из 4 цифр, к примеру 1101, 1102, 1107, 1408, 1409...
И мне необходимо копировать листы 1101, 1102 и 1107 в одну книгу и сохранять ее под именем 11, т.е. производиться группировка по первым 2 символам в названии листа, подскажите, как это сделать ?!
В итоге из одного файла у меня получится 2 файла с названиями 11 (внутри с листами 1101, 1102 и 1107) и 14 ( листы 1408 и 1409)

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub SplitBook()
    Dim s As Worksheet
    Dim wb as Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets
        s.Copy                                                  
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx" 
    Next
End Sub
...
Рейтинг: 0 / 0
17.07.2019, 12:15
| Ответить | Цитировать | Написать  
VBA группируем и режем листы на книги
    #39838282
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Учебный драфт.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim tmp() as string
redim tmp(1 to 1)
for each onesheet in thisworkbook.sheets
    if left(onesheet.name,2) = "11" then 
        tmp(ubound(tmp))=onesheet.name
        redim preserve tmp(1 to ubound(tmp)+1)
    endif
next
redim preserve tmp(1 to ubound(tmp)-1)
set wbk=workbooks.add
thisworkbook.sheets(tmp).copy before:=wbk.sheets(1)
wbk.saveas "11.xlsx"
wbk.close
...
Рейтинг: 0 / 0
17.07.2019, 13:18
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA группируем и режем листы на книги
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2172029]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 31ms
get topic data:
 11ms
get first new msg:
 7ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 287ms
total:  415ms
созд. / загр.: 415ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]