Как скопировать определенные листы из одной книги в другую?

[Hugo121]

Попробуйте так:

Sub Создать_Ежедневный_Отчет()
'
' Создать_Ежедневный_Отчет Макрос
'
Dim wb As Workbook
Dim nsheet As Worksheet

Sheets(Array("КАССА ИТОГ", "1С И ПРОЧЕЕ", "АНАЛИЗ ПРИБЫЛИ")).Copy
Set wb = ActiveWorkbook ' ссылка на новую созданную книгу

Dim itogWB As Workbook
For Each itogWB In Workbooks
If InStr(itogWB.Name, "Итог") Then
itogWB.Sheets("Бюджет").Copy Before:=wb.Worksheets(1)
wb.Worksheets(1).Rows("1:1").SpecialCells(xlCellTypeConstants, 23).EntireColumn.Hidden = True
Exit For
End If
Next

wb.SaveAs Filename:="C:\Ежедневный отчет.xlsx", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

[Toffifee]

Он скрыл только строки. А надо только столбцы, не скрывая строк. Надо скрыть столбцы с C по AH, и с AP по AY

[Hugo121]

Не понял - ведь эта строка скрывает именно столбцы, взято из Вашего примера:
wb.Worksheets(1).Rows("1:1").Specia lCells(xlCellTypeConstants, 23).EntireColumn.Hidden = True

Если нужно скрыть невзирая на содержимое - запишите это рекордером на любом другом листе и вставьте полученный код в этот макрос (можно творчески почистить), только добавьте привязку к wb.Worksheets(1).

Вот, типа этого:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 16.05.2011 by Me
'

'
'    Columns("C:AH").Select
'    Selection.EntireColumn.Hidden = True
'    Columns("AP:AY").Select
'    Selection.EntireColumn.Hidden = True

Dim wb As Workbook
Set wb = ThisWorkbook
With wb.Sheets(1)
    .Columns("C:AH").EntireColumn.Hidden = True
    .Columns("AP:AY").EntireColumn.Hidden = True
End With
End Sub

[Djeki]

Что бы убрать эту надоедливую вкладку "Проверка совместимости" , надо убрать птичку с "Выполнять проверку совместимости при сохранении книги"..

[Toffifee]

Хнык хнык((( не скрывает однако....

Тот код, вот который:
' скрытие помеченных столбцов
Sub Скрыть_ненужные_столбцы()
Rows("1:1").SpecialCells(xlCellType Constants, 23).EntireColumn.Hidden = True
End Sub
'отоброжение помеченных столбцов
Sub Показать_нужные_строки()
Columns("A:A").SpecialCells(xlCellT ypeConstants, 23).EntireRow.Hidden = False
End Sub

Я там в первой строке, пустой, проставляла "+" над теми столбцами которые надо скрыть... может поэтому не работает??

[Toffifee]

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

[Hugo121]

У меня Ваш этот код скрытия помеченных столбцов работает.
Только "xlCellType Constants" - это одно слово, это так движок форума искажает, если тегами код не обрамлять.

Так что нужно - скрыть помеченные или определённые? Впрочем коды на оба случая выше уже есть - Ваш и мой.

[Toffifee]

Да у меня отдельно он тоже работает, а вот вместе с кодом основным - нет...
Нужно скрыть все, кроме AI,AJ,AK,AL,AM,AN.
То есть это, как я писала выше: с C по AH, и с AP по AY - вот их нужно скрыть.

[Hugo121]

Хорошо.
ВЫ так пробовали эти два кода из моих постов скрестить?

Sub Создать_Ежедневный_Отчет()
'
' Создать_Ежедневный_Отчет Макрос
'
Dim wb As Workbook
Dim nsheet As Worksheet

Sheets(Array("КАССА ИТОГ", "1С И ПРОЧЕЕ", "АНАЛИЗ ПРИБЫЛИ")).Copy
Set wb = ActiveWorkbook ' ссылка на новую созданную книгу

Dim itogWB As Workbook
For Each itogWB In Workbooks
If InStr(itogWB.Name, "Итог") Then
itogWB.Sheets("Бюджет").Copy Before:=wb.Worksheets(1)
With wb.Worksheets(1)
    .Columns("C:AH").EntireColumn.Hidden = True
    .Columns("AP:AY").EntireColumn.Hidden = True
End With
Exit For
End If
Next

wb.SaveAs Filename:="C:\Ежедневный отчет.xlsx", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

[Toffifee]

мой код выглядел немножко не так... Теперь всё работает супер!!!
Спасибо!!!!