(VBA beginner) Combining two workbooks into one

[vbabeginner1990]

Hi everyone,

I am an beginner in VBA. And currently, I am working on creating a VBA code that will allow me to combine two excel files from a server into one file.

Basically, I would like to have the all the rows from the first excel file copy directly into the second excel file's last row. I have tried using relative reference from macro to do that. But because of the fact that both of those two files are in "read mode" only, I am unable to combine them for some reasons.

Could anyone show me a few line of codes of how people generally combine files?

Thank you so much in advance!

 

[tigeravatar]

vbabeginner1990,

Here's one way...

Sub tgr()
    
    Dim wsDest As Worksheet
    
    Set wsDest = ActiveWorkbook.Sheets("Sheet1")
    
    On Error Resume Next
    With Workbooks.Open(Application.GetOpenFilename("Excel Files, *.xls*"))
        .Sheets(1).UsedRange.Copy wsDest.Cells(wsDest.UsedRange.Row + wsDest.UsedRange.Rows.Count, "A")
        .Close False
    End With
    
End Sub