View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
topstar[_2_] topstar[_2_] is offline
external usenet poster
 
Posts: 1
Default Copy a range of cells in an unopened workbook and paste it to the current workbook

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