В VBA функция fso.OpenTextFile

[Domovoy_26]

Здравствуйте!
Пожалуйста, помогите, как в функции
Set ts = fso.OpenTextFile("c:\test.txt", ForWriting)
открывать ни один, а массив фалов их перечислением, для дальнейшего чтения и внесения данных в базу Access?

[Teslenko_EA]

Здравствуйте Domovoy_26.
"..открывать ни один, а массив фалов их перечислением.." - думаю речь всё-же о файлах.
Вы не думали о обработке массива в цикле(?), перебором массива в цикле задача может быть решена.

Евгений.

[alex77755]

Для экселовских файлов так:

Sub P3()
Dim ФайловаяСистема As New Scripting.FileSystemObject
Dim Папка As Scripting.Folder, Файл As Scripting.File
Dim Книга As Excel.Workbook
Set Папка = ФайловаяСистема.GetFolder(FolderPath:="C:\Documents and Settings\Пользователь\Рабочий стол\Папка")
For Each Файл In Папка.Files
    If Right(Файл.ShortName, 4) = ".xls" Then
        Set Книга = Workbooks.Open(Filename:=Файл.Path)
        Книга.Close
    End If
Next Файл
Set Книга = Nothing
End Sub

Поправь для своих нужд путь, фильтр и действие