將一個excel文件內容複製到另一個excel文件的末尾

Question

如何將一個excel文件複製到另一個使用VBA的excel文件中如何提及兩個excel文件的路徑？

這是我在互聯網上找到：

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) 

[編輯] 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