Сообщество Чайников

Вопрос

Как средствами VBA for Excel 97 получить список файлов в папке и их всех последовательно пооткрывать (все *.xls)?

Ответ

Для последовательного открытия вполне можно и список файлов получать последовательно:

Sub GetXLSList()
Dim fName As String
' получаем первое имя файла в папке (если он есть)
fName = Dir("c:\folder\*.xls")
Do While fName <> ""
  Workbooks.Open fName ' открываем найденный файл
  '…
  fName = Dir ' получаем имя следующего файла
Loop
End Sub

Kirill