For Each Item In Array("связь", "транспорт", "машинос")
iFName = Dir(iPath & "*.doc")
Do While iFName <> ""
If InStr(LCase(iFName), Item) Then
If InStr(LCase(iFName), "связь") Then Range("A32").Select: Call DocVWord
If InStr(LCase(iFName), "транспорт") Then Range("A33").Select: Call DocVWord
If InStr(LCase(iFName), "машинос") Then Range("A34").Select: Call DocVWord
Loop
Next
Как передать параметр?
Как передать название найденного документа в другую процедуру?
Вернее не само название, а часть названия?
Процедура поиска такая:
И процедуре DocVWord я снова ищу в этой же папке документ по фрагменту текста из соответствующей ячейки, что бы потом его открыть в Ворде. Можно ли использовать уже найденную в приведенной процедуре Item в кач-ве аргумента для процедуры DocVWord?
Короче говоря, можно ли избежать двойного поиска в одной и той-же папке?
Спасибо.
Вернее не само название, а часть названия?
Процедура поиска такая:
Код:
И процедуре DocVWord я снова ищу в этой же папке документ по фрагменту текста из соответствующей ячейки, что бы потом его открыть в Ворде. Можно ли использовать уже найденную в приведенной процедуре Item в кач-ве аргумента для процедуры DocVWord?
Короче говоря, можно ли избежать двойного поиска в одной и той-же папке?
Спасибо.
Процедура
Sub DocVWord(param as string)
msgbox (param)
End Sub
Вызов с передачей параметров:
DocVWord(b"bla-bla")
Sub DocVWord(param as string)
msgbox (param)
End Sub
Вызов с передачей параметров:
DocVWord(b"bla-bla")