как открыть несколько документов

[formentor]

мне нужно, чтобы все документы в папке открывались, обрабатывались (этот макрос уже есть), сохранялись под новым именем в ту же папку и закрывались.
чтобы все это происходило последовательно

вот я пытаюсь хотя бы получить список всех файлов в моей папке
Sub test()
Dim fs As New FileSystemObject
Dim fs As Folder
Dim fls As Files
Dim s As String
ну и т.д.

и он мне на второй строке говорит, что не определил, что такое FileSystemObject

а как это понимать?
подскажите что-нить
заранее спасибо

[RayShade]

Подключи библиотеку Scripting.

[formentor]

да, это я нашла уже
спасибо


а вот как теперь последовательно открыть?

он мне Set ts = fs.OpenTextFile("C:\testing\test.xls")
такой адрес ему не нравится
а без расширения .xls не находит вообще(
а вот .txt находит
но мне жу нужен xls(

[RayShade]

А смысл открывать через FSO?

Ведь, XLS надо открывать так:

Код: Выделить всё

for each XLS in createobject("scripting.filesystemobject").getfolder("C:\testing").files
'открыли файл в Excel
set book =application.workbooks.open(XLS.name)
'тут делаем то, что ты назваешь "обработка"

'теперь сохраняем, добавляя в конец имени 1
book.saveas(replace(XLS.name,".xls","1.xls",,,vbtextcompare))
'закрываем
book.close
' и переходим к следующему файлу
next XLS


[formentor]

спасибо большое
я просто не знала, что можно как-то иначе
я вообще-то этим занимаюсь где-то неделю или чуть больше, поэтому общей картины у меня не сложилось и всех возможностей я не знаю

еще раз спасибо