1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Dim MyPath As String Dim MyName As String Dim xls As Object MyPath = "c:\*.xls" MyName = Dir(MyPath) Do While MyName <> "" Set xls = CreateObject("Excel . Application") xls . Visible = False xls . Workbooks . open MyName ' Working with sheets xls . Quit ' With Save Parameters Set xls = Nothing MyName = Dir Loop |