Copying Data From One Workbook To Another

[timpickup]

Evening,

I am trying to copy the data from One excel document to another but am having a difficult time with it.

One workbook is permanently open, this is the one that needs to import the data. (Main)
The other, is closed in a folder, this is the one that I need to copy the data from. (Source)

I need to copy all the data from a sheet named "page" in the Source file and paste it into sheet "ActiveData" on the Main file...

The data to be copied is around the range "A1:I400" but I need to copy it all over and have yet not found a way that will work for me.

Also, I'd like it to be as discreet as possible, to run in the background and not interrupt a page that is the permanent display being shown if that's possible.

Thanks in advance for your help

 

[oldbrewer]

switch on macro record, open the closed workbook, copy A1:I400, close the workbook, select sheet active data, paste, stop macro, look at the code for inspiration

 

[timpickup]

Tried that and it didn't work, it does not record the opening of a workbook.

 

[oldbrewer]

thisworkbook is named bob1test.xls

part1

1

descr1

part2

2

descr2

part3

3

descr3

part4

4

descr4

part5

5

descr5

this macro opened a new workbook, copied a range of data,

closed the new workbook and pasted the data into here.

Sub Macro4()

'

' Macro4 Macro

' Macro recorded 24/10/2017 by bob

'

'

Workbooks.Open Filename:="F:\Robert\forumoct232017.xls"

Range("K2:M6").Select

Selection.Copy

ActiveWindow.Close

Range("D6").Select

ActiveSheet.Paste

End Sub

<colgroup><col span="14"></colgroup><tbody>
</tbody>

 

[Fluff]

How about

Sub copydata()

    Dim DestSht As Worksheet
    Dim SrcSht As Worksheet
    Dim Wbk As Workbook
    
    Application.ScreenUpdating = False
    
    Set DestSht = ThisWorkbook.Sheets("[COLOR=#0000ff]ActiveData[/COLOR]")
    Set Wbk = Workbooks.Open("[COLOR=#0000ff]C:\Users\Fluff\Documents\Excel files\Book22.xls[/COLOR]")
    Set SrcSht = Wbk.Sheets("[COLOR=#0000ff]Page[/COLOR]")
    SrcSht.Range("A1", SrcSht.Range("I" & Rows.Count).End(xlUp)).Copy _
        DestSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
    Wbk.Close , False
    
End Sub

Changing values in blue as needed