Сохранение книги в известную папку

[Adeletto]

Здравствуйте!
Подскажите пожалуйста, а как написать код
Предположим есть 10 листов, но мне нужно скопировать лишь 6,
причем 3 из них польностью с форматами и формулами, а остальные 3 форматами и значениями?
Заранее спасибо!

[Adeletto]

Здравствуйте!
Подскажите пожалуйста, а как написать код
Предположим есть 10 листов, но мне нужно скопировать лишь 6,
причем 3 из них польностью с форматами и формулами, а остальные 3 форматами и значениями?
Заранее спасибо!

[SAS888]

...нужно скопировать...

Куда скопировать? Следующий код скопирует 6 листов из книги, содержащей этот код в открытую книгу "Книга1.xls", затем в 3-х из них уберет все формулы. Подставьте требуемые имена листов и книг.

Sub CopySheets()
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets(Array("Лист1", "Лист2", "Лист3", "Лист4", "Лист5", "Лист6")).Copy Before:=Workbooks("Книга1.xls").Sheets(1)
    For Each sh In Array("Лист4", "Лист5", "Лист6"): Sheets(sh).UsedRange.Value = Sheets(sh).UsedRange.Value: Next
End Sub

[Adeletto]

Спасибо!
К сожалению нет образования програмиста, поэтому возникают проблемы с синтаксисом.
В общем, я хочу добавить в код предложенный Вами раньше:

Private Sub CommandButton1_Click()
Dim myPath As String, fName As String: Application.ScreenUpdating = False
myPath = "D:\Temp\" 'Ваш путь
fName = [A1] 'Ячейка, содержащая имя файла
fName = myPath & fName & "_" & Format(Now, "dd_mm_yy hh_mm_ss") & ".xls"
ActiveSheet.Copy: ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveSheet.Shapes(1).Delete
ActiveWorkbook.SaveAs Filename:=fName: ActiveWorkbook.Close False
End Sub

возможность копировать в новую книгу не только активный лист, а скажем 6 из 10 имеющихся в рабочей книге,
причем некоторые значениями, а некоторые с формулами.

Если не сложно, не могли бы Вы помочь добавить эту возможность.

[SAS888]

Можно так:

Sub Main()
    Dim myPath As String, fName As String: Application.ScreenUpdating = False
    myPath = "D:\Temp\" 'Ваш путь
    fName = Sheets("Лист1").[A1] 'Ячейка, содержащая имя файла
    fName = myPath & fName & "_" & Format(Now, "dd_mm_yy hh_mm_ss") & ".xls"
    ThisWorkbook.Sheets(Array("Лист1", "Лист2", "Лист3", "Лист4", "Лист5", "Лист6")).Copy
    For Each sh In Array("Лист4", "Лист5", "Лист6"): Sheets(sh).UsedRange.Value = Sheets(sh).UsedRange.Value: Next
    ActiveWorkbook.SaveAs Filename:=fName: ActiveWorkbook.Close False
End Sub

Естественно, путь к папке для сохранения, ячейку, содержащую имя файла, имена листов для копирования и имена листов, в которых нужно убрать формулы, подставьте требуемые.

[Adeletto]

Шикарно! То что нужно было
Пока что вопросов больше нет!
Спасибо Вам большое!

[Дмитрий Фукс]

Здравствуйте, подскажите макрос.
Нужно сохранить выделенный диапазон A1:F13(диапазон выделения каждый раз другой) в листе Эксель на диск С: . Имя файла это ячейка F3+ имя листа.

[Adeletto]

По ходу дела возникла еще одна потребность
Нельзя ли в новой созданной книге
с листов "Лист1" и "Лист2" удалить строки в которых в столбце "А" значение равно "1" или "2" ?

[alvazor]

Сообщение от romale_80

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

Попробуйте этот вариант
Пришлось макросом повторить принудительное сохранение копии, после чего безобразие кончилось. Но и прога сильно изменилась - см. комментарии в тексте

[alvazor]

еще более простой вариант - вырезание рабочего диапазона и вставка его в файл копии. Тут и кнопку удалять не надо, и макросы чистить.
Но, возможно, придется специально помечать начало и конец этого диапазона, особливо, если есть графические объекты