Help!

Can someone please help me with a macro to copy a range of cells fro
one unopened workbook, and paste it into the current sheet of a ne
opened workbook.

Thank

--
Message posted from http://www.ExcelForum.com

Hi

Why not open the workbook?
http://www.rondebruin.nl/copy3.htm

Or try this with a closed workbook
http://www.rondebruin.nl/ado.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"topstar " wrote in message ...
Help!

Can someone please help me with a macro to copy a range of cells from
one unopened workbook, and paste it into the current sheet of a new
opened workbook.

Thanks


---
Message posted from http://www.ExcelForum.com/

Hi Ron,

Thanks very much. I cut pasted the code from the snippet below, whic
you suggested. However, the macro gives the following error


Compile Error: Sub or Function not defined

at the line GetData

Any advise?

Cheers

----------------






Copy a range from a closed Workbook (filename in the code)

This example will not copy the Header row (the last argument = False)
Change it to True if you want to copy the header row also.
This example will copy the range from the file test.xls that is in th
same folder

Sub GetData_Example1()
'This Copy the range to the ActiveCell
GetData ThisWorkbook.Path & "\test.xls", "Sheet1", "A1:C5"
ActiveCell, False

'This Copy the range to the Sheet/Range you want
'GetData ThisWorkbook.Path & "\test.xls", "Sheet1", "A1:C5"
Sheets("Sheet2").Range("A1"), False

End Su

--
Message posted from http://www.ExcelForum.com

Did you copy the functions also in the module?

--
Regards Ron de Bruin
http://www.rondebruin.nl


"topstar " wrote in message ...
Hi Ron,

Thanks very much. I cut pasted the code from the snippet below, which
you suggested. However, the macro gives the following error


Compile Error: Sub or Function not defined

at the line GetData

Any advise?

Cheers

----------------






Copy a range from a closed Workbook (filename in the code)

This example will not copy the Header row (the last argument = False)
Change it to True if you want to copy the header row also.
This example will copy the range from the file test.xls that is in the
same folder

Sub GetData_Example1()
'This Copy the range to the ActiveCell
GetData ThisWorkbook.Path & "\test.xls", "Sheet1", "A1:C5",
ActiveCell, False

'This Copy the range to the Sheet/Range you want
'GetData ThisWorkbook.Path & "\test.xls", "Sheet1", "A1:C5",
Sheets("Sheet2").Range("A1"), False

End Sub


---
Message posted from http://www.ExcelForum.com/