ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Разделить книгу Excel на листы
25 сообщений из 25, страница 1 из 1
Разделить книгу Excel на листы
    #38551904
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Доброго времени суток всем. Есть такая задача - разбить книгу Excel на листы, т.е. каждый лист сохранить в отдельном новом файле Excel, названном по имени листа.
Откопала на просторах интернета следующий код:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub SplitSheets2()

Dim s As Worksheet
Dim wb As Workbook
Set wb = ActiveWorkbook
For Each s In wb.Worksheets
s.Copy
s.SaveAs wb.Path & "\" & s.Name & ".xls"
Next
End Sub



Модератор: Учимся использовать тэги оформления кода - FAQ

Код не работает, т.к. на строке s.Copy появляется ошибка про Method failed.
Что делать?
...
Рейтинг: 0 / 0
06.02.2014, 14:33
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38551920
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
у меня не появляется.
файл в студию
...
Рейтинг: 0 / 0
06.02.2014, 14:40
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38551989
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Дело в том, что в файле и у меня все работает... Но когда я начинаю перебирать другие файлы, то происходит такая ошибка с метод фейлд.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub SplitSheets2()
    Dim s As Worksheet
    Dim Wb As Workbook
    With Application.FileDialog(msoFileDialogFilePicker)

      .InitialFileName = "P:\"
      If .Show = False Then Exit Sub
   
        For Each iFile In .SelectedItems
            Set Wb = Workbooks.Open(Filename:=iFile, local:=True)
            For Each s In Wb.Worksheets
            s.Copy
            s.SaveAs Wb.Path & "\" & s.Name & ".xls"
            Next
        Next
    End With
End Sub




Попробуйте вот такой код протестировать.
...
Рейтинг: 0 / 0
06.02.2014, 15:08
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552003
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
В общем эта ошибка то появляется, то нет... что может быть такого в файлах или в листах? Кто сталкивался?
...
Рейтинг: 0 / 0
06.02.2014, 15:17
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552064
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
а зачем там вообще s.Copy?
...
Рейтинг: 0 / 0
06.02.2014, 15:48
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552070
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Shocker.Proа зачем там вообще s.Copy?
Ну чтобы скопировать лист, а затем сохранить его в новом файле. Можно как-то по-другому?
...
Рейтинг: 0 / 0
06.02.2014, 15:50
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552109
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Так сохраняется-то не копия, а оригинал, итого - зачем команда s.Copy - непонятно
...
Рейтинг: 0 / 0
06.02.2014, 16:10
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552118
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
и вообще
http://www.sql.ru/forum/864869/sohranenie-listov-v-raznye-fayly
...
Рейтинг: 0 / 0
06.02.2014, 16:14
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552172
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Shocker.Proи вообще
http://www.sql.ru/forum/864869/sohranenie-listov-v-raznye-fayly

в данной теме решение не найдено, все равно ругается на copy.
...
Рейтинг: 0 / 0
06.02.2014, 16:45
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552325
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Случайная гостьячто может быть такого в файлах или в листах?Могут быть модули VBA (макросы), элементы управления. При создании копии такого листа может потребоваться перекомпиляция проектов VBA.

Вам намекнули, что команда s.Copy вообще не нужна. Попробовали?
...
Рейтинг: 0 / 0
06.02.2014, 18:35
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552462
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Судя по вопросу в первом посте проблема скорее не в Copy, а в SaveAs, т.к. сохраняется не то, что создалось:
Код: vbnet
1.
2.
s.Copy
ActiveWorkbook.SaveAs Wb.Path & "\" & s.Name & ".xls", Wb.Fileformat
...
Рейтинг: 0 / 0
06.02.2014, 19:51
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552890
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
The_PristСудя по вопросу в первом посте проблема скорее не в Copy, а в SaveAs, т.к. сохраняется не то, что создалось:
Код: vbnet
1.
2.
s.Copy
ActiveWorkbook.SaveAs Wb.Path & "\" & s.Name & ".xls", Wb.Fileformat



В первом посте написано, что именно на строке s.Copy появляется ошибка про Method failed. Без вариантов.
...
Рейтинг: 0 / 0
07.02.2014, 10:30
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552899
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
КазанскийСлучайная гостьячто может быть такого в файлах или в листах?Могут быть модули VBA (макросы), элементы управления. При создании копии такого листа может потребоваться перекомпиляция проектов VBA.

Вам намекнули, что команда s.Copy вообще не нужна. Попробовали?

Модулей нет, кроме описанного в первом посте.

Каким образом обойтись без команды s.Copy?
...
Рейтинг: 0 / 0
07.02.2014, 10:34
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552924
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Случайная гостьяКаким образом обойтись без команды s.Copy?просто стереть ее. в вашем коде она не делает ничего полезного
...
Рейтинг: 0 / 0
07.02.2014, 10:46
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552937
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Shocker.ProСлучайная гостьяКаким образом обойтись без команды s.Copy?просто стереть ее. в вашем коде она не делает ничего полезного

А вот если ее убрать - то у меня вместо одного листа в каждом файле получается столько листов, сколько в исходном файле. Но файлы копируются и называются по имени листов. Ошибок никаких нет.




Вот вариант без s.copy, но в этом случае ошибка возникает на строке s.Cells.Select, пишет, что метод Select завершен неверно.
Что я делаю не так???

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Sub SplitSheets2()
    Dim s As Worksheet
    Dim Wb As Workbook
    With Application.FileDialog(msoFileDialogFilePicker)

      .InitialFileName = "P:\Ñïðàâêà\òåñò\"
      If .Show = False Then Exit Sub
   
        For Each iFile In .SelectedItems
            Set Wb = Workbooks.Open(Filename:=iFile, local:=True)
            Wb.Activate
            For Each s In Wb.Worksheets
    
            s.Cells.Select
            Selection.Copy
            Workbooks.Add
            ActiveSheet.Paste
            Application.CutCopyMode = False
            ActiveWorkbook.SaveAs Filename:=Wb.Path & "\" & s.Name & ".xls", FileFormat:= _
                    xlOpenXMLWorkbook, CreateBackup:=False
            ActiveWindow.Close
                             
            Next
        Next
    End With
