Копирование всех листов из одной книги в другую VBA

Пользователь

Сообщений: 146 Регистрация: 01.01.1970

08.02.2013 17:44:27

Добрый день!
Уважаемые форумчане, подскажите с кодом.
Никак не могу найти код для копирования именно всех листов из одной книги в другую (открытую, где запускается код).
Нашел лишь копирование одного листа (

Sub copy()
Dim wb As Workbook
Set wb = Workbooks.Open("c:\temp\другая книга.xls", ReadOnly:=True)
wb.Sheets("лист который надо скопировать" ;) .Copy before:=ThisWorkbook.Sheets(1)
wb.Close False
End Sub

SkyShark

Пользователь

Сообщений: 71 Регистрация: 18.01.2013

08.02.2013 17:52:30

Код

Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
wb.Sheets.copy before:=ThisWorkbook.Sheets(1)
For Each ws In wb.Sheets
   ws.copy before:=ThisWorkbook.Sheets(1)
Next
wb.Close False
Set wb = Nothing

End Sub

Поздно изменил, вернул как было

Изменено: SkyShark - 08.02.2013 18:01:17

ZVI

Пользователь

Сообщений: 4433 Регистрация: 23.12.2012

08.02.2013 17:58:46

Код
Sub SheetsCopy() With Workbooks.Open("c:\temp\другая книга.xls", ReadOnly:=True) .Sheets.Copy Before:=ThisWorkbook.Sheets(1) .Close False End With End Sub

Изменено: ZVI - 08.02.2013 17:59:08

Sergey_85 Пользователь Сообщений: 146 Регистрация: 01.01.1970	#4 08.02.2013 17:59:51 Спасибо )