Copying data from multiple files (with mult. sheets) into one file and create a graph

Hi guys I am kinda new here, so forgive me if I had missed the "Introduction part".

My name is Mike. I am 24. I am finishing my Master's degree and I am one inch to get it, so I need your guys help!

I know it's simple for the most of you, but I am kinda new in this (though I've worked with Excel for maaany...manyy years i.e. from Windows 3.1 till today) but I had never had to encounter such a problem.

The thing is I wanna copy C6:Z8, from each sheet on a 30 Sheet Excel file, and to do that with 12 sheets. So roughly that is 360 sheets C6:Z8.

The issue on hand it's 1 year (and there are 14 years) of raw data from a water treatment factory, that uses water and the quantity of water is measured on a hourly basis 0-24.

So for an example. On a excel file for July 2004, I have 31 sheet for the days, and 24 values for three pipes.

All that data from January to December for each day I want to group it into ONE visualization (graph) that will show the quantaty of water.

I haven't done VBA, or macro's so...please point how to do that.

I am using MS Excel 2007 and ...help pls!

Thanks!

Mike

Anyone??? Please help me

1) Yes all my workbooks are in E:\Data\

For an example 2002: E:\Data\2004\April 2004.xls

2) For the worksheets 01.04.2004; 02.04.2004; 03.04.2004 etc.

If you can see h1,h2,Qkanal are divided into 0-24 hours with data in those fields.

So I need to extract all thouse data which is divided the same way on multiple sheets and excel files.

I've attached examples from January 2004, and April 2004.

After I extract that data into one excel files I must create a graph or a visualization of the water quantities ...

Where I can write this code and how to run it? I know it's a macro, but pls tell me the way to do this.

Thanks anyway. I appreciate this very very much!

I have to create a new Excel file, and save it in the file of the 2004 files and Alt+11 and run the code as a module?

GREAT! It's working! Man you just changed my LIFE :D hahaha A BIIIIIIIIIIIIIG PACK OF BEER FOR YOU!

Ok, now to ask u about the code


Dim wbkData As Workbook
Dim shtData As Worksheet
Dim shtOutput As Worksheet
Dim strPath As String
Dim lngYear As Long
Dim lngMonth As Long
Dim vntMonths As Variant
Dim strName As String
Dim strFilename As String
Dim lngOutRow As Long
Dim lngRow As Long
Dim lngHour As Long
Dim lngDay As Long


This part its the declaration of variables right?

' Update regional month names
vntMonths = Array("", "Januari 2004", "Februari 2004", "Mart 2004", "April 2004", "Maj 2004", "Juni 2004", "Juli 2004", "Avgust 2004", "Septemvri 2004", "Oktomvri 2004", "Noemvri 2004", "Dekemvri 2004")
strPath = ThisWorkbook.Path & "\"

Strange enough the original code you've sent me, worked well...this code with the name of the months (the filenames of xls) were not working (strange).

Ok, I understand from C programming what is Array. vntMonth is the variable. strPat it's for what?

Set shtOutput = ThisWorkbook.Worksheets("Sheet1") ' Does this meens that can only work if the file where the data gathered it's named Sheet1 or I can change it here and Save As? '
lngOutRow = 2 ' Creating two rows for h1 and h2 ? '
Application.ScreenUpdating = False ' ??? '
For lngYear = 2004 To 2004 ' change last 2004 to latest year
For lngMonth = 1 To 12
strName = vntMonths(lngMonth) & " " & lngYear & ".xls" 'I understand the meaning but not the function of this part'
strFilename = Dir(strPath & strName)
If Len(strFilename) > 0 Then
Set wbkData = Workbooks.Open(strPath & strFilename)
lngDay = 1
For Each shtData In wbkData.Worksheets
shtData.Range("C6:Z8").Copy
shtOutput.Cells(lngOutRow, 2).PasteSpecial xlPasteValues, , , True
lngHour = 0
For lngRow = lngOutRow To lngOutRow + 23
shtOutput.Cells(lngRow, 1) = DateSerial(lngYear, lngMonth, lngDay) + TimeSerial(lngHour, 0, 0)
lngHour = lngHour + 1
Next
lngOutRow = lngOutRow + 24
lngDay = lngDay + 1


Ok, for this part it's almost all clear I have to just put my finger on my forehead and scratch a bit :D