Excel открыть файл макрос
Автор Андрей задал вопрос в разделе Другие языки и технологии
подскажите как макросом xls открыть любой файл xls например в корневом диске с? не указывая его имени? и получил лучший ответ
Ответ от 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)
Надо скорее в методическом плане, для работы не критично
Ответ от Makfromkz[гуру]
вот текст слегка подпиленного записанного макроса: Sub Макрос1() papka = "c:\xls\" aaa = Dir(papka + "*.xls") While aaa <> "" MsgBox (papka + aaa) 'Workbooks.Open(Filename:=papka+aaa).RunAutoMacros Which:= _ ' x
вот текст слегка подпиленного записанного макроса: Sub Макрос1() papka = "c:\xls\" aaa = Dir(papka + "*.xls") While aaa <> "" MsgBox (papka + aaa) 'Workbooks.Open(Filename:=papka+aaa).RunAutoMacros Which:= _ ' x
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: подскажите как макросом xls открыть любой файл xls например в корневом диске с? не указывая его имени?