ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как раскидать листы книги по отдельным файлам?
9 сообщений из 9, страница 1 из 1
Как раскидать листы книги по отдельным файлам?
    #38017662
_11_22_33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_11_22_33
Гость
Книга имеет 3 листа: ААА, БББ и ВВВ
Надо в добавление к ней создать 3 новых книги, в каждой из которых будет по одному из листов.
Пока делаю тупо: копирую исходную книгу в новый файл и в нём, в цикле, удаляю лишние листы. И так 3 раза.
Подозреваю, что как-то можно красивее - перебирать в цикле один раз листы исходной книги и сразу раскидывать её листы по новым книгам.
...
Рейтинг: 0 / 0
29.10.2012, 19:21
| Ответить | Цитировать | Написать  
Как раскидать листы книги по отдельным файлам?
    #38017687
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
2.
3.
For i = 1 To 3
  Worksheets(1).SaveAs "eeee" + CStr(i)
Next
...
Рейтинг: 0 / 0
29.10.2012, 19:43
| Ответить | Цитировать | Написать  
Как раскидать листы книги по отдельным файлам?
    #38017691
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Worksheets( i ) разумеется...
...
Рейтинг: 0 / 0
29.10.2012, 19:47
| Ответить | Цитировать | Написать  
Как раскидать листы книги по отдельным файлам?
    #38017711
_11_22_33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_11_22_33
Гость
Книги создаются...но в каждой тот же набор листов:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
xlsApp.Workbooks.Open ("C:\Main.xls")
Set xlsBook = xlsApp.ActiveWorkbook
intCountSource = xlsBook.Worksheets.Count 'число листов
For j = intCountSource To 1 Step -1
     xlsBook.sheets(j).SaveAs FileName:="C:\" & "Лист_" & xlsBook.sheets(j).Name
Next j
xlsBook.Close

правда в каждой из них фокус установлен на листе, который нужно скопировать.
...
Рейтинг: 0 / 0
29.10.2012, 20:11
| Ответить | Цитировать | Написать  
Как раскидать листы книги по отдельным файлам?
    #38017720
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
странно, зачем же тогда листу этот метод...
ну тогда так:
Код: vbnet
1.
2.
3.
4.
5.
For i = 1 To 3
  Worksheets(i).Copy
  Workbooks(Workbooks.Count).SaveAs "v:\eeee" + CStr(i) + ".xls"
  Workbooks(Workbooks.Count).Close
Next
...
Рейтинг: 0 / 0
29.10.2012, 20:29
| Ответить | Цитировать | Написать  
Как раскидать листы книги по отдельным файлам?
    #38018907
_11_22_33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_11_22_33
Гость
Да, вот так заработало. Спасибо!
И, в развитии темы - а если надо раскидать листы так: ААА и ВВВ - каждый в отдельный файл, а листы БББ и ГГГ - в один?
...
Рейтинг: 0 / 0
30.10.2012, 15:50
| Ответить | Цитировать | Написать  
Как раскидать листы книги по отдельным файлам?
    #38018955
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А что вызывает затруднение?
...
Рейтинг: 0 / 0
30.10.2012, 16:12
| Ответить | Цитировать | Написать  
Как раскидать листы книги по отдельным файлам?
    #38019059
_11_22_33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_11_22_33
Гость
Вот эти строки:
Код: vbnet
1.
2.
Worksheets(i).Copy
  Workbooks(Workbooks.Count).SaveAs "v:\eeee" + CStr(i) + ".xls"

если перекидывается 2 листа. но в один файл, то как?
...
Рейтинг: 0 / 0
30.10.2012, 16:55
| Ответить | Цитировать | Написать  
Как раскидать листы книги по отдельным файлам?
    #38019132
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
_11_22_33если перекидывается 2 листа. но в один файл, то как?блин, ну самому лень нажать "запись макроса" и посмотреть?
Код: vbnet
1.
Workheets(Array("Лист1", "Лист2")).Copy
...
Рейтинг: 0 / 0
30.10.2012, 17:39
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как раскидать листы книги по отдельным файлам?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38017691&tid=2175273]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 15ms
total:  136ms
созд. / загр.: 136ms
x
x
Закрыть


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