Скопируйте 2 листа vba excel

Question

Мне нужно скопировать 2 листа и сохранить в другом файле.

мне нужно скопировать все листы "Фронт" и снизу добавить диапазон ("A2: N10") из листов "Кэш"

Worksheets("Front").Copy 
 
    With ActiveSheet.UsedRange 
 
     .Value = .Value 
 
    End With 
 
    
 
    Set wbNew = ActiveWorkbook 
 
    wbNew.SaveAs "C:\______\pl.xlsx" 
 
    wbNew.Close True

Результат: Новый файл «пл. XLSX» где A1: N25 = Sheets Передние

A26: N43 = Sheets Cache: D

Любые предложения?

Answer 1

при условии, что рабочие листы «Front» и «Cache» в книге макрос проживает в, то вы можете ввести:

Sub main() 
    Worksheets("Front").Copy '<--| this creates a new workbook with one worksheet that becomes the "active" one 
    ThisWorkbook.Worksheets("Cache").Range("A2:N10").Copy '<--| 'ThisWorkbook' refers to the workbook the running macro resides in, no matter which is the "active" workbook 
    Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial '<--| no need to qualify range references up to its worksheet to implicitly assume the "active" one 
    Application.CutCopyMode = False 
End Sub 

Хотя если рабочие листы «Front» и «Кэш» НЕ в книге макрос проживает в, то вы можете ввести:

Sub main2() 
    Dim rngToCopy As Range 

    Set rngToCopy = Worksheets("Cache").Range("A2:N10") '<--| set the range to copy before changing the "active" workbook with the worksheet 'Copy' method call   
    Worksheets("Front").Copy '<--| this creates a new workbook with one worksheet that becomes the "active" one 
    rngToCopy.Copy '<--| copy the range you previously stored 
    Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial '<--| no need to qualify range references up to its worksheet to implicitly assume the "active" one 
    Application.CutCopyMode = False 
End Sub 

Answer 2

Sub z() 
Dim NewSheet, Cache1, Front1 As Worksheet 
Dim LastRow As Integer 
Set Front1 = ActiveWorkbook.Worksheets("Front") 
Set Cache1 = ActiveWorkbook.Worksheets("Cache") 
Front1.Copy 
Set NewSheet = ActiveWorkbook.ActiveSheet 
LastRow = Front1.UsedRange.Rows(Front1.UsedRange.Rows.Count).Row + 1 
Cache1.Range("A2:N10").Copy 
NewSheet.Cells(LastRow, 1).PasteSpecial 
Application.CutCopyMode = False 
End Sub 

После того, как объявлены листы, их легко перемещать. Я проверил эту часть; затем запустить Сохранить код