Сложный вопрос по сравнениям и сводам

@MapMyxa · Регистрация: 17.09.2009

Студворк — интернет-сервис помощи студентам

Итак нужна помощь. Предположим что есть у нас папка с файлами и файл свода. Я запускаю Книга1.xls и жму первый шаг. Указываю папку с файлами проверок (в данном примере это файл Бедрикова-1 Зеньково.xls). Таких файлов в указанной мной папке может быть до 50 штук. И все у меня нормально работает. В файле Книга1 у меня появляются записи с именами файлов в указанной мной папке.
Дальше я запуская Шаг2-Сравнить. Указываю файл с которым нужно сравнить - это aaa.xls Таким образом программа должна сравнить те файлы, имена которых указаны в Книга1.xls и отметить в них различия.. сравнение идет только по определенным строкам.. и вот тут то и возникает ошибка ран-тайм ерор 9.. вопрос что делать?
Я конечно не понятно все наверное написал. Гляньте вложения. Запустите Все три файла, Дальше в Книга1.xls запустите первый шаг, а потом второй шаг "Сравнить"..

@Toxa33rus · 17.09.2009, 22:49

Ошибка вылезает в процедуре Proverka() в строке Worksheets("Классификатор").Select
Не хочет он делать активным другой файл. Я всегда делаю через объекты (каждый файл как отдельный объект).

@MapMyxa · 18.09.2009, 06:19 **[ТС]**

Я чрезмерно туп в ВБА ибо не так давно стал с ним разбираться. Тоха, можете более подробно объяснить как его как объект сделать?

@Toxa33rus · 21.09.2009, 22:48

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
WorkPath = Application.ActiveWorkbook.Path
ResultBook = Application.ActiveWorkbook.FullName
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSOWorkPath = FSO.GetFolder(WorkPath)
Set FSOFiles = FSOWorkPath.Files
For Each AFile In FSOFiles 'по всем файлам
  If UCase(FSO.GetExtensionName(AFile.Path)) = "XLS" Then 'по всем эксель файлам
    If FSO.GetFile(AFile.Path) <> ResultBook Then 'кроме файла с результатом
 
Application.Workbooks.Open (AFile.Path) 'открываем каждый файл и мучаем его
Set CurrentXls = Application.ActiveWorkbook
'дальше делаем что хотим используя ссылку на файл
 
    End if
  End if
Next

Не по теме:

Если завтра на работе будет время - попробую сделать как-нибудь, а сейчас всем спать! :)

@Toxa33rus · 22.09.2009, 09:51

Сообщение от MapMyxa

Я чрезмерно туп в ВБА ибо не так давно стал с ним разбираться

У меня у самого только желтый пояс по VBA. Тонкостей не знаю но думаю что форма (окошко с кнопками) не дает переключаться между книгами.

Объясните что вообще макрос делать должен, а то код подозрительный какой-то: берет базовый файл и сравнивает с ним его же(!), потом другой файл (тут более менее логично), а потом пустой файл (из которого происходит запуск макроса).

@MapMyxa · 22.09.2009, 12:03 **[ТС]**

Рабочий день закончится, приеду домой и подробно объясню, а то с телефона не удобно писать.. но макрос сравнивает не одинаковые файлы..) вообщем расскажу подробно после работы..) попробую сейчас с вашим кодом поразбираться. Спасибо

@MapMyxa · 22.09.2009, 19:49 **[ТС]**

Книга1.xls - просто файл, в котором есть макрос. Лежит данный файл где нибудь.

В общем есть папка. В Этой папке куча файлов типа - Бедрикова 1 Зеньково.хls Это файлы проверок по предприятиям. Они называются все по разному но они там. В них что-нибудь да заполнено. Нас интересует страница Классификатор. При нажатии на кнопку первого шага в Книгу 1 записываются имена данных файлов проверок. В другой папке есть файл aaa.xls - это шаблон. Сначала мы проверяем все файлы проверок на соответствие этому шаблону по строкам примечаний. После этого этого формируется свод из файлов проверок.. но это уже дело десятое ибо на данный момент вылазиет ошибка на этапе проверки соответсвия шаблону..

Так понятно? Вот вообщем и прошу тут помощи.. потому что никто ничего мне уже не может подсказать...(

@Toxa33rus · 22.09.2009, 20:49

Сообщение от MapMyxa

Так понятно?

Так да. А то путаете народ: закидали все файлы в одну папку хотя это делать нельзя.

Начинаю делать... Не кантовать.

@Toxa33rus · 22.09.2009, 22:51

Вот как-то так:

@MapMyxa · 24.09.2009, 22:06 **[ТС]**

Спасибо.. надеюсь разберусь.. если что - напишу)

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@Toxa33rus 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,976
	17.09.2009, 22:49
	Ошибка вылезает в процедуре Proverka() в строке Worksheets("Классификатор").Select Не хочет он делать активным другой файл. Я всегда делаю через объекты (каждый файл как отдельный объект). 0

@MapMyxa 0 / 0 / 0 Регистрация: 17.09.2009 Сообщений: 5
	18.09.2009, 06:19 [ТС]
	Я чрезмерно туп в ВБА ибо не так давно стал с ним разбираться. Тоха, можете более подробно объяснить как его как объект сделать? 0

@MapMyxa 0 / 0 / 0 Регистрация: 17.09.2009 Сообщений: 5
	22.09.2009, 12:03 [ТС]
	Рабочий день закончится, приеду домой и подробно объясню, а то с телефона не удобно писать.. но макрос сравнивает не одинаковые файлы..) вообщем расскажу подробно после работы..) попробую сейчас с вашим кодом поразбираться. Спасибо 0

@MapMyxa 0 / 0 / 0 Регистрация: 17.09.2009 Сообщений: 5
	22.09.2009, 19:49 [ТС]
	Книга1.xls - просто файл, в котором есть макрос. Лежит данный файл где нибудь. В общем есть папка. В Этой папке куча файлов типа - Бедрикова 1 Зеньково.хls Это файлы проверок по предприятиям. Они называются все по разному но они там. В них что-нибудь да заполнено. Нас интересует страница Классификатор. При нажатии на кнопку первого шага в Книгу 1 записываются имена данных файлов проверок. В другой папке есть файл aaa.xls - это шаблон. Сначала мы проверяем все файлы проверок на соответствие этому шаблону по строкам примечаний. После этого этого формируется свод из файлов проверок.. но это уже дело десятое ибо на данный момент вылазиет ошибка на этапе проверки соответсвия шаблону.. Так понятно? Вот вообщем и прошу тут помощи.. потому что никто ничего мне уже не может подсказать...( 0

@MapMyxa 0 / 0 / 0 Регистрация: 17.09.2009 Сообщений: 5
	24.09.2009, 22:06 [ТС]
	Спасибо.. надеюсь разберусь.. если что - напишу) 0