Привет всем!
Помогите, пожалуйста, новичку решить некоторые проблемы (файл прилагается). Задача такая. Необходимо из прилагаемого файла СТЕКЛО.XLS создать 2 новых файла (заказы), в одном - те данные, что за наличный расчет, в другом - по безналу.
Это я сделал, просидев неделю над справочниками, но остались некоторые моменты, для решения которых мне, на данном этапе, не хватает знаний.

Проблема №1.
При первом запуске макроса из "ЗАКАЗ.XLS" происходит остановка выполнения программы на строке Set PageWb = Workbooks(wbName).Sheets("Бланк заказов") (см. прилагаемую программу), хотя проверку я вроде сделал. При повторном запуске макроса (когда создаваемые файлы УЖЕ существуют) всё чудесно работает. Где ошибка - не пойму.

Проблема №2.
Никак не могу приделать этот макрос к кнопке на ПЕРВОМ листе документа (рядом с инструкцией).
Пробовал подключать мой макрос из модуля через CALL - не работает. Может проблема в Офисе97, под которым я работаю? Приходится запускать макрос через панель инструментов, но для простых юзеров кнопка всё же лучше...


Проблема №3.
Сортировка данных в заказах по номеру заказа. Использовал метод сортировки:

' ### Сортировка данныз по номеру заказа в ZAKAZ-NAL.XLS
PageWb.Range(Cells(J1, 1), Cells(J - 1, 7)).Select
Selection.Sort Key1:=Cells(J1, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
PageWb.Cells(1, 1).Select ' снятие выделения области

Не получилось. Программа останавливается, а ошибку определить не может!

Помогите, пожалуйста. Вот срочно потребовалось для работы сделать, а программистов у нас нет.

lena_#### Alex37

По поводу проблемы №3.
У Вас переменная J1 встречается в коде первый раз именно в сроке


т.к. по сути это номер строки, то нужно где-то ранее присвоить ей значение >0
Нет есть, в описании Dim...
и ниже :)
Это вспомогательная переменная - хранит начальные координаты ( номер строки) вводимых в отчет данных. Специально использовал, чтобы применить для сортировки. J ведь изменит значение в процессе работы программы.

lena_####Возможно Вы имели в виду не J1 а J - 1 и просто ошиблись в наборе
И тут все верно. J1, как я указал выше, хранит координаты строки с первой записью.
J-1 - это номер последней последней строки с введенными данными.
А в строке J вводятся суммарные значения: "Количество" и "Общая площадь"
Я применяю "паскалевский" подход, т.к. не умею ещё работать, например, со столбцами данных. Поэтому пришлось расчетным путем искать координаты последней записи чтобы потом отсортировать данные.

lena_#### Alex37

Но в выложенном Вами файле я этого не нашла. Либо полохо искала, либо вы выложили не тот вариант :)
Точно. Я виноват. Не тот вариант выложил. У меня из тут десятка два уже набралось... Но и код с сортировкой я закоментарил... :)
Вот вариант, про который я имел в виду. Ещё раз извините!

vbaproПо проблеме №1: если в каталоге еще нет файлов "ZAKAZ-BEZNAL.XLS" и "ZAKAZ-NAL.XLS" то переменные wbName и wbName2 получают значение "" (пустая строка) (в строках 48 и 61 соответсвенно), а потом в стр.74 и 75 эти переменные используются в качестве названий книг для инициализации объектов:
Решение простое:
в строке 59 (после ActiveWorkbook.SaveAs wbFullName ) добавить wbName = Dir(wbFullName) ,
а в строке 72 (после ActiveWorkbook.SaveAs wbFullName2 ) добавить wbName2 = Dir(wbFullName2) .
Точно! Добавил указанные строки - все заработало! Спасибо большое. Сам бы никогда не догадался - это уж точно! :)
Правда, я не совсем понял почему не работало без них? Ведь эти строки у меня чуть выше прописаны. Эти "wbName" и "wbName2" обнуляются?

lena_#### Alex37

У меня Ваш код заработал после замены:

...........................
на:


у меня тоже получилось, работает вот так
но Ваше решение мне кажется более правильным, поправлю. Спасибо.

vbapro Alex37Проблема №2.
Никак не могу приделать этот макрос к кнопке на ПЕРВОМ листе документа (рядом с инструкцией).
Пробовал подключать мой макрос из модуля через CALL - не работает. Может проблема в Офисе97, под которым я работаю? Приходится запускать макрос через панель инструментов, но для простых юзеров кнопка всё же лучше...Вот, попробовал сделать кнопку, вроде работает. И под 97-м тоже. Хотя пришлось заменить на но это не из-за кнопки, конечно
К сожалению файл скачивается, но не ZIP. Не могли бы повторно его выложить? Буду очень признателен.

vbaproвот RAR
Спасибо, скачал, посмотрел. Ведь дома делел также и другие варианты, через CALL (там Офис97) - не получилось. Кнопка работала некоректно. Сейчас попробовал под Excel 2003 - работает. Кнопку подключил. Дома попробую под Excel 97 запустить.

vbapro..................................
а в строке 72 (после ActiveWorkbook.SaveAs wbFullName2 ) добавить wbName2 = Dir(wbFullName2) .
А не подскажете, как при сохранении файла, в имя файла включить текущую дату, типа
ZAKAZ-19-02-2007.XLS
Где-то видел на форуме, а теперь вот понадобилось самому - найти не могу...

vkodorAlex37 Попробуй
Спасибо за файл. Обнаружил там кое-какие изменения. В том числе и новый для меня оператор Is
и запись файла в новом формате
Неожиданное решение по выделению области перед сортировкой... Такого я не ожидал! :)

А вот эта "очистка" обязательна? Ведь пользователь документ, после выполнения кода, всё равно закрывать будет!?
Или эти переменные в памяти остаются?

Отвечаю на последнее сообщение vkodor.
Чесно говоря, запутался в этих quot - не смог победить! Пишу так.

Файлик, Что я скачал сработал некоректно (под 97-м Экселем). Снес я 97-й Офис и выставил 2003. Там все ОК! И кнопка на первом листе документа отлично работает. Заодно сегодня и на работе в офисе выставил на всех компьютерах Офис 2003. Для полной совместимости, так сказать.

Про оператор IS я писал вообще. Что он для меня новый. Ранее, в других проектах, никогда не использовал...

vkodorникакого выделения нет, сразу сортировка
давно заметил что в аргументах лучше указывать имя листа (ну чтоб можно было сортировать при не активном листе)
я бы предложил еще использовать конструкцию With - End With

Под 97-м этот способ не сработал. Да и не очень он мне подошел, т.к. попросили добавить ещё один столбец в создаваемые документы, "№ п.п". Там нумерация строк идет последовательно с заполнением ячеек в строке. Если потом сортировать без выделения, то нумерация пострадает. Или пришлось бы нумеровать отдельным циклом после сортировки...

Конструкцию With - End With обещаю освоить и применять. :)
vkodorУ меня были проблемы, если я не обнулял обьектные переменные.
Правда в других ситуациях. Вообщем мной этот вопрос доконца не изучен. Лучше если ответит на этот вопрос более знающий человек.
А я стараюсь всегда закрывать и обнулять
Вы правы.

Спасибо всем принявшим участие в обсуждении за реальную помощь в создании программы. Она работает, взята на вооружение. Сегодня целый день проводили её испытания, мелкие ошибки устранил. Хотя и говорят - "Работает, не трогай!" Но хочу довести её до ума. Так что вопросы у меня ещё будут.
Ещё раз огромное спасибо всем!!!