Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 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):
x
x
Закрыть


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