Народ очень нужна помощь, а именно Есть книга excel в ней есть 3 листа, (Лист1,Лист2,Лист3), как с помощь макроса сохранить в новой книге Лист2 и Лист3.

The_Pristnikolll,

запись макроса не помогает? Есть такая возможность копировать в имеющуюся или в новую книгу выделенные листы. Листы можно выделить через Shift и через Ctrl.

Либо же от обратного: можно удалить в этой книге ненужные листы и сохранить как. Макрос это тоже отлично все проделает.

Удалять не нужно нужно скопировать и можно написать первое предложение в виде макроса

[quot The_Prist]nikolllи можно написать первое предложение в виде макросаКак-то нагловато звучит, нет? Не просьба, не вопрос. А как бы утверждение. И самостоятельных затрат ноль. Да и про удалять я написал позже, перед этим предложив скопировать. Вы знаете как руками скопировать листы в другую книгу? Выделяете нужные листы(с зажатым Ctrl) -Правая кнопка мыши на ярлычке любого из выделенных листов -Переместить или скопировать. В вып. списке выбираете любую из открытых книг(если надо в открытую ранее книгу) или Новая книга, если надо скопировать листы в новую книгу.
Все это просто записываете макрорекордером.

Почитайте:


мне поражают люди чересчур умные, поросят помощи а они гавно шлют.
Не знаю правильно или нет но у меня получилось так и это работает может кому то понадобится

Dim p$, WB As Workbook
Dim i As Long
p = ThisWorkbook.Path
If VBA.Right$(p, 1) <> "\" Then p = p & "\"
p = p & Format(Date, "YYYYMMDD")
Set WB = Workbooks.Add
' ThisWorkbook.Worksheets("Лист2", "Лист3").Copy After:=WB.Worksheets(WB.Worksheets.Count)
ThisWorkbook.Sheets(Array("Лист2", "Лист3")).Copy After:=WB.Worksheets(WB.Worksheets.Count)
Application.DisplayAlerts = False
For i = 1 To WB.Worksheets.Count - 2
WB.Worksheets(1).Delete
Next i
Application.DisplayAlerts = True
WB.SaveAs p
ActiveWorkbook.Close False