opening 30 sheets one by one

[kshitij_dch]

hi all i have 30 excel files saved in a folder date wise , like 1-6-2012 , 2-6-2012 , ............30-6-2012 ,


i needs a macro code which will open these 30 files one by one . please help !!!!

 

[martindwilson]

do you mean open then all at once?

 

[kshitij_dch]

no one by one , 1 st sheet will open after 1 minute it gets closed , than secone sheet will open .

 

[ravishankar]

Hi
trry the following macro code

Sub Thirty files()</SPAN>
Dim z  As Long, e As Long,b as long</SPAN>
Dim f As String, x as string</SPAN>
Sheets("Sheet1").Select</SPAN>
Cells(1, 1) = "=cell(""filename"")"</SPAN>
Cells(1, 2) = "=left(A1,find(""["",A1)-1)"</SPAN>
Cells(2, 1).Select</SPAN>
f = Dir(Cells(1, 2) & "*.xls")</SPAN>
Do While Len(f) > 0</SPAN>
ActiveCell.Formula = f</SPAN>
ActiveCell.Offset(1, 0).Select</SPAN>
f = Dir()</SPAN>
Loop</SPAN>
z = Cells(Rows.Count, 1).End(xlUp).Row</SPAN>
For e = 2 To z</SPAN>
x =left(cells(e,1),len(cells(e,1))-4)</SPAN>
If Sheets("Sheet1").Cells(e, 1) <> ActiveWorkbook.Name Then</SPAN>
Workbooks.Open filename:=Sheets("sheet1").Cells(e, 1)</SPAN>
Msgbox x</SPAN>
activeworkbook.close true</SPAN>
end if</SPAN>
Next e</SPAN>
MsgBox "complete."
End Sub</SPAN>

Ravi

 

[kshitij_dch]

thanks ravi for the reply , do i need to write file name of all 30 files because all 30 files are saved in a folder with their respective names like 1-06-2012 , 2-6-2012 , 3-6-2012 and so on ????

 

[kshitij_dch]

its not wirking for me type mismatch error is comming , please help !!!! error is comming on line number 8