使用VB宏合併兩個Excel文件的內容代碼

Question

如何使用VB宏代碼合併兩個Excel文件的內容代碼。

Sub GetSheets() 
Dim temp As String 
Path = "C:\Users\....\ Desktop\Excel combine\" 
Filename = Dir(Path & "*.xlsx") 

Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True 

temp = ActiveWorkbook.Name ActiveSheet.Name = temp 

ActiveWorkbook.Sheets(temp).Copy After:=ThisWorkbook.Sheets(1) 
Workbooks(Filename).Close 

Filename = Dir() 
Loop 

End Sub 

我上網的代碼不符合要求。

Answer 1

下面的代碼將工作表Sheet1之後Copys WorkBook1和地方WorkBook2的整個工作表Sheet1

Sub CopySheet_From_WB1_To_WB2() 
    Dim wb1 As Workbook 
    Dim wb2 As Workbook 
    Dim ws1 As Worksheet 
    Dim ws2 As Worksheet 

    Set wb1 = Application.Workbooks.Open("C:\Users\...\Desktop\1.xlsx") 
    Set ws1 = wb1.Sheets("sheet1") 'replece 'Sheet1' with your sheet name 
    Set wb2 = Application.Workbooks.Open("C:\Users\...\Desktop\2.xlsx") 
    'Copying WorkBook1's Sheet1 to Workbook2 after Sheet1 
    ws1.Copy After:=wb2.Sheets("Sheet1") 'replece 'Sheet1' with your sheet name 

    wb1.Save 
    wb1.Close 

    wb2.Save 
    wb2.Close 

End Sub 

下面的代碼將Workbook1的工作表Sheet1複製使用單元格的值和Workbook2

Sub CopySheet1Data_to_Sheet2() 
    Dim wb1 As Workbook 
    Dim wb2 As Workbook 
    Dim ws1 As Worksheet 
    Dim ws2 As Worksheet 

    Set wb1 = Application.Workbooks.Open("C:\Users\...\Desktop\1.xlsx") 
    Set ws1 = wb1.Sheets("sheet1") 'replece 'Sheet1' with your sheet name 
    ws1.Range(Cells(1, 1), ActiveCell.SpecialCells(xlLastCell)).Select 

    Selection.Copy 
    Set wb2 = Application.Workbooks.Open("C:\Users\..\Desktop\2.xlsx") 
    Set ws2 = wb2.Sheets("Sheet1") 
    ws2.Activate 
    lastUsedRow = ActiveCell.SpecialCells(xlLastCell).Row 
    ws2.Cells(lastUsedRow + 1, 1).Select 
    ActiveSheet.Paste 

    wb1.Save 
    wb1.Close 

    wb2.Save 
    wb2.Close 

End Sub 

的Sheet1中的最後一次使用一行之後粘貼