Строка 118: FindScan = ""
Строка 119: 'If Right(PlanName, 1) = "z" Then Exit Function
Строка 120: FilePath = Left(PlanName, InStrRev(PlanName, ".") - 1)
Строка 121: FilePath = Replace(FilePath, "_r", "")
Строка 122: FilePath = Replace(FilePath, "_", "?")
|