Copy values from closed workbook

[Alpacino]

Sorry I know this has probably been asked about a millions times anyone help with trying to copy values from workbook total sheet1 to workbook
Input sheet2 please

 

[VoG]

Why can't you open the workbook? Maybe look here http://www.rondebruin.nl/ado.htm

 

[Alpacino]

Hi VoG
Just can I say thank you for your help recently.
I can open workbook but want to save time and not open it

 

[VoG]

This should be fast enough

Dim wb As Workbook
Application.ScreenUpdating = False
Set wb = Workbooks.Open(Total.xls)
wb.Sheets("Sheet1").UsedRange.Copy Destination:=Workbooks("Input.xls").Sheets("Sheet2").Range("A1")
wb.Close False
Application.ScreenUpdating = True

 

[Alpacino]

Thanks
How do I copy a range

Eg sheet1 C3:C17 from total to other workbook sheet2

 

[VoG]

Try

Application.ScreenUpdating = False
Set wb = Workbooks.Open(Total.xls)
wb.Sheets("Sheet1").Range("C3:C17").Copy Destination:=Workbooks("Input.xls").Sheets("Sheet2").Range("A1")
wb.Close False
Application.ScreenUpdating = True

 

[Alpacino]

Dont u have to say where the file is
Eg c:\mydocuments\excelfiles\total.xls

Or will excel vba locate it in ur system???

 

[VoG]

If the file is in the same folder as the file containing the code then just the file name should do. Otherwise you'll need the full path.

 

[Alpacino]

VoG help please copy range from closed workbook not working.

 

[VoG]

In what way not working?