Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA группируем и режем листы на книги / 2 сообщений из 2, страница 1 из 1
17.07.2019, 12:15
    #39838259
Wild-Jack
Wild-Jack
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA группируем и режем листы на книги
Здравствуйте, помогите дописать макрос.
Макрос ниже режет листы на книги. Все листы имеют формат из 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, 13:18
    #39838282
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA группируем и режем листы на книги
Учебный драфт.
Код: 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA группируем и режем листы на книги / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 498ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172029]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 75ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 332ms
total:  498ms
x
x
Закрыть


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