How to add excel sheet into one file?

[Nvr]

I having two Excel Workbook (excel file) with one sheet for each.
I want to add both sheet into one excel file (as 1 workbook with 2 excel sheet )

How to do that.

 

[Ovisele]

1. Right click on the worksheet tab and select Move or Copy.
2. Select the Create a copy checkbox.
3. Under Before sheet, select where you want to place the copy.
4. Select OK.

 

[Nvr]

1. Right click on the worksheet tab and select Move or Copy.
2. Select the Create a copy checkbox.
3. Under Before sheet, select where you want to place the copy.
4. Select OK.

How to join both sheet in new workbook?
I know there is option under that, but i cannot choose both excel workbook

 

[Ovisele]

Use the below macro. Is working fine by me. Source is here: Combining Worksheets from Many Workbooks (Microsoft Excel)

Sub OneSheetFromMultipleWB()

    Dim sPath As String

    Dim sFname As String

    Dim wBk As Workbook

    Dim wSht As Variant

    Application.EnableEvents = False

    Application.ScreenUpdating = False

    sPath = InputBox("Enter a full path to workbooks")

    ChDir sPath

    sFname = InputBox("Enter a filename pattern")

    sFname = Dir(sPath & "\" & sFname & ".xl*", vbNormal)

    wSht = InputBox("Enter a worksheet name to copy")

    Do Until sFname = ""

        Set wBk = Workbooks.Open(sFname)

        Windows(sFname).Activate

        Sheets(wSht).Copy Before:=ThisWorkbook.Sheets(1)

        wBk.Close False

        sFname = Dir()

    Loop

    ActiveWorkbook.Save

    Application.EnableEvents = True

    Application.ScreenUpdating = True

End Sub

 

[Nvr]

T

Use the below macro. Is working fine by me. Source is here: Combining Worksheets from Many Workbooks (Microsoft Excel)

Sub OneSheetFromMultipleWB()

    Dim sPath As String

    Dim sFname As String

    Dim wBk As Workbook

    Dim wSht As Variant

    Application.EnableEvents = False

    Application.ScreenUpdating = False

    sPath = InputBox("Enter a full path to workbooks")

    ChDir sPath

    sFname = InputBox("Enter a filename pattern")

    sFname = Dir(sPath & "\" & sFname & ".xl*", vbNormal)

    wSht = InputBox("Enter a worksheet name to copy")

    Do Until sFname = ""

        Set wBk = Workbooks.Open(sFname)

        Windows(sFname).Activate

        Sheets(wSht).Copy Before:=ThisWorkbook.Sheets(1)

        wBk.Close False

        sFname = Dir()

    Loop

    ActiveWorkbook.Save

    Application.EnableEvents = True

    Application.ScreenUpdating = True

End Sub

Thanks