Март
Дата: 07.06.2004 17:57:03
Помогите. Не могу передать тело текстового файла в дргую процедуру для чтения. Выдает ошибку требуется объектю
Set fs = Application.FileSearch
With fs
'## Ищем файлы
.NewSearch
.LookIn = Nz(Me.txtDir.Value)
.FileName = Nz(Me.txtFilePattern.Value)
.SearchSubFolders = "False"
If .Execute() > 0 Then
'## Разбираем найденные файлы
For i = 1 To .FoundFiles.Count
ParseAVex .FoundFiles(i), file_isparsed 'Загрузка данных
Next i
End If
End With
Private Sub ParseAVex(thisfile As Variant, file_isparsed)
Set fst = CreateObject("Scripting.FileSystemObject")
Set f = fst.OpenTextFile(thisfile, 1, TristateFalse)
End Sub