Скопируйте содержимое одного файла Excel в конец другого файла Excel

Question

Как мне скопировать один файл Excel в другой файл Excel с помощью VBA Как мне указать пути к двум файлам Excel?

Это то, что я нашел в Интернете:

ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)

Это то, что я видел, но я не в состоянии сделать это, может кто-нибудь сказать мне, как я могу это сделать?

Мне нужно скопировать все строки и столбцы одного файла Excel в конец другого Excelфайл.
Как мне это сделать?

Answer 1

Если вы хотите переместить (или скопировать) рабочие листы из рабочей книги в другую, вам нужно установить другую рабочую книгу в переменную .Позвольте мне привести пример:

Dim oNewWB as Workbook
Dim oCurWB as Workbook
'Store active workbook in a var
Set oCurWB = ActiveWorkbook
'Open a new workbook
Set oNewWB = Application.Workbooks.Open(<pathToWorkbookHere>)

'Move "Sheet1" from the current workbook to new one
oCurWB.Sheets("Sheet1").Move After:=oNewWB.Sheets(oNewWB.Sheets.Count)

[РЕДАКТИРОВАТЬ] Новый фрагмент кода, предложенный Maverik
Допустим, вы хотите скопировать каждый лист в вашей книге в новыйодин:

Dim oNewWB as Workbook
Dim oCurWB as Workbook
Dim Sheet as Worksheet
'Store active workbook in a var
Set oCurWB = ActiveWorkbook
'Open a new workbook
Set oNewWB = Application.Workbooks.Open(<pathToWorkbookHere>)

For Each Sheet In oCurWB.Sheets
  'Move "Sheet1" from the current workbook to new one
  Sheet.Move After:=oNewWB.Sheets(oNewWB.Sheets.Count)
Next Sheet

HTH