Merging Excel Files

**Xaivor** · 09-17-2008, 08:44 PM

Greetings all, first time poster. I am somewhat familiar with excel, but it’s been a while since I've used it. A little background on the project I am working on: At the end of each shift, each employee fills out an Excel spread sheet (equipped with macros, etc, I did not do create this template) as to what they did that day and how long they spent doing it. The spread sheet is set up as for one month. At the end of the month, they submit the file to their supervisor, who then looks at the tally on the last page of the excel file. It shows what parentage of each activity they did was and displays it as a pie chart, bar graph, etc.

What my supervisor wants me to try to do is create a way for him to be able to go into an excel spread sheet (one that I would create) and be able to select say, 3 other peoples monthly logs and display a total for all those selected in the same format as the month end is displayed. Can anyone help me out with what to do? PM your email if you'd like to see a copy of the master log its all based on, if that would help you. I cant get it to upload here. Thanks in advance!

**Xaivor** · 09-17-2008, 09:53 PM

I did post in another thread and was given this basic outline to use, but I cant quite get my mind into Excel mode, can anyone help?


Sub import_data()

Dim i As Long, _
    next_row As Long, _
    master_wkb As Workbook, _
    form_wkb As Workbook, _
    SRfilenames As Variant, _
    fileindex As Integer, _
    filename As String
 

Set master_wkb = Workbooks(ThisWorkbook.Name)
 

master_wkb.Sheets("Data").Range("2:" & Rows.Count).Delete
 

'Select files
SRfilenames = Application.GetOpenFilename( _
fileFilter:="Excel,*.xls", _
Title:="Select one or more import files", _
MultiSelect:=True)

 

Application.ScreenUpdating = False
 

'Loop through selected files
 

If Not IsArray(SRfilenames) Then Exit Sub

 

For fileindex = LBound(SRfilenames) To UBound(SRfilenames)
filename = SRfilenames(fileindex)
Workbooks.Open (filename)
Set form_wkb = Workbooks(ActiveWorkbook.Name)
master_wkb.Activate


'*******

'*******

'actual import goes here... the code here depends on the arrangement of your input 

'files and desired layout for your master workbook

'*******

'*******

 

form_wkb.Activate
form_wkb.Close saveChanges:=False
Next fileindex
Application.ScreenUpdating = True
End Sub

http://www.mrexcel.com/forum/showthr...59#post1687659