将一个excel文件内容复制到另一个excel文件的末尾

我如何复制一个Excel文件到另一个Excel文件使用VBA我如何提到两个Excel文件的path？

这是我在网上find的：

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

这就是我所看到的，但我无法让任何人都可以告诉我，我可以做到这一点？

我必须将一个Excel文件的所有行和列复制到另一个Excel文件的末尾。
我如何做到这一点？

Answer 1

如果要将工作表从工作簿移动（或复制）到另一个工作表，则必须将其他工作簿设置为var 。 让我举一个例子：

 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) 

[编辑]由Maverikbuild议的新的一段代码
假设您要将工作簿中的每张表单复制到新表单中：

 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