Работа с Excel и Thunderbird - VBA
Формулировка задачи:
Есть код, который отправляет конкретный файл, конкретному человеку (или нескольким)
Как сделать так, чтоб отправлялось больше 1 файла и увеличить длину переменной "stroka".
Решение задачи: «Работа с Excel и Thunderbird»
textual
Листинг программы
'Определение максимального количества аргументов методом эксперимента (подбор половинным делением) option explicit Const CriticalMAX = 10000 dim Home, oStream, Str, nCheck, curMAX, curMIN, nOK Home = WScript.ScriptFullName Home = left(Home, instrrev(Home, "\") - 1) nCheck = CriticalMAX curMAX = CriticalMAX curMIN = 0 Do set oStream = Createobject("WScript.Shell").Exec(Home & "\MaxArgTest.cmd" & replace(string(nCheck, "A"), "A", " A")) Str = oStream.StdOut.ReadAll() set oStream = Nothing if len(Str) - (nCheck - 1) - 2 <> nCheck Then ' - (nCheck - 1) ' кол-во пробелов между аргументами ' - 2 'CrLf curMAX = nCheck - 1 else nOK = nCheck curMIN = nCheck + 1 end if nCheck = (curMAX - curMIN) \ 2 + curMIN msgbox "MIN = " & cstr(curMIN) & " " & "MAX = " & cstr(curMAX) & " " & "Len of String = " & cstr(len(Str)) & _ vbcrlf & "Now Checking " & cstr(nCheck) Loop until curMIN >= curMAX msgbox "MAX possible is " & cstr(nOK)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д