Дата: Понедельник, 11.04.2011, 20:14 |
Сообщение № 1
Группа: Гости
Помогите пожалуйста исправить макрос. он в 2003 работает. вообще не понимаю.
[vba]
Код
With Application.FileSearch .NewSearch .LookIn = pathWithDoc + myname + "\" .SearchSubFolders = False ' .Filename = "ÅÌÀÈ*.doc" ' .Filename = "???È*.doc" .Filename = "*.doc" ss = Replace(decn, " ", "?") pattern_files = EMAI + "?" + ss + "*.???" If .Execute() > 0 Then For j = 1 To .FoundFiles.Count Set f = fs1.GetFile(.FoundFiles(j)) If Not (f.name Like pattern_files) Then ss = f.name ss = Lat_to_Rus(ss, 4) If Left(ss, 4) = EMAI Then nerr = nerr + 1 Print #2, "Â ïàïêå " + myname + " ôàéë " + f.name + " íå ñîîòâåòñòâóåò íàçâàíèþ ïàïêè" If InStr(f.name, EMAI) = 0 Then Print #2, f.name + " - âîçìîæíî ëàòèíèöà ñðåäè áóêâ äåöèìàëüíîãî íîìåðà!" End If End If End If Next j End If filedoc = pathWithDoc + myname + "\" + myname + ".doc" If fs1.fileexists(filedoc) = False Then filedoc = Replace(filedoc, ".doc", ".DOC") If fs1.fileexists(filedoc) = False Then .NewSearch .LookIn = pathWithDoc + myname + "\" .SearchSubFolders = False .Filename = MaskForMainDoc(pathWithDoc + myname + "\") If .Execute() = 1 Then filedoc = .FoundFiles(1) Else filedoc = "" End If End If End If End With
[/vba]
Помогите пожалуйста исправить макрос. он в 2003 работает. вообще не понимаю.
[vba]
Код
With Application.FileSearch .NewSearch .LookIn = pathWithDoc + myname + "\" .SearchSubFolders = False ' .Filename = "ÅÌÀÈ*.doc" ' .Filename = "???È*.doc" .Filename = "*.doc" ss = Replace(decn, " ", "?") pattern_files = EMAI + "?" + ss + "*.???" If .Execute() > 0 Then For j = 1 To .FoundFiles.Count Set f = fs1.GetFile(.FoundFiles(j)) If Not (f.name Like pattern_files) Then ss = f.name ss = Lat_to_Rus(ss, 4) If Left(ss, 4) = EMAI Then nerr = nerr + 1 Print #2, "Â ïàïêå " + myname + " ôàéë " + f.name + " íå ñîîòâåòñòâóåò íàçâàíèþ ïàïêè" If InStr(f.name, EMAI) = 0 Then Print #2, f.name + " - âîçìîæíî ëàòèíèöà ñðåäè áóêâ äåöèìàëüíîãî íîìåðà!" End If End If End If Next j End If filedoc = pathWithDoc + myname + "\" + myname + ".doc" If fs1.fileexists(filedoc) = False Then filedoc = Replace(filedoc, ".doc", ".DOC") If fs1.fileexists(filedoc) = False Then .NewSearch .LookIn = pathWithDoc + myname + "\" .SearchSubFolders = False .Filename = MaskForMainDoc(pathWithDoc + myname + "\") If .Execute() = 1 Then filedoc = .FoundFiles(1) Else filedoc = "" End If End If End If End With
Гость, перед тем, как копировать текст в Vista, переключайте раскладку клавиатуры на РУС, тогда после вставки скопированных текстов в них не будет "кракозябр" типа íå ñîîòâåòñòâóåò íàçâàíèþ ïàïêè вместо кириллических букв.
Гость, перед тем, как копировать текст в Vista, переключайте раскладку клавиатуры на РУС, тогда после вставки скопированных текстов в них не будет "кракозябр" типа íå ñîîòâåòñòâóåò íàçâàíèþ ïàïêè вместо кириллических букв.Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Понедельник, 11.04.2011, 21:24
перед тем, как копировать текст в Vista, переключайте раскладку клавиатуры на РУС, тогда после вставки скопированных текстов в них не будет "кракозябр" типа íå ñîîòâåòñòâóåò íàçâàíèþ ïàïêè вместо кириллических букв.
Я на планете выкладывал патч для Висты и Хрюши. Вот для Висты.
Quote (Alex_ST)
перед тем, как копировать текст в Vista, переключайте раскладку клавиатуры на РУС, тогда после вставки скопированных текстов в них не будет "кракозябр" типа íå ñîîòâåòñòâóåò íàçâàíèþ ïàïêè вместо кириллических букв.
Я на планете выкладывал патч для Висты и Хрюши. Вот для Висты.KuklP
Спасибо, Серёга. А где на Планете? То, что мне советовал ZVI в Копилка идей • Настройка VBA , я пробовал - на Висте не фуклицирует даже с его более поздними доработками... Да и твоего поста я в том топике что-то не нашёл.
Открыл твой файл Блокнотом. Посмотрел. Похоже, это что-то другое. Такого я не пробовал. Сейчас я на работе. здесь у меня ХРюша. А вечером дома на ноутбуке Виста стоит. Попробую. Отпишусь обязательно.
Спасибо, Серёга. А где на Планете? То, что мне советовал ZVI в Копилка идей • Настройка VBA , я пробовал - на Висте не фуклицирует даже с его более поздними доработками... Да и твоего поста я в том топике что-то не нашёл.
Открыл твой файл Блокнотом. Посмотрел. Похоже, это что-то другое. Такого я не пробовал. Сейчас я на работе. здесь у меня ХРюша. А вечером дома на ноутбуке Виста стоит. Попробую. Отпишусь обязательно.
Ну, ты и сказал... Я создавал! Да то когда было-то?... А сейчас там уже 12 страниц практически одних и тех же вопросов про одни и те же недостатки движка форума. Честно говоря, я совсем редко туда заглядываю в последнее время. А ты своё решение только в марте выложил. Странно, что Юрий М ничего не ответил... И в копилку это не положили... Наверное, тоже проглядели как и я
Ну, ты и сказал... Я создавал! Да то когда было-то?... А сейчас там уже 12 страниц практически одних и тех же вопросов про одни и те же недостатки движка форума. Честно говоря, я совсем редко туда заглядываю в последнее время. А ты своё решение только в марте выложил. Странно, что Юрий М ничего не ответил... И в копилку это не положили... Наверное, тоже проглядели как и я Alex_ST
Обидно, досадно... но ладно. Леш, по вдохновению еще че-нить придумаю. А у тебя все перечисленные в реге шрифты есть? Да ладно, не важно. Нужно дальше изгаляться. Эх, дочка просит семерку ей поставить, а я отговариваю:-) Другу поставил на ноут, но там ХР не канала(дров в природе нет). Сам слезу с хрюшечки последним. Ну, ретроград и гад:-)
Обидно, досадно... но ладно. Леш, по вдохновению еще че-нить придумаю. А у тебя все перечисленные в реге шрифты есть? Да ладно, не важно. Нужно дальше изгаляться. Эх, дочка просит семерку ей поставить, а я отговариваю:-) Другу поставил на ноут, но там ХР не канала(дров в природе нет). Сам слезу с хрюшечки последним. Ну, ретроград и гад:-)KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Да я и сам ХРюшу обожаю. На работе - на ней. А домой себе новый ноутбук в прошлом году купил, а там эта … ну, дрянь в общем. А на тушке у ноута много всяких ценных примочек для которых боюсь дрова под ХРюшу не найти если задумаю переустановить.
Да я и сам ХРюшу обожаю. На работе - на ней. А домой себе новый ноутбук в прошлом году купил, а там эта … ну, дрянь в общем. А на тушке у ноута много всяких ценных примочек для которых боюсь дрова под ХРюшу не найти если задумаю переустановить.Alex_ST
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