End Sub
...
Рейтинг: 0 / 0
07.02.2014, 10:58
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552948
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Случайная гостьяА вот если ее убрать - то у меня вместо одного листа в каждом файле получается столько листов, сколько в исходном файле.а если ее не убирать, будет .... то же самое!
Код: vbnet
1.
2.
s.Copy 'копирует ИСХОДНЫЙ лист в новую книгу
s.SaveAs wb.Path & "\" & s.Name & ".xls" 'сохраняет ИСХОДНЫЙ ЖЕ файл (а не новый)

говорю же, в вашем коде s.Copy ничего полезного не делает, она только создает новые книги, которые вы можете сохранить потом вручную
...
Рейтинг: 0 / 0
07.02.2014, 11:07
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38552959
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
И вообще, долго ли мы будем переливать из пустого в порожнее?
Я дал ссылку, там написано, что надо сделать
Вы с чего-то решили, то "в данной теме решение не найдено", видимо даже не читали ее
Вот ваш код - он рабочий.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub SplitSheets2()

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 & ".xls"
Next

End Sub

если у вас возникает проблема с s.Copy - это ваша локальная проблема. Файл вы давать отказываетесь, так что ничем помочь не можем
...
Рейтинг: 0 / 0
07.02.2014, 11:18
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38553032
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Shocker.ProИ вообще, долго ли мы будем переливать из пустого в порожнее?
Я дал ссылку, там написано, что надо сделать
Вы с чего-то решили, то "в данной теме решение не найдено", видимо даже не читали ее
Вот ваш код - он рабочий.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub SplitSheets2()

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 & ".xls"
Next

End Sub

если у вас возникает проблема с s.Copy - это ваша локальная проблема. Файл вы давать отказываетесь, так что ничем помочь не можем

С чего вы взяли, что я не читала? Я прочитала, что SaveAs можно применить к листу, что я и попробовала сделать - все равно сохраняется вся книга, листы по отдельности не копируются. Файл завтра из дома приложу.
...
Рейтинг: 0 / 0
07.02.2014, 11:55
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38553037
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Тогда приведите скрин этой чудесной ошибки. Кто его знает что Вы там и как пытаетесь. Может книга защищена, может у Вас еще какие коды выполняются(на активацию листа, например), может еще чего. Сама строка s.Copy не должна в штатной ситуации приводить к ошибке.
...
Рейтинг: 0 / 0
07.02.2014, 11:58
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38553044
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Случайная гостьяС чего вы взяли, что я не читала? Я прочитала, что SaveAs можно применить к листу, что я и попробовала сделать - все равно сохраняется вся книга, листы по отдельности не копируются. Файл завтра из дома приложу.Я вот тоже вижу, что не читали. И я, Shocker.Pro советуем как раз сохранять именно один лист. Вы хоть в строки вчитайтесь, раз в VBA ноль:
Код: vbnet
1.
2.
s.Copy 'копируем лист в новую книгу. Книга создается автоматом с один этим листом
ActiveWorkbook.SaveAs Wb.Path & "\" & s.Name & ".xls", Wb.Fileformat 'сохраняет именно созданную новую книгу с единственным листом, а не книгу с исходным листом
...
Рейтинг: 0 / 0
07.02.2014, 12:00
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38555072
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
The_PristТогда приведите скрин этой чудесной ошибки. Кто его знает что Вы там и как пытаетесь. Может книга защищена, может у Вас еще какие коды выполняются(на активацию листа, например), может еще чего. Сама строка s.Copy не должна в штатной ситуации приводить к ошибке.

Прикладываю скриншот ошибки и файл. Макрос в файле.
...
Рейтинг: 0 / 0
09.02.2014, 20:17
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38555419
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Как видно из выполнения макроса на вашем файле, ошибка возникает при копировании скрытого листа "BExRepositorySheet". Либо не копируйте этот лист, либо делайте его видимым перед копированием.
...
Рейтинг: 0 / 0
10.02.2014, 11:40
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38555466
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Shocker.ProКак видно из выполнения макроса на вашем файле, ошибка возникает при копировании скрытого листа "BExRepositorySheet". Либо не копируйте этот лист, либо делайте его видимым перед копированием.

Спасибо! Без этого листа все работает!!!
...
Рейтинг: 0 / 0
10.02.2014, 12:05
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38555482
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
а ведь с самого начала файл просил, ответ был бы немедленно
...
Рейтинг: 0 / 0
10.02.2014, 12:15
| Ответить | Цитировать | Написать  
Разделить книгу Excel на листы
    #38555557
Фотография Случайная гостья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Случайная гостья
Участник
Shocker.Proа ведь с самого начала файл просил, ответ был бы немедленно

Мне почему-то казалось, что скопировать код VBA в новую книгу Excel намного проще, чем скачивать файл.
Но профессионалу конечно виднее)))
В любом случае очень-очень много спасибо:) Выручили невероятно.
...
Рейтинг: 0 / 0
10.02.2014, 12:59
| Ответить | Цитировать | Написать  
25 сообщений из 25, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Разделить книгу Excel на листы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38552924&tid=2174246]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 57ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 313ms
total:  472ms
созд. / загр.: 472ms
x
x
Закрыть


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