поиск файлов

[Nicolas_46]

уважаемые форумчане! не получается решить такую задачу:

пытаюсь наладить управление программой из Excel. пишу для этого соответствующий макрос. Программа выполняет математические расчеты и генерирует файлы с результатом расширения *.re
Макрос выполняет следующие функции:

On Error Resume Next 
Kill "путь к файлу"
'удаляет результат предидушего расчета
Chdir ("путь к файлу")
Shell ("путь к файлу")
'вызывает программу, в результате чего генерируются файлы результата
'дальше Excel считывает результат и распределяет его по нужным ячейкам

1)Расчет программы занимает некоторое время примерно около секунды на моем компютере, на других может больше до 5-10 секунд.
если не выполнить предварительный поиск файла то произайдет ошибка, типа файл не найден (Файл не успевает появиться до выполнения следуюшего действия)
2) в некоторых случях когда, не правильно введены параметры для расчета, программа не выдает результат.
3)программа может сгенерировать пустой файл результата.

Пытался наладить поиск вот таким образом:

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Dim fileEx As Boolean
fileEx = False
Do While fileEx <> True
fileEx = fs.FileExists("Путь к файлу")
loop 

Dim strFileName As String
Dim strFileTitle As String
strFileTitle = "Назваьние файла"
strFileName = " путь к файлу "
If Dir(strFileName) <> "" Then
MsgBox "файл" & strFileTitle & "наиден"
Else
MsgBox "файл" & strFileTitle & "не наиден"
End if

все работает но!!!!
если файл не сгенерировался то цикл не завершается и Excel зависает
если файл пустой то в Excel данные не поступают

Вопрос:
1) как сделать чтобы после запуска программы, Excel начинал искать файл и если не находит в течении 20 секунд писал файл не найден и изавершал макрос. А если находит начинал автоматически выполнение макроса дальше (считывание и распределение по ячейкам)
2) Если файл пустой то писал расчет не выполнен и завершал макрос.
3) как сделать чтобы не нужно было указывать конкретный путь к файлам, чтобы чтение поисходило из каталога где находится рабочая книга.

[kuklp]

1)

Public Sub sss()
    Dim fs As Object, fileEx As Boolean, t!
    t = Timer
    Set fs = CreateObject("Scripting.FileSystemObject")
    Do While Not fileEx
        fileEx = fs.FileExists("Путь к файлу")
        DoEvents
        If Timer - t > 20 Then GoTo exxx
    Loop
    Exit Sub
exxx:
MsgBox "No file!"
End Sub

2)
Если файл существует, проверяем его содержание(тут непонятно, что за файл и какое д.б. содержание)
3)
путь книги из к-рой проверяется файл:
thisworkbook.path

[Nicolas_46]

1) файлы результата называются REZ01.re вместо 01 может быть 02,03,04,05,06 в зависимомти от того, результаты какого расчета содержаться в нем.

Public Sub sss()
Kill "thisworkbook.path/rez*.*"
Chdir ("thisworkbook.path")
Shell ("thisworkbook.path/saprks3.exe")

    Dim fs As Object, fileEx As Boolean, t!
    t = Timer
    Set fs = CreateObject("Scripting.FileSystemObject")
    Do While Not fileEx
        fileEx = fs.FileExists("thisworkbook.path")
        DoEvents
        If Timer - t > 20 Then GoTo exxx
    Loop
    Exit Sub
exxx:
MsgBox "No file!"
End Sub

ругается на пути к файлу и программе,
как excel узнает, что именно файл rez01.re появился в каталоге где находится книга Excel?

2) В файле результата находится таблица состоящая из букв цифр и разных символов, нужно узнать есть ли в файле результата строчка "основные характеристики агрегата и корпусов" или нет. если есть то продолжить выполнение макроса, если нет то закончить его и написать "расчет отсутствует".
файлы с расширением *.re открываются блокнотом.

[kuklp]

файлы результата называются REZ01.re вместо 01 может быть 02,03,04,05,06

Вот те раз! А как Эксель должен догадаться, какой именно файл Вам нужен? Можно перебрать все файлы в каталоге по именам и выяснить, что нужный есть, или его нет. Но для этого, опять же, нужно знать - что ищем.

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

Я и показал как. Но это только путь, а не сам файл. Файл можно так:
fileEx = fs.FileExists(thisworkbook.path & "\REZ01.re")
Но опять же, что это за формат и что в нем - для меня загадка.

[Nicolas_46]

я в архиве все вложил прогу, файл Excel, все работает только заданны конкретные адреса файлов. призамене на thisworkbook.path & "\REZ01.re" ругается ((( Не знаю как исправить это.

[alex77755]

что-то видимо пиво побороло - никак не второпаю..
Я бы без тяжелой артилерии проверил наличие файла стареньким Dir.
Например так:

Sub OKRUG()
Dim S
wb = Dir(ActiveWorkbook.Path & "\REZ" & "*.re")
While Len(wb) > 0
    S = S & wb & vbCrLf
    wb = Dir
Wend
MsgBox " Рядом с файлом есть:" & vbCrLf & S
End Sub

Проверил по маске файлы рядом с активной книгой

[alex77755]

нужно узнать есть ли в файле результата строчка "основные характеристики агрегата и корпусов" или нет

Похоже это текстовой файл. Тогда просто считать содержение всего файла в переменную:

   Dim File As String, CF As String 
   'объявим пеpеменнyю для имени файла и его cодеpжимого 
   File = "d:\ca.log" 
   'ycтановим имя файла и пyть 
   Open File For Binary As #1 
   'откpоем файл для чтения 
      CF = Input(FileLen(File), 1)   'загpyзить в пеpеменyю CF вcе cодеpжимое файла 
   Close #1 
   'закpыть файл

И примитивным Instr проверить наличие

[doober]

Алгоритм таков.
Запускается программа,запоминается время старта.
В папке производится поиск самого свежего файла (позднее времени старта)+ наличие фразы "основные характеристики агрегата и корпусов" .
Если оба условия совпадают,то определяется имя файла и зеленый свет продолжению макроса.
Путь к папке можно указать

PS:.............Имя модуля

[Nicolas_46]

Спасибо огромное! почти все заработало как надо))))