Data aggregation with multiple workbooks

[Kadco]

I am currently setting up a workbook. In this workbook I have a data input
sheet where people would fill out information. Multiple people will be
filling out this worksheet. What is the best way to aggregate the data among
multiple workbooks.

 

[SteAXA]

I think i would do, in every workbooks, a function that opens the common
workbook, reads data and closes the common workbook like this:

Sub ReadCommonDataInOtherworkbook()
Dim vaFileName
Dim DataRead

'i block the screen updating, so the users don't realize what happen
Application.ScreenUpdating = False

'i open my common workbook
Workbooks.Open Filename:="c:\tmp\xxxx.xls"
'i set my focus in common workbook
Windows("xxxx.xls").Activate
'i set focus on the cell that i want and i take data
Range("A1").Select
DataRead = ActiveCell.Value
'i close my common workbook
ActiveWindow.Close

'i unblock the screen updating
Application.ScreenUpdating = True

MsgBox DataRead

End Sub

Ste'