How to import excel information

[Log]

1. The first file folder is named Work
2. Within the first file folder are file folders titled Employee 1, Employee 2, and Employee Summary.
3. Within Employee 1 and Employee 2 are workbooks titled Day 1 and Day 2 with information on Sheet 1 starting in A1 and Ending in D7.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o>
I would like a VBA code that will import information from the file folders Employee 1 and Employee 2, Workbooks Day 1 Day 2 into a Employee Summary Workbook starting in cell A1. Can someone provide a VBA code that will pull information into the Employee summary workbook? If this does not make sense please tell me so I can try to explain better. Thank You<o></o>
</o>

 

[John Davis]

1. The first file folder is named Work
2. Within the first file folder are file folders titled Employee 1, Employee 2, and Employee Summary.
3. Within Employee 1 and Employee 2 are workbooks titled Day 1 and Day 2 with information on Sheet 1 starting in A1 and Ending in D7.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o>
I would like a VBA code that will import information from the file folders Employee 1 and Employee 2, Workbooks Day 1 Day 2 into a Employee Summary Workbook starting in cell A1. Can someone provide a VBA code that will pull information into the Employee summary workbook? If this does not make sense please tell me so I can try to explain better. Thank You<o></o>
</o>

If I understand, maybe this will do it? Change the paths to yours.

Sub log()

Workbooks.Open Filename:="D:\Common\data\Work\Employee Summary.xls"
Workbooks.Open Filename:="D:\Common\data\Work\Employee1\Day2.xls"
Workbooks.Open Filename:="D:\Common\data\Work\Employee1\Day1.xls"

Workbooks("Day1.xls").Sheets("Sheet1").Range("A1:D7").Copy Workbooks("Employee Summary.xls").Sheets("Sheet1").Range("A" & Rows.Count).End(3)(2)
Workbooks("Day1.xls").Close
Workbooks("Day2.xls").Sheets("Sheet1").Range("A1:D7").Copy Workbooks("Employee Summary.xls").Sheets("Sheet1").Range("A" & Rows.Count).End(3)(2)
Workbooks("Day2.xls").Close

Workbooks.Open Filename:="D:\Common\data\Work\Employee2\Day2.xls"
Workbooks.Open Filename:="D:\Common\data\Work\Employee2\Day1.xls"

Workbooks("Day1.xls").Sheets("Sheet1").Range("A1:D7").Copy Workbooks("Employee Summary.xls").Sheets("Sheet1").Range("A" & Rows.Count).End(3)(2)
Workbooks("Day1.xls").Close
Workbooks("Day2.xls").Sheets("Sheet1").Range("A1:D7").Copy Workbooks("Employee Summary.xls").Sheets("Sheet1").Range("A" & Rows.Count).End(3)(2)
Workbooks("Day2.xls").Close

End Sub

 

[Log]

Thank you. I will check to see if it works.

 

[Log]

When I use the code I get Run-time error 1004. What do I need to do?

 

[John Davis]

When I use the code I get Run-time error 1004. What do I need to do?

What line is highlighted?

 

[Log]

Workbooks.Open Filename:="D:\Common\data\Work\Employee Summary.xls"


This is the first line of it. What does that mean?