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

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

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

Итак нужна помощь. Предположим что есть у нас папка с файлами и файл свода. Я запускаю Книга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

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 **[ТС]**

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

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

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

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

@Toxa33rus 3896 / 899 / 122 Регистрация: 16.04.2009 Сообщений: 1,825
	22.09.2009, 09:51	5
	Сообщение от MapMyxa Я чрезмерно туп в ВБА ибо не так давно стал с ним разбираться У меня у самого только желтый пояс по VBA. Тонкостей не знаю но думаю что форма (окошко с кнопками) не дает переключаться между книгами. Объясните что вообще макрос делать должен, а то код подозрительный какой-то: берет базовый файл и сравнивает с ним его же(!), потом другой файл (тут более менее логично), а потом пустой файл (из которого происходит запуск макроса). 0

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

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

@Toxa33rus 3896 / 899 / 122 Регистрация: 16.04.2009 Сообщений: 1,825
	22.09.2009, 20:49	8
	Сообщение от MapMyxa Так понятно? Так да. А то путаете народ: закидали все файлы в одну папку хотя это делать нельзя. Начинаю делать... Не кантовать. 0

Опции темы