I would like to know is it possible to run serveral files in one time, now i have a problem I need to open by file and file and use the same marco to run these files.

Hi

You can use the following code to execute the macro in all Excel (.xls) files under a given folder. You can tweek a bit if necessary

Sub Exec_Macro_For_All()

Dim sPath As String
Dim sFile As String
Dim sDir As String
Dim oWB As Workbook
Dim i1 As Long
Dim iMax As Long

On Error GoTo Err_Clk

sPath = "" ' Your Path
If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"

sDir = Dir$(sPath & "*.xls", vbNormal)
Do Until LenB(sDir) = 0
       Set oWB = Workbooks.Open(sPath & sDir)
       Exec_MyMacro() ' Your MAcro here
       oWB.Save
       oWB.Close False
    sDir = Dir$
Loop

Err_Clk:
If Err <> 0 Then
    Err.Clear
    Resume Next
End If
End Sub

Cheers
Shasur

http://www.vbadud.blogspot.com

Dear Shasur,

Thank you very much!

I want to know one more thing.
One kind of my incoming data is in text file format and I need to open in excel then I choose delimited, comma and treat consecutive delimiters as one. Then I start to run the macro.

So is it possible to run another marco and complete "delimited, comma and treat consecutive delimiters as one" for these incoming text file?

Thanks and with Best Regards,
Ivan

You can very well do that Ivan

You can have another function to import or open the text file and you can use both this function and the other macro run for all files

Cheers
Shasur

http://www.vbadud.blogspot.com