Экспорт/Перемещение листов в новую книгу

Question

У меня есть книга со многими листами. Я создал много флажков на пользовательской форме, чтобы, если я хочу создать копию листов, просто установите флажки и нажмите кнопку button1, имя этих копий, например: «(Excel)». Как переместить эти листы « (Excel)» в новую книгу?

'Create sheets 
Dim Ctl As Control 
For Each Ctl In Me.Controls 
    If Ctl.Value = True Then Run Ctl.Tag 
Next 

'Move Sheets name *(Excel) to other workbook. But it's only move one sheet 
Dim bReplace As Boolean, sh As Worksheet 
Dim bk As Workbook 
bReplace = True 
For Each sh In Worksheets 
If sh.Name Like "*(Excel)" Then 
sh.Select Replace:=bDontReplace 
bReplace = False 
End If 
Next 

Кроме того, я хочу экспортировать эти листы в PDF с помощью другой кнопки.

Answer 1

Вот простой подход, чтобы переместить много листов:

Sub CopyWorkbook() 

Dim currentSheet as Worksheet 
Dim sheetIndex as Integer 
sheetIndex = 1 

For Each currentSheet in Worksheets 

    Windows("source workbook").Activate 
    currentSheet.Select 
    if currentSheet.Name like "*(Excel)" then 
     currentSheet.Move Before:=Workbooks("target workbook").Sheets(sheetIndex) 
    End if 

    sheetIndex = sheetIndex + 1 

Next currentSheet 

End Sub 

Чтобы экспортировать их в PDF это будет делать внутри события нажатия кнопки:

SourceWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
     "C:\Users\you\Desktop\exported_sheet.pdf", Quality:=xlQualityStandard, _ 
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ 
     True 

Надеется, что это помогает!