макрос открыть файл excel

Ответ от NeJames neBond[гуру]
добавь в referenses галочку около Microsoft Scripting Runtime и используй (открывает не только любой, но и ВСЕ {без учета подкаталогов} )
Sub allc()
Dim FSO As FileSystemObject
Dim flder As Folder
Dim f As Files
Dim fl As File
Set FSO = New FileSystemObject
Set flder = FSO.GetFolder("c:")
Set f = flder.Files
For Each fl In f
If Right(fl.Name, 3) = "xls" Then
Application.Workbooks.Open (flder.Path & fl.Name)
End If
Next
End Sub
neJames neBond
Мастер
(1244)
Надо скорее в методическом плане, для работы не критично